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 8d9b8e83e93f9128ae11abb6042f0deef77dbfb9..5d8873f284d563774825382dca7e2b0d32864728 100644 (file)
--- 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 be4eda05d8ddbc7fc75b8a3f8f372b7bb08a80da..94b0a3fa7745f5e843bf4bbfb8793927fc82cd28 100644 (file)
--- 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);