Changeset 5093

Timestamp:

Sep 4, 2006, 1:29:49 AM (18 years ago)

Author:

Gary Byers

Message:

conditionalize %pname-hash for char size.

File:

• trunk/ccl/level-0/PPC/ppc-symbol.lisp (modified) (1 diff)

trunk/ccl/level-0/PPC/ppc-symbol.lisp

@@ -136 +136 @@
   (let ((nextw imm1)
         (accum imm0)
-        (offset imm2)
-        (tag imm3))
-    (extract-subtag tag str)
+        (offset imm2))
     (cmpwi cr0 len 0)
     (li offset target::misc-data-offset)
     (li accum 0)
     (beqlr- cr0)    
-    @loop8
+    @loop
     (cmpri cr1 len '1)
     (subi len len '1)
-    (lbzx nextw str offset)
-    (addi offset offset 1)
+    #+target-8-bit-chars
+    (progn
+      (lbzx nextw str offset)
+      (addi offset offset 1))
+    #-target-8-bit-chars
+    (progn
+      (lwzx nextw str offset)
+      (addi offset offset 4))
     (rotlwi accum accum 5)
     (xor accum accum nextw)
-    (bne cr1 @loop8)
+    (bne cr1 @loop)
     (slri accum accum 5)
     (srri arg_z accum (- 5 target::fixnumshift))