From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 16 Nov 1993 02:34:33 +0000 (+0000)
Subject: Add cast to remove spurious warnings.
X-Git-Tag: 20090517-FFI~7502
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a2407f384d4113ae9bfab36d48d605d74071ed55;p=mit-scheme.git

Add cast to remove spurious warnings.
---

diff --git a/v7/src/microcode/cmpintmd/c.h b/v7/src/microcode/cmpintmd/c.h
index 502b0fe8a..3a9d463bd 100644
--- a/v7/src/microcode/cmpintmd/c.h
+++ b/v7/src/microcode/cmpintmd/c.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: c.h,v 1.5 1993/11/16 02:25:15 gjr Exp $
+$Id: c.h,v 1.6 1993/11/16 02:34:33 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -82,8 +82,8 @@ extern int pc_zero_bits;
 
 #define FIRST_MANIFEST_CLOSURE_ENTRY(scan)				\
 (((COMPILED_ENTRY_OFFSET_WORD (((SCHEME_OBJECT *) (scan)) + 1)) == 0)	\
- ? (((SCHEME_OBJECT *) (scan)) + 2)					\
- : (((SCHEME_OBJECT *) (scan)) + 1))
+ ? ((char *) (((SCHEME_OBJECT *) (scan)) + 2))				\
+ : ((char *) (((SCHEME_OBJECT *) (scan)) + 1)))
 
 /* Trampolines are implemented as tiny compiled code blocks that
    invoke the constant C procedure indexed by the number 0.