From 1f736f4ad869ddea97dff87a79b14bbf7cdebafb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@cs.utah.edu>
Date: Sat, 4 Dec 2010 18:32:06 -0700
Subject: [PATCH] win64: fix fixnum printing

---
 src/racket/src/print.c | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/src/racket/src/print.c b/src/racket/src/print.c
index e5ec274e6f..3d0f1330a2 100644
--- a/src/racket/src/print.c
+++ b/src/racket/src/print.c
@@ -1838,12 +1838,12 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
 	} else {
 	  if (val > 0) {
 	    always_scheme(pp, 1);
-	    sprintf(quick_buffer, "#%ld=", (val - 3) >> 1);
+	    sprintf(quick_buffer, "#%" PRINTF_INTPTR_SIZE_PREFIX "d=", (val - 3) >> 1);
 	    print_utf8_string(pp, quick_buffer, 0, -1);
 	    scheme_hash_set(ht, obj, (Scheme_Object *)(-val));
 	  } else {
 	    always_scheme(pp, 0);
-	    sprintf(quick_buffer, "#%ld#", ((-val) - 3) >> 1);
+	    sprintf(quick_buffer, "#%" PRINTF_INTPTR_SIZE_PREFIX "d#", ((-val) - 3) >> 1);
 	    print_utf8_string(pp, quick_buffer, 0, -1);
 	    return 0;
 	  }
@@ -2041,7 +2041,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
           }
 	}
       } else {
-	sprintf(quick_buffer, "%ld", SCHEME_INT_VAL(obj));
+	sprintf(quick_buffer, "%" PRINTF_INTPTR_SIZE_PREFIX "d", SCHEME_INT_VAL(obj));
 	print_utf8_string(pp, quick_buffer, 0, -1);
       }
     }
@@ -2574,7 +2574,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
           print_utf8_string(pp, ":", 0, 1);
         }
 
-        sprintf(s, "%ld", ((Scheme_Env *)obj)->phase);
+        sprintf(s, "%" PRINTF_INTPTR_SIZE_PREFIX "d", ((Scheme_Env *)obj)->phase);
         print_utf8_string(pp, s, 0, -1);
 	print_utf8_string(pp, ">", 0, 1);
       }
@@ -2702,9 +2702,12 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
 	    print_utf8_string(pp, ":", 0, 1);
 	  }
 	  if (stx->srcloc->line >= 0)
-	    sprintf(quick_buffer, "%ld:%ld", stx->srcloc->line, stx->srcloc->col-1);
+	    sprintf(quick_buffer, 
+		    "%" PRINTF_INTPTR_SIZE_PREFIX "d:%" PRINTF_INTPTR_SIZE_PREFIX "d", 
+		    stx->srcloc->line, stx->srcloc->col-1);
 	  else
-	    sprintf(quick_buffer, ":%ld", stx->srcloc->pos);
+	    sprintf(quick_buffer, ":%" PRINTF_INTPTR_SIZE_PREFIX "d", 
+		    stx->srcloc->pos);
 	  print_utf8_string(pp, quick_buffer, 0, -1);
 	} else
 	  print_utf8_string(pp, "#<syntax", 0, 8);
@@ -3012,7 +3015,9 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
 	print_this_string(pp, "#~", 0, 2);
 #if NO_COMPACT
 	if (t < _scheme_last_type_) {
-	  sprintf (quick_buffer, "%ld", (intptr_t)SCHEME_TYPE(obj));
+	  sprintf (quick_buffer, 
+		   "%" PRINTF_INTPTR_SIZE_PREFIX "d", 
+		   (intptr_t)SCHEME_TYPE(obj));
 	  print_this_string(pp, quick_buffer, 0, -1);
 	} else
 	  print_this_string(pp, scheme_get_type_name(t), 0, -1);