From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 27 Nov 1989 20:25:42 +0000 (+0000)
Subject: Conditionalize according to HAS_COMPILER_SUPPORT and insert the code
X-Git-Tag: 20090517-FFI~11663
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=38700df98b2861cacd7f9834e99f356482774e93;p=mit-scheme.git

Conditionalize according to HAS_COMPILER_SUPPORT and insert the code
previously in compiler.c for the case when there is no support.
---

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index 8d9b8e83e..5d8873f28 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.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/cmpint.c,v 1.19 1989/11/27 20:20:26 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.20 1989/11/27 20:25:42 jinx Exp $
  *
  * Compiled code interface.  Portable version.
  * This file requires a bit of assembly language from cmpaux-md.m4
@@ -983,7 +983,7 @@ comp_link_caches_restart ()
   instruction *ret_add;
 
   original_count = (OBJECT_DATUM (STACK_POP()));
-  STACK_POP ();						/* Loop count, for debugger */
+  STACK_POP ();					/* Loop count, for debugger */
   block = (STACK_POP ());
   environment = (compiled_block_environment (block));
   Store_Env (environment);
diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index be4eda05d..94b0a3fa7 100644
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.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/v8/src/microcode/cmpint.c,v 1.19 1989/11/27 20:20:26 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.20 1989/11/27 20:25:42 jinx Exp $
  *
  * Compiled code interface.  Portable version.
  * This file requires a bit of assembly language from cmpaux-md.m4
@@ -983,7 +983,7 @@ comp_link_caches_restart ()
   instruction *ret_add;
 
   original_count = (OBJECT_DATUM (STACK_POP()));
-  STACK_POP ();						/* Loop count, for debugger */
+  STACK_POP ();					/* Loop count, for debugger */
   block = (STACK_POP ());
   environment = (compiled_block_environment (block));
   Store_Env (environment);