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

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

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index e57836380..c8d7230c9 100644
--- a/v7/src/microcode/bchdmp.c
+++ b/v7/src/microcode/bchdmp.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.58 1991/11/04 16:49:52 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.59 1992/02/03 22:40:39 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
@@ -226,7 +226,7 @@ DEFUN (fasdump_exit, (length), long length)
   Free = saved_free;
   restore_gc_file ();
 
-#if true
+#if TRUE
   {
     extern int EXFUN (ftruncate, (int, unsigned long));
 
diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index bc7e228f3..960c2a84d 100644
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.48 1991/03/24 01:22:54 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.49 1992/02/03 22:38:18 jinx Exp $
 
-Copyright (c) 1987, 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
@@ -822,7 +822,7 @@ DEFUN (relocate, (object),
     result += Heap_Relocation;
   }
 
-#if false
+#if FALSE
 
   /* Currently constant space is not supported */
 
@@ -1561,7 +1561,7 @@ DEFUN_VOID (do_it)
     Free_Cobjects = &Mem_Base[Const_Count + Free_Constant];
     Constant_Objects = 0;
 
-#if true
+#if TRUE
 
     Do_Area (HEAP_CODE, Scan, Free, Objects, Free_Objects);
 
@@ -1659,7 +1659,7 @@ DEFUN_VOID (do_it)
     WRITE_HEADER ("CPU type", "%ld", dumped_processor_type);
     WRITE_HEADER ("Compiled code interface version", "%ld",
 		  dumped_interface_version);
-#if false
+#if FALSE
     WRITE_HEADER ("Compiler utilities vector", "%ld",
 		  (OBJECT_DATUM (dumped_utilities)));
 #endif
@@ -1669,7 +1669,7 @@ DEFUN_VOID (do_it)
     print_external_objects (&Mem_Base[Initial_Free + Heap_Count],
 			    Objects);
 
-#if false
+#if FALSE
 
     print_external_objects (&Mem_Base[Pure_Objects_Start],
 			    Pure_Objects);
@@ -1682,7 +1682,7 @@ DEFUN_VOID (do_it)
 
     print_objects (&Mem_Base[NROOTS], &Mem_Base[Free]);
 
-#if false
+#if FALSE
     print_objects (&Mem_Base[Pure_Start], &Mem_Base[Free_Pure]);
     print_objects (&Mem_Base[Constant_Start], &Mem_Base[Free_Constant]);
 #endif
diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index 61fa81bf2..2160b0cd6 100644
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.48 1991/03/24 01:22:54 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.49 1992/02/03 22:38:18 jinx Exp $
 
-Copyright (c) 1987, 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
@@ -822,7 +822,7 @@ DEFUN (relocate, (object),
     result += Heap_Relocation;
   }
 
-#if false
+#if FALSE
 
   /* Currently constant space is not supported */
 
@@ -1561,7 +1561,7 @@ DEFUN_VOID (do_it)
     Free_Cobjects = &Mem_Base[Const_Count + Free_Constant];
     Constant_Objects = 0;
 
-#if true
+#if TRUE
 
     Do_Area (HEAP_CODE, Scan, Free, Objects, Free_Objects);
 
@@ -1659,7 +1659,7 @@ DEFUN_VOID (do_it)
     WRITE_HEADER ("CPU type", "%ld", dumped_processor_type);
     WRITE_HEADER ("Compiled code interface version", "%ld",
 		  dumped_interface_version);
-#if false
+#if FALSE
     WRITE_HEADER ("Compiler utilities vector", "%ld",
 		  (OBJECT_DATUM (dumped_utilities)));
 #endif
@@ -1669,7 +1669,7 @@ DEFUN_VOID (do_it)
     print_external_objects (&Mem_Base[Initial_Free + Heap_Count],
 			    Objects);
 
-#if false
+#if FALSE
 
     print_external_objects (&Mem_Base[Pure_Objects_Start],
 			    Pure_Objects);
@@ -1682,7 +1682,7 @@ DEFUN_VOID (do_it)
 
     print_objects (&Mem_Base[NROOTS], &Mem_Base[Free]);
 
-#if false
+#if FALSE
     print_objects (&Mem_Base[Pure_Start], &Mem_Base[Free_Pure]);
     print_objects (&Mem_Base[Constant_Start], &Mem_Base[Free_Constant]);
 #endif