From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 10 Jan 1994 21:31:20 +0000 (+0000)
Subject: Add cast to eliminate warning.
X-Git-Tag: 20090517-FFI~7327
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=199a6977fb35d5608296c66a2cddd94266b33bab;p=mit-scheme.git

Add cast to eliminate warning.
---

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index d981b1094..9e2e135a4 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.82 1994/01/08 17:02:13 gjr Exp $
+$Id: cmpint.c,v 1.83 1994/01/10 21:31:20 gjr Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -1206,7 +1206,7 @@ exit_proc:
     SCHEME_OBJECT * ret_add_block;
     unsigned long block_len = (((unsigned long) (* block_address)) + 1);
     
-    Get_Compiled_Block (ret_add_block, ret_add);
+    Get_Compiled_Block (ret_add_block, ((SCHEME_OBJECT *) ret_add));
     if (ret_add_block == block_address)
       FLUSH_I_CACHE_REGION (block_address, block_len);
     else
diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index d981b1094..9e2e135a4 100644
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.82 1994/01/08 17:02:13 gjr Exp $
+$Id: cmpint.c,v 1.83 1994/01/10 21:31:20 gjr Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -1206,7 +1206,7 @@ exit_proc:
     SCHEME_OBJECT * ret_add_block;
     unsigned long block_len = (((unsigned long) (* block_address)) + 1);
     
-    Get_Compiled_Block (ret_add_block, ret_add);
+    Get_Compiled_Block (ret_add_block, ((SCHEME_OBJECT *) ret_add));
     if (ret_add_block == block_address)
       FLUSH_I_CACHE_REGION (block_address, block_len);
     else