From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 26 Jul 1995 23:45:49 +0000 (+0000)
Subject: Split fixnum type-codes.
X-Git-Tag: 20090517-FFI~6138
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=62618a4bce86162766de379e8c959c03b2dfc779;p=mit-scheme.git

Split fixnum type-codes.
---

diff --git a/v8/src/microcode/liarc.h b/v8/src/microcode/liarc.h
index 06fbd94e1..a7b5fed9d 100644
--- 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 03d8db96f..1029ad5a2 100644
--- 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 255e13aad..89ddc8742 100644
--- 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