From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 3 Feb 1992 23:39:19 +0000 (+0000)
Subject: CPP-time uses of false and true now use FALSE and TRUE.
X-Git-Tag: 20090517-FFI~9893
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d7724323f9fde7d1c4cf45c07ebceccc4d9e5678;p=mit-scheme.git

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 f52c60485..eec5f7690 100644
--- 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 db352e8e2..5db955234 100644
--- 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 a21f49892..63ff2026d 100644
--- 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:
     }
   }
 
-#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 b3fcd4ac4..b9b382ecb 100644
--- 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 357d1c46e..754270b26 100644
--- 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 */
 
 /* 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 c62b2137a..26b2ebfe4 100644
--- 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 f3971ebd8..108bd7c30 100644
--- 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 b6d746026..94ac15519 100644
--- 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 7d56a392b..b48a04672 100644
--- 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:
     }
   }
 
-#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 d94d789d7..32428ce02 100644
--- 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;