From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 12 Jan 2007 06:17:31 +0000 (+0000)
Subject: Fix two more places with pointer signedness warnings.
X-Git-Tag: 20090517-FFI~793
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=69ca440b707ab5e9f7f0e5f427ccc887a78e2d0c;p=mit-scheme.git

Fix two more places with pointer signedness warnings.
---

diff --git a/v7/src/microcode/cmpauxmd/c.c b/v7/src/microcode/cmpauxmd/c.c
index b21d3d2c9..da4ae4a72 100644
--- a/v7/src/microcode/cmpauxmd/c.c
+++ b/v7/src/microcode/cmpauxmd/c.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: c.c,v 1.20 2007/01/05 21:19:26 cph Exp $
+$Id: c.c,v 1.21 2007/01/12 06:17:31 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -42,8 +42,7 @@ USA.
 
 #ifdef BUG_GCC_LONG_CALLS
 
-extern SCHEME_OBJECT EXFUN (memory_to_string,
-			    (unsigned long, CONST unsigned char *));
+extern SCHEME_OBJECT EXFUN (memory_to_string, (unsigned long, CONST void *));
 extern SCHEME_OBJECT EXFUN (memory_to_symbol, (long, unsigned char *));
 extern SCHEME_OBJECT EXFUN (make_vector, (long, SCHEME_OBJECT, Boolean));
 extern SCHEME_OBJECT EXFUN (cons, (SCHEME_OBJECT, SCHEME_OBJECT));
diff --git a/v7/src/microcode/liarc.h b/v7/src/microcode/liarc.h
index 233c80943..8b46aee9a 100644
--- a/v7/src/microcode/liarc.h
+++ b/v7/src/microcode/liarc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: liarc.h,v 1.25 2007/01/05 21:19:25 cph Exp $
+$Id: liarc.h,v 1.26 2007/01/12 06:17:27 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -594,8 +594,7 @@ extern double
 
 #ifndef BUG_GCC_LONG_CALLS
 
-extern SCHEME_OBJECT EXFUN (memory_to_string,
-			    (unsigned long, CONST unsigned char *));
+extern SCHEME_OBJECT EXFUN (memory_to_string, (unsigned long, CONST void *));
 extern SCHEME_OBJECT EXFUN (memory_to_symbol, (unsigned long, CONST char *));
 extern SCHEME_OBJECT EXFUN (make_vector, (long, SCHEME_OBJECT, Boolean));
 extern SCHEME_OBJECT EXFUN (cons, (SCHEME_OBJECT, SCHEME_OBJECT));