From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 6 Oct 2013 21:14:04 +0000 (+0000)
Subject: Just cast to long; don't check whether %td will work for ptrdiff_t.
X-Git-Tag: release-9.2.0~96
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cb76c5866a86a0de89f5b58680a9ee8b6677aefd;p=mit-scheme.git

Just cast to long; don't check whether %td will work for ptrdiff_t.
---

diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c
index 77177aad3..9d9ddd163 100644
--- a/src/microcode/gcloop.c
+++ b/src/microcode/gcloop.c
@@ -1153,14 +1153,9 @@ check_newspace_sync (void)
 {
   if ((newspace_next - newspace_start)
       != (tospace_next - tospace_start))
-    std_gc_death (
-#ifdef HAVE_STDC_99
-		  "mismatch between newspace and tospace ptrs: %td/%td",
-#else
-		  "mismatch between newspace and tospace ptrs: %ld/%ld",
-#endif
-		  (newspace_next - newspace_start),
-		  (tospace_next - tospace_start));
+    std_gc_death ("mismatch between newspace and tospace ptrs: %ld/%ld",
+		  ((long) (newspace_next - newspace_start)),
+		  ((long) (tospace_next - tospace_start)));
 }
 
 void