From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 30 Jan 1989 13:04:03 +0000 (+0000)
Subject: Eliminate C compiler warning.
X-Git-Tag: 20090517-FFI~12282
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b72789e17f5d645c6b9345acd787df3438a0a281;p=mit-scheme.git

Eliminate C compiler warning.
---

diff --git a/v7/src/microcode/comutl.c b/v7/src/microcode/comutl.c
index 3d79ba5ab..0689ae2b2 100644
--- a/v7/src/microcode/comutl.c
+++ b/v7/src/microcode/comutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/comutl.c,v 1.17 1989/01/05 19:02:19 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/comutl.c,v 1.18 1989/01/30 13:04:03 cph Rel $
 
 Copyright (c) 1987, 1988 Massachusetts Institute of Technology
 
@@ -152,7 +152,7 @@ DEFINE_PRIMITIVE ("COMPILED-CLOSURE->ENTRY", Prim_compiled_closure_to_entry, 1,
 
   CHECK_ARG (1, COMPILED_CODE_ADDRESS_P);
   closure = (ARG_REF (1));
-  compiled_entry_type (closure, (& entry_type));
+  compiled_entry_type (closure, (& (entry_type [0])));
   if (! (((entry_type [0]) == 0) &&
 	 (compiled_entry_manifest_closure_p (closure))))
     error_bad_range_arg (1);
diff --git a/v7/src/microcode/debug.c b/v7/src/microcode/debug.c
index dd6823c0e..70a74c939 100644
--- a/v7/src/microcode/debug.c
+++ b/v7/src/microcode/debug.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/debug.c,v 9.31 1988/10/27 05:22:28 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/debug.c,v 9.32 1989/01/30 13:03:22 cph Exp $
  *
  * Utilities to help with debugging
  */
@@ -76,7 +76,7 @@ compiled_entry_debug_filename (entry)
   extern long compiled_entry_to_block_offset ();
   extern Pointer compiled_closure_to_entry ();
 
-  compiled_entry_type (entry, (& results));
+  compiled_entry_type (entry, (& (results [0])));
   if (((results [0]) == 0) && (compiled_entry_manifest_closure_p (entry)))
     entry = (compiled_closure_to_entry (entry));
   return (compiled_block_debug_filename (COMPILED_ENTRY_TO_BLOCK (entry)));
@@ -649,7 +649,7 @@ do_printing (Expr, Detailed)
 
 	entry = Expr;
 	closure_p = false;
-	compiled_entry_type (entry, (& results));
+	compiled_entry_type (entry, (& (results [0])));
 	switch (results [0])
 	  {
 	  case 0: