- some TYPECODES fixes (sufficient for compilation, but not work)

Changed files:
    clisp-typecodes.patch -> 1.1

diff --git a/clisp-typecodes.patch b/clisp-typecodes.patch
new file mode 100644 (file)
index 0000000..1856e09
--- /dev/null
+++ b/clisp-typecodes.patch
@@ -0,0 +1,71 @@
+--- clisp-2.31/src/spvw_debug.d.orig   Thu Jul 24 22:45:23 2003
++++ clisp-2.31/src/spvw_debug.d        Fri Dec  5 16:31:41 2003
+@@ -255,9 +255,16 @@
+       default: fputs("**UNKNOWN**",out);
+     }
+     fprintf(out," 0x%X>",as_oint(obj));
+-  } else if (varobjectp(obj))
++  } else
++#ifdef TYPECODES
++    if (1)
++    fprintf(out,"#<varobject type=%d address=0x%X>",
++            TheRecord(obj)->rectype,ThePointer(obj));
++#else
++    if (varobjectp(obj))
+     fprintf(out,"#<varobject type=%d address=0x%X>",
+             varobject_type(TheVarobject(obj)),ThePointer(obj));
++#endif
+   else fprintf(out,"#<huh?! address=0x%X>",ThePointer(obj));
+  #undef XOUT
+ }
+--- clisp-2.31/src/lispbibl.d.orig     Mon Sep  1 22:50:33 2003
++++ clisp-2.31/src/lispbibl.d  Fri Dec  5 15:58:44 2003
+@@ -3413,6 +3413,8 @@
+   #define dfloat_type     (     BTB5     |BTB3     |BTB1     ) # 0x2A  # %00101010  ; double-float
+   #define complex_type    (     BTB5     |BTB3|BTB2          ) # 0x2C  # %00101100  ; complex
+   #define lfloat_type     (     BTB5     |BTB3|BTB2|BTB1     ) # 0x2E  # %00101110  ; long-float
++  #define snilvector_type (     BTB5|BTB4     |BTB2|BTB1|BTB0) # 0x37  # %00110111
++  #define nilvector_type  (     BTB5|BTB4|BTB3|BTB2|BTB1|BTB0) # 0x3F  # %00111111
+   #if (TB6 >= 0)
+   #define cons_type       (BTB6                              ) # 0x40  # %01000000  ; cons
+   #endif
+@@ -4603,10 +4605,10 @@
+ #define Atype_32Bit  5
+ #define Atype_T      6
+ #define Atype_Char   7
+-#ifndef TYPECODES
++/*#ifndef TYPECODES*/
+ /* (ARRAY NIL) has an Array_type_snilvector data vector */
+ #define Atype_NIL    8
+-#endif
++/*#endif*/
+ 
+ # array-types
+ #ifdef TYPECODES
+@@ -4628,6 +4630,8 @@
+   #define Array_type_sb32vector  sb32vector_type   # Sbvector
+   #define Array_type_sstring     sstring_type      # Sstring
+   #define Array_type_svector     svector_type      # Svector
++  #define Array_type_nilvector   nilvector_type    # Iarray
++  #define Array_type_snilvector  snilvector_type   # Lrecord
+   # Array_type_simple_bit_vector(atype)
+   # maps Atype_[n]Bit to Array_type_sb[n]vector. Depends on TB0, TB1, TB2.
+   # The formula works because there are only 4 possible cases:
+@@ -5288,7 +5292,7 @@
+ #define cclosure_length(ptr)  srecord_length(ptr)
+ #define Cclosure_length(obj)  cclosure_length(TheCclosure(obj))
+ #ifdef TYPECODES
+-  #define cclosure_flags(ptr)  ((ptr)->flags)
++  #define cclosure_flags(ptr)  ((ptr)->recflags)
+ #else
+   #define cclosure_flags(ptr)  record_flags(ptr)
+ #endif
+@@ -6564,6 +6568,8 @@
+   #define case_Rectype_number_above
+   #define case_Rectype_float_above
+   #define case_Rectype_integer_above
++  #define case_Rectype_nilvector_above
++  #define case_Rectype_Snilvector_above
+ #else
+   #define case_Rectype_Closure_above  \
+     case Rectype_Closure: goto case_closure;