From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 21 Aug 1993 01:56:51 +0000 (+0000)
Subject: Add a cast to output to remove warnings from the Microsoft Windows NT
X-Git-Tag: 20090517-FFI~8039
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2265b659772d255021078fbba8e0a0186562735d;p=mit-scheme.git

Add a cast to output to remove warnings from the Microsoft Windows NT
compiler.
---

diff --git a/v7/src/microcode/findprim.c b/v7/src/microcode/findprim.c
index bfbb2d1b3..d70f9b318 100644
--- a/v7/src/microcode/findprim.c
+++ b/v7/src/microcode/findprim.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: findprim.c,v 9.48 1993/08/03 08:29:50 gjr Exp $
+$Id: findprim.c,v 9.49 1993/08/21 01:56:51 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -630,10 +630,11 @@ DEFUN (print_primitives, (output, limit),
   for (count = 0; (count < limit); count += 1)
     {
       fprintf (output,
-	       "  (%s * sizeof(SCHEME_OBJECT)),\n",
+	       "  (%s * ((int) (sizeof (SCHEME_OBJECT)))),\n",
 	       ((result_buffer [count]) -> arity));
     }
-  fprintf (output, "  (%s * sizeof(SCHEME_OBJECT))\n};\n", inexistent_entry.arity);
+  fprintf (output, "  (%s * ((int) (sizeof (SCHEME_OBJECT))))\n};\n",
+	   inexistent_entry.arity);
 
   return;
 }