CPP-time uses of false and true now use FALSE and TRUE.

diff --git a/v7/src/microcode/extern.h b/v7/src/microcode/extern.h
index f52c60485aee8536303c0b76a1761fbd74f27541..eec5f7690213a10dcc79753dc111cc9252b3dc1e 100644 (file)
--- a/v7/src/microcode/extern.h
+++ b/v7/src/microcode/extern.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/extern.h,v 9.43 1992/01/15 17:21:50 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/extern.h,v 9.44 1992/02/03 23:26:46 jinx Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -270,6 +270,6 @@ extern void EXFUN (Print_Primitive, (SCHEME_OBJECT));
 extern void EXFUN (Allocate_New_Stacklet, (long));
 #endif
 
-#if false
+#if FALSE
 extern void EXFUN (Clear_Perfinfo_Data, (void));
 #endif

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index db352e8e25b874160a58a60ffd78ccbdcd7f00ca..5db955234ae4cdc4bd74b409402f7ca98e0ba184 100644 (file)
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.64 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.65 1992/02/03 23:31:14 jinx Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -618,7 +618,7 @@ Eval_Non_Trapping:
   switch (OBJECT_TYPE (Fetch_Expression()))
   {
     default:
-#if false
+#if FALSE
       Eval_Error(ERR_UNDEFINED_USER_TYPE);
 #else
       /* fall through to self evaluating. */

diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c
index a21f498921ea5d9ca4b6f1c2ab7a16ecf3d1ee99..63ff2026d06a28355f59804bb8c7a6641ab6a245 100644 (file)
--- a/v7/src/microcode/lookup.c
+++ b/v7/src/microcode/lookup.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.c,v 9.49 1992/01/15 04:37:54 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.c,v 9.50 1992/02/03 23:32:09 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -1670,7 +1670,7 @@ compiler_cache_retry:
     }
   }
 \f
-#if true
+#if TRUE
 
   /* The code below must complete to keep the data structures consistent.
      Thus instead of checking for GC overflow at each allocation, we check
@@ -1708,7 +1708,7 @@ compiler_cache_retry:
   {
     SCHEME_OBJECT new_trap;
 
-#if false
+#if FALSE
     /* This is included in the check above. */
     if (GC_allocate_test (9))
     {
@@ -1774,7 +1774,7 @@ compiler_cache_retry:
       store_extension = (FAST_MEMORY_REF (extension, TRAP_EXTENSION_CLONE));
       if (store_extension == SHARP_F)
       {
-#if false
+#if FALSE
        /* This is included in the check above. */
 
        if (GC_allocate_test (4))

diff --git a/v7/src/microcode/mul.c b/v7/src/microcode/mul.c
index b3fcd4ac4df5954408a9f72a501ffca20d7f7389..b9b382ecb3c4c3cec113ab73162f9566b73a671e 100644 (file)
--- a/v7/src/microcode/mul.c
+++ b/v7/src/microcode/mul.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/mul.c,v 9.31 1992/01/16 01:51:44 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/mul.c,v 9.32 1992/02/03 23:33:05 jinx Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -65,7 +65,7 @@ DEFUN (Mul, (Arg1, Arg2),
   register long A = (FIXNUM_TO_LONG (Arg1));
   register long B = (FIXNUM_TO_LONG (Arg2));
 #if __GNUC__
-#if 0
+#if FALSE
   /* GCC isn't yet efficient enough with `long long' -- KR.  */
   {
     register long long X;

diff --git a/v7/src/microcode/primutl.c b/v7/src/microcode/primutl.c
index 357d1c46e558f0d499fa1f70f6867b8f72f6363a..754270b265586d1392dd31a269bf7a8dbabc0e97 100644 (file)
--- a/v7/src/microcode/primutl.c
+++ b/v7/src/microcode/primutl.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/primutl.c,v 9.53 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/primutl.c,v 9.54 1992/02/03 23:35:09 jinx Exp $
 
-Copyright (c) 1988-1991 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -99,7 +99,7 @@ DEFUN (primitive_alias_to_name, (alias), char * alias)
   It is really the index of the last valid entry.
  */
 
-#if false
+#if FALSE
 
 /* This version performs an expensive linear search. */
 
@@ -128,7 +128,7 @@ DEFUN (primitive_name_to_code, (name, table, size),
   return ((long) (-1));
 }
 
-#else /* not false */
+#else /* not FALSE */
 \f
 /* This version performs a log (base 2) search.
    The table is assumed to be ordered alphabetically.

diff --git a/v7/src/microcode/purutl.c b/v7/src/microcode/purutl.c
index c62b2137ad2ff6cbfaa539c7107087b74ba2f2dc..26b2ebfe4579b2d2b6b2cf458755c38180816e4f 100644 (file)
--- a/v7/src/microcode/purutl.c
+++ b/v7/src/microcode/purutl.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/purutl.c,v 9.42 1991/08/06 15:13:54 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/purutl.c,v 9.43 1992/02/03 23:37:07 jinx Exp $
 
-Copyright (c) 1987-1991 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -135,7 +135,7 @@ DEFUN (Make_Impure,
     case TC_MANIFEST_NM_VECTOR:
     case TC_MANIFEST_SPECIAL_NM_VECTOR:
     case_Non_Pointer:
-#if false
+#if FALSE
       fprintf(stderr, "\nImpurify Non-Pointer (0x%lx)\n", Object);
       Microcode_Termination(TERM_NON_POINTER_RELOCATION);
       /* fall through */
@@ -268,7 +268,7 @@ DEFUN (find_constant_space_block,
 
   while (where >= low_constant)
   {
-#if 0
+#if FALSE
     /* Skip backwards over turds left over by ALIGN_FLOAT */
 
     /* This should be #ifdef FLOATING_ALIGNMENT, but

diff --git a/v7/src/microcode/storage.c b/v7/src/microcode/storage.c
index f3971ebd8b458cf467cbacd8b82b7f83ef6e5bed..108bd7c30fb91d07aaa4319459d1a060503c5a71 100644 (file)
--- a/v7/src/microcode/storage.c
+++ b/v7/src/microcode/storage.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/storage.c,v 9.47 1990/10/03 15:15:05 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/storage.c,v 9.48 1992/02/03 23:39:19 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -118,7 +118,7 @@ int debug_nslots = 0;
 int local_slotno = 0;
 int local_nslots = 0;
 
-#if false /* MHWU */
+#if FALSE /* MHWU */
 int debug_circle[debug_maxslots];
 int local_circle[debug_maxslots];
 #endif /* false */

diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index b6d74602631c513e4cf3b3edfe946bb3f718e699..94ac1551938945f3d1dbac1bb3fd856571a9efa5 100644 (file)
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.64 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.65 1992/02/03 23:31:14 jinx Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -618,7 +618,7 @@ Eval_Non_Trapping:
   switch (OBJECT_TYPE (Fetch_Expression()))
   {
     default:
-#if false
+#if FALSE
       Eval_Error(ERR_UNDEFINED_USER_TYPE);
 #else
       /* fall through to self evaluating. */

diff --git a/v8/src/microcode/lookup.c b/v8/src/microcode/lookup.c
index 7d56a392b8a3b6cf15d80235a5f211aa9ccc98d1..b48a04672c3e4fec30da5004d84de50094ac4f57 100644 (file)
--- a/v8/src/microcode/lookup.c
+++ b/v8/src/microcode/lookup.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.c,v 9.49 1992/01/15 04:37:54 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.c,v 9.50 1992/02/03 23:32:09 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -1670,7 +1670,7 @@ compiler_cache_retry:
     }
   }
 \f
-#if true
+#if TRUE
 
   /* The code below must complete to keep the data structures consistent.
      Thus instead of checking for GC overflow at each allocation, we check
@@ -1708,7 +1708,7 @@ compiler_cache_retry:
   {
     SCHEME_OBJECT new_trap;
 
-#if false
+#if FALSE
     /* This is included in the check above. */
     if (GC_allocate_test (9))
     {
@@ -1774,7 +1774,7 @@ compiler_cache_retry:
       store_extension = (FAST_MEMORY_REF (extension, TRAP_EXTENSION_CLONE));
       if (store_extension == SHARP_F)
       {
-#if false
+#if FALSE
        /* This is included in the check above. */
 
        if (GC_allocate_test (4))

diff --git a/v8/src/microcode/mul.c b/v8/src/microcode/mul.c
index d94d789d756874642a74faf349e014afbdd0d74e..32428ce02819e57019c7062f48d51cbc6c7e8803 100644 (file)
--- a/v8/src/microcode/mul.c
+++ b/v8/src/microcode/mul.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/mul.c,v 9.31 1992/01/16 01:51:44 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/mul.c,v 9.32 1992/02/03 23:33:05 jinx Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -65,7 +65,7 @@ DEFUN (Mul, (Arg1, Arg2),
   register long A = (FIXNUM_TO_LONG (Arg1));
   register long B = (FIXNUM_TO_LONG (Arg2));
 #if __GNUC__
-#if 0
+#if FALSE
   /* GCC isn't yet efficient enough with `long long' -- KR.  */
   {
     register long long X;