From 38700df98b2861cacd7f9834e99f356482774e93 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 27 Nov 1989 20:25:42 +0000 Subject: [PATCH] Conditionalize according to HAS_COMPILER_SUPPORT and insert the code previously in compiler.c for the case when there is no support. --- v7/src/microcode/cmpint.c | 4 ++-- v8/src/microcode/cmpint.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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); -- 2.25.1