Fix calls printf to use %ld or %lx instead of %d and %x.

diff --git a/v7/src/microcode/stack.h b/v7/src/microcode/stack.h
index 2bf1028703ad0f76cc8e9f36df4b12ef0cb72005..5fe407b6a0f05e01c6857155334f09389861aa3d 100644 (file)
--- a/v7/src/microcode/stack.h
+++ b/v7/src/microcode/stack.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/stack.h,v 9.29 1991/02/24 01:11:10 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/stack.h,v 9.30 1992/02/03 23:38:30 jinx Exp $
 
-Copyright (c) 1987-1991 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -89,8 +89,8 @@ MIT in each case. */
 {                                                                      \
   if (Stack_Pointer < Stack_Guard)                                     \
   {                                                                    \
-    fprintf(stderr, "\nStack_Pointer: 0x%x, Guard: 0x%x\n",            \
-           Stack_Pointer, Stack_Guard);                                        \
+    fprintf(stderr, "\nStack_Pointer: 0x%lx, Guard: 0x%lx\n",          \
+            ((long) Stack_Pointer), ((long) Stack_Guard));             \
     Microcode_Termination(TERM_EXIT);                                  \
   }                                                                    \
   Internal_Terminate_Old_Stacklet();                                   \

diff --git a/v7/src/microcode/utils.c b/v7/src/microcode/utils.c
index 3359d7352eaffa7025d890ceb1ac3ac549238c5b..7bf8eec06e60e8d109c846d9d98a0a624f03d265 100644 (file)
--- a/v7/src/microcode/utils.c
+++ b/v7/src/microcode/utils.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utils.c,v 9.51 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utils.c,v 9.52 1992/02/03 23:41:57 jinx Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -125,9 +125,9 @@ DEFUN (err_print, (error_code, where), long error_code AND FILE * where)
   extern char * Error_Names [];
 
   if (error_code > MAX_ERROR)
-    fprintf (where, "Unknown error code 0x%x.\n", error_code);
+    fprintf (where, "Unknown error code 0x%lx.\n", error_code);
   else
-    fprintf (where, "Error code 0x%x (%s).\n",
+    fprintf (where, "Error code 0x%lx (%s).\n",
             error_code,
             (Error_Names [error_code]));
   return;
@@ -447,7 +447,8 @@ DEFUN (Do_Micro_Error, (Err, From_Pop_Return),
   {
     err_print(Err, stdout);
     Print_Expression(Fetch_Expression(), "Expression was");
-    printf("\nEnvironment 0x%x (#%o).\n", Fetch_Env(), Fetch_Env());
+    printf ("\nEnvironment 0x%lx (#%lo).\n",
+           ((long) (Fetch_Env ())), ((long) (Fetch_Env ())));
     Print_Return("Return code");
     printf("\n");
   }
@@ -752,8 +753,8 @@ DEFUN (primitive_apply_internal, (primitive), SCHEME_OBJECT primitive)
       {
        int arity = (PRIMITIVE_N_ARGUMENTS (primitive));
        Print_Expression (primitive, "Stack bad after ");
-       fprintf (stderr, "\nStack was 0x%x, now 0x%x, #args=%d.\n",
-                saved_stack, Stack_Pointer, arity);
+       fprintf (stderr, "\nStack was 0x%lx, now 0x%lx, #args=%ld.\n",
+                ((long) saved_stack), ((long) Stack_Pointer), ((long) arity));
        fflush (stderr);
        Microcode_Termination (TERM_EXIT);
       }
@@ -876,8 +877,8 @@ DEFUN (Find_State_Space, (State_Point), SCHEME_OBJECT State_Point)
     if (Point == SHARP_F)
     {
       fprintf(stderr,
-             "\nState_Point 0x%x wrong: count was %d, #F at %d\n",
-            State_Point, How_Far, i);
+             "\nState_Point 0x%lx wrong: count was %ld, #F at %ld\n",
+             ((long) State_Point), ((long) How_Far), ((long) i));
       Microcode_Termination(TERM_EXIT);
       /*NOTREACHED*/
     }