Eliminate C compiler warning.

diff --git a/v7/src/microcode/comutl.c b/v7/src/microcode/comutl.c
index 3d79ba5abde17135eb112684546f5b2b2b5ee816..0689ae2b2b8471f37593459231922113760ca211 100644 (file)
--- 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 dd6823c0efd62ad72e3b4199085695a69e6a6e99..70a74c9395dd3b0e45bff0acad191b4298a74ade 100644 (file)
--- 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: