From: Taylor R. Campbell <net/mumble/campbell>
Date: Mon, 22 Jan 2007 08:43:09 +0000 (+0000)
Subject: Eliminate compiler warnings for obstack_chunk_alloc.
X-Git-Tag: 20090517-FFI~751
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3b66572d417701666f6e68a49566d79d7e72b4b1;p=mit-scheme.git

Eliminate compiler warnings for obstack_chunk_alloc.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 402b75c52..2d8ea3a83 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.122 2007/01/12 03:45:55 cph Exp $
+$Id: boot.c,v 9.123 2007/01/22 08:43:09 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -65,13 +65,13 @@ static unsigned int reload_saved_string_length;
 Boolean scheme_dumped_p = false;
 
 PTR
-DEFUN (obstack_chunk_alloc, (size), unsigned int size)
+DEFUN (obstack_chunk_alloc, (size), size_t size)
 {
   PTR result = (malloc (size));
   if (result == 0)
     {
       outf_fatal ("\n%s: unable to allocate obstack chunk of %d bytes\n",
-	       scheme_program_name, size);
+		  scheme_program_name, ((int) size));
       Microcode_Termination (TERM_EXIT);
     }
   return (result);
diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index dc73e879d..43b6e0f10 100644
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.104 2007/01/05 21:19:25 cph Exp $
+$Id: interp.c,v 9.105 2007/01/22 08:43:09 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -37,7 +37,7 @@ USA.
 #include "zones.h"
 #include "prmcon.h"
 
-extern PTR EXFUN (obstack_chunk_alloc, (unsigned int size));
+extern PTR EXFUN (obstack_chunk_alloc, (size_t size));
 extern void EXFUN (free, (PTR ptr));
 #define obstack_chunk_free free
 extern void EXFUN (back_out_of_primitive_internal, (void));