From: Chris Hanson Date: Wed, 12 Feb 1997 08:23:35 +0000 (+0000) Subject: Move only reference to COMPILE_STEPPER from "scheme.h" to "interp.c", X-Git-Tag: 20090517-FFI~5259 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d0fb8d9f5c3d91ba6b941ad13817c8ea114360db;p=mit-scheme.git Move only reference to COMPILE_STEPPER from "scheme.h" to "interp.c", since that is the only file affected. Also, the previous location of this reference prevented the assignment in "config.h" from being properly seen. --- diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c index a33a4fdf4..52df6c1b3 100644 --- a/v7/src/microcode/interp.c +++ b/v7/src/microcode/interp.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: interp.c,v 9.86 1996/10/02 19:01:28 cph Exp $ +$Id: interp.c,v 9.87 1997/02/12 08:23:35 cph Exp $ -Copyright (c) 1988-96 Massachusetts Institute of Technology +Copyright (c) 1988-97 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -50,6 +50,12 @@ extern void EXFUN (free, (PTR ptr)); #define obstack_chunk_free free extern void EXFUN (back_out_of_primitive_internal, (void)); extern void EXFUN (preserve_signal_mask, (void)); + +#ifdef COMPILE_STEPPER +#define Microcode_Does_Stepping true +#else +#define Microcode_Does_Stepping false +#endif /* In order to make the interpreter tail recursive (i.e. * to avoid calling procedures and thus saving unnecessary diff --git a/v7/src/microcode/scheme.h b/v7/src/microcode/scheme.h index ad66ea3ef..968149813 100644 --- a/v7/src/microcode/scheme.h +++ b/v7/src/microcode/scheme.h @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: scheme.h,v 9.36 1993/08/30 16:11:01 gjr Exp $ +$Id: scheme.h,v 9.37 1997/02/12 08:21:30 cph Exp $ -Copyright (c) 1987-1993 Massachusetts Institute of Technology +Copyright (c) 1987-97 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -57,12 +57,6 @@ MIT in each case. */ #endif #endif -#ifdef COMPILE_STEPPER -#define Microcode_Does_Stepping true -#else -#define Microcode_Does_Stepping false -#endif - #define forward extern /* For forward references */ #include diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c index f72d88057..be5a6bde2 100644 --- a/v8/src/microcode/interp.c +++ b/v8/src/microcode/interp.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: interp.c,v 9.88 1996/10/02 18:57:49 cph Exp $ +$Id: interp.c,v 9.89 1997/02/12 08:21:39 cph Exp $ -Copyright (c) 1988-96 Massachusetts Institute of Technology +Copyright (c) 1988-97 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -50,6 +50,12 @@ extern void EXFUN (free, (PTR ptr)); #define obstack_chunk_free free extern void EXFUN (back_out_of_primitive_internal, (void)); extern void EXFUN (preserve_signal_mask, (void)); + +#ifdef COMPILE_STEPPER +#define Microcode_Does_Stepping true +#else +#define Microcode_Does_Stepping false +#endif /* In order to make the interpreter tail recursive (i.e. * to avoid calling procedures and thus saving unnecessary