Changeset 5087

Timestamp:

Sep 3, 2006, 3:03:28 PM (18 years ago)

Author:

Gary Byers

Message:

conditionalize new string types.

Location:

trunk/ccl/lisp-kernel

Files:

• x86-constants64.h (modified) (2 diffs)
• x86-constants64.s (modified) (2 diffs)

trunk/ccl/lisp-kernel/x86-constants64.h

@@ -150 +150 @@
 #define subtag_double_float_vector SUBTAG(ivector_class_64_bit,15L)
 
+#ifdef CHAR_SIZE_32
+#define subtag_simple_base_string SUBTAG(ivector_class_32_bit,12L)
+#endif
 #define subtag_s32_vector SUBTAG(ivector_class_32_bit,13L)
 #define subtag_u32_vector SUBTAG(ivector_class_32_bit,14L)
@@ -156 +159 @@
 #define subtag_s16_vector SUBTAG(ivector_class_other_bit,10L)
 #define subtag_u16_vector SUBTAG(ivector_class_other_bit,11L)
+#ifndef CHAR_SIZE_32
 #define subtag_simple_base_string SUBTAG(ivector_class_other_bit,12L)
+#endif
 #define subtag_s8_vector SUBTAG(ivector_class_other_bit,13L)
 #define subtag_u8_vector SUBTAG(ivector_class_other_bit,14L)

trunk/ccl/lisp-kernel/x86-constants64.s

@@ -263 +263 @@
 define_subtag(u64_vector,ivector_class_64_bit,14)
 define_subtag(double_float_vector,ivector_class_64_bit,15)
-        
+
+        ifdef([CHAR_SIZE_32],[
+define_subtag(simple_base_string,ivector_class_32_bit,12)
+])
 define_subtag(s32_vector,ivector_class_32_bit,13)
 define_subtag(u32_vector,ivector_class_32_bit,14)
@@ -270 +273 @@
 define_subtag(s16_vector,ivector_class_other_bit,10)
 define_subtag(u16_vector,ivector_class_other_bit,11)
+       ifdef([CHAR_SIZE_32],[],[
 define_subtag(simple_base_string,ivector_class_other_bit,12)
+])
 define_subtag(s8_vector,ivector_class_other_bit,13)
 define_subtag(u8_vector,ivector_class_other_bit,14)