Changeset 5124

Timestamp:

Sep 5, 2006, 4:17:33 AM (18 years ago)

Author:

Gary Byers

Message:

conditionalize purify_displaced_object() for char size.

File:

• trunk/ccl/lisp-kernel/ppc-gc.c (modified) (3 diffs)

trunk/ccl/lisp-kernel/ppc-gc.c

@@ -814 +814 @@
     nbytes;
 
-#ifdef PPC
 #ifdef PPC64
   switch (fulltag_of(header)) {
@@ -849 +848 @@
   return ptr_from_lispobj(start+(~7 & (nbytes + 4 + 7)));
 #endif
-#endif
+
 
 
@@ -2910 +2909 @@
   switch(subtag) {
   case subtag_simple_base_string:
+#ifdef CHAR_SIZE_32
+    physbytes = node_size + (element_count << 2);
+#else
     physbytes = node_size + element_count;
+#endif
     break;