Split fixnum type-codes.

diff --git a/v8/src/microcode/liarc.h b/v8/src/microcode/liarc.h
index 06fbd94e1492d4668153874b463593ab855c501a..a7b5fed9dacadd2b4c267c524e949042c6a72dd9 100644 (file)
--- a/v8/src/microcode/liarc.h
+++ b/v8/src/microcode/liarc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: liarc.h,v 1.12 1993/11/13 03:46:40 gjr Exp $
+$Id: liarc.h,v 1.13 1995/07/26 23:40:20 adams Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -117,7 +117,7 @@ typedef union machine_word_u machine_word;
 #define MAKE_PRIMITIVE_PROCEDURE(name,arity) (MAKE_PRIMITIVE (name, arity))
 
 #define MAKE_LINKER_HEADER(kind,count)                                 \
-  (OBJECT_NEW_TYPE (TC_FIXNUM,                                         \
+  (OBJECT_NEW_TYPE (TC_POSITIVE_FIXNUM,                                        \
                    (MAKE_LINKAGE_SECTION_HEADER ((kind), (count)))))
 
 #define ALLOCATE_VECTOR(len) (MAKE_VECTOR ((len), SHARP_F, true))

diff --git a/v8/src/microcode/lookup.c b/v8/src/microcode/lookup.c
index 03d8db96fbc84b8eb6fb9a214c2d065451dffee2..1029ad5a2bd909a462ab795f3b39aed4443ac473 100644 (file)
--- a/v8/src/microcode/lookup.c
+++ b/v8/src/microcode/lookup.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: lookup.c,v 9.54 1993/09/09 18:17:46 gjr Exp $
+$Id: lookup.c,v 9.55 1995/07/26 23:44:54 adams Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -1809,7 +1809,7 @@ compiler_cache_retry:
                      block,
                      ((local_reference_p (env, compiler_cache_variable))
                       ? (MAKE_OBJECT (TC_CHARACTER, offset))
-                      : (MAKE_OBJECT (TC_FIXNUM, offset)))));
+                      : (MAKE_OBJECT (TC_POSITIVE_FIXNUM, offset)))));
     if (return_value != PRIM_DONE)
     {
       compiler_cache_epilog ();

diff --git a/v8/src/microcode/lookup.h b/v8/src/microcode/lookup.h
index 255e13aad2b7f2dedb7a3c8cdee2ffa78cb5630d..89ddc874286e27258396503c5c8602f4f3df8c64 100644 (file)
--- a/v8/src/microcode/lookup.h
+++ b/v8/src/microcode/lookup.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: lookup.h,v 9.48 1993/06/24 07:08:58 gjr Exp $
+$Id: lookup.h,v 9.49 1995/07/26 23:45:49 adams Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -64,8 +64,8 @@ extern SCHEME_OBJECT
 #define LOCAL_REF                      TC_NULL
 #define GLOBAL_REF                     TC_UNINTERNED_SYMBOL
 #define FORMAL_REF                     TC_CHARACTER
-#define AUX_REF                                TC_FIXNUM
-#define UNCOMPILED_REF                 TC_TRUE
+#define AUX_REF                                TC_POSITIVE_FIXNUM
+#define UNCOMPILED_REF                 TC_CONSTANT
 
 /* Common constants. */
 
@@ -79,7 +79,7 @@ extern SCHEME_OBJECT
 #define UNCOMPILED_VARIABLE            0x20000000
 #endif
 
-#if (TC_TRUE != 0x08)
+#if (TC_CONSTANT != 0x08)
 #include "error:lookup.h and types.h are inconsistent"
 #endif