Changed TC_TRUE to TC_CONSTANT

diff --git a/v7/src/microcode/const.h b/v7/src/microcode/const.h
index 5bbd6c6ae6c7fe4803c1d4a12378cb493a8f003c..6538ed434ace0452e68a2dba4991f0daec796016 100644 (file)
--- a/v7/src/microcode/const.h
+++ b/v7/src/microcode/const.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: const.h,v 9.43 1993/09/11 02:45:52 gjr Exp $
+$Id: const.h,v 9.44 1997/07/16 02:39:43 adams Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -66,8 +66,8 @@ MIT in each case. */
 
 #ifndef SHARP_F                        /* Safe version */
 #define SHARP_F                        MAKE_OBJECT (TC_NULL, 0)
-#define SHARP_T                        MAKE_OBJECT (TC_TRUE, 0)
-#define UNSPECIFIC             MAKE_OBJECT (TC_TRUE, 1)
+#define SHARP_T                        MAKE_OBJECT (TC_CONSTANT, 0)
+#define UNSPECIFIC             MAKE_OBJECT (TC_CONSTANT, 1)
 #define FIXNUM_ZERO            MAKE_OBJECT (TC_FIXNUM, 0)
 #define BROKEN_HEART_ZERO      MAKE_OBJECT (TC_BROKEN_HEART, 0)
 #endif /* SHARP_F */
@@ -108,7 +108,7 @@ MIT in each case. */
 /* For headers in pure / constant area */
 
 #define END_OF_BLOCK           TC_FIXNUM
-#define CONSTANT_PART          TC_TRUE
+#define CONSTANT_PART          TC_CONSTANT
 #define PURE_PART              TC_FALSE
 \f
 /* Primitive flow control codes: directs computation after
@@ -151,7 +151,7 @@ MIT in each case. */
 /* VMS preprocessor does not like line continuations in conditionals */
 
 #define Are_The_Constants_Incompatible                                 \
-((TC_NULL != 0x00) || (TC_TRUE != 0x08) ||                             \
+((TC_NULL != 0x00) || (TC_CONSTANT != 0x08) ||                         \
  (TC_FIXNUM != 0x1A) || (TC_BROKEN_HEART != 0x22) ||                   \
  (TC_CHARACTER_STRING != 0x1E))
 

diff --git a/v7/src/microcode/fasl.h b/v7/src/microcode/fasl.h
index 514b0d773cf3edbf259688f6511838e492884887..46b03a153e42b65ab2307d362ed0ca91e46f7de6 100644 (file)
--- a/v7/src/microcode/fasl.h
+++ b/v7/src/microcode/fasl.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fasl.h,v 9.36 1994/11/19 21:22:47 cph Exp $
+$Id: fasl.h,v 9.37 1997/07/16 02:39:26 adams Exp $
 
 Copyright (c) 1987-94 Massachusetts Institute of Technology
 
@@ -88,10 +88,10 @@ MIT in each case. */
 #define CI_MASK                        ((ONE << (DATUM_LENGTH / 2)) - 1)
 #define CI_VERSION(P)          (((P) >> (DATUM_LENGTH / 2)) & CI_MASK)
 #define CI_PROCESSOR(P)                ((P) & CI_MASK)
-#define CI_BAND_P(P)           ((OBJECT_TYPE (P)) == TC_TRUE)
+#define CI_BAND_P(P)           ((OBJECT_TYPE (P)) == TC_CONSTANT)
 
 #define MAKE_CI_VERSION(Band_p, Version, Processor_Type)               \
-  MAKE_OBJECT (((Band_p) ? TC_TRUE : TC_NULL),                         \
+  MAKE_OBJECT (((Band_p) ? TC_CONSTANT : TC_NULL),                             \
               ((((unsigned long) (Version)) << (DATUM_LENGTH / 2))     \
                | (Processor_Type)))
 \f

diff --git a/v7/src/microcode/gctype.c b/v7/src/microcode/gctype.c
index 30f78c4f749c3b4978f5bd82ec0ef7811456437f..cce93f41dcab0eefa9fe7d05e4e075b870b2e919 100644 (file)
--- a/v7/src/microcode/gctype.c
+++ b/v7/src/microcode/gctype.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: gctype.c,v 9.32 1992/12/05 03:33:18 cph Exp $
+$Id: gctype.c,v 9.33 1997/07/16 02:40:39 adams Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -49,7 +49,7 @@ int GC_Type_Map[MAX_TYPE_CODE + 1] = {
     GC_Pair,                   /* TC_UNINTERNED_SYMBOL */
     GC_Vector,                 /* TC_BIG_FLONUM */
     GC_Pair,                   /* TC_COMBINATION_1 */
-    GC_Non_Pointer,            /* TC_TRUE */
+    GC_Non_Pointer,            /* TC_CONSTANT */
     GC_Pair,                   /* TC_EXTENDED_PROCEDURE */
     GC_Vector,                 /* TC_VECTOR */
     GC_Non_Pointer,            /* TC_RETURN_CODE */