Changeset 5086

Timestamp:

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

Author:

Gary Byers

Message:

%pname-hash: conditionalize for string element size.

File:

• trunk/ccl/level-0/X86/x86-symbol.lisp (modified) (1 diff)

trunk/ccl/level-0/X86/x86-symbol.lisp

@@ -133 +133 @@
     @loop8
     (roll ($ 5) (%l accum))
+    #+target-8-bit-chars
     (xorb (@ x8664::misc-data-offset (% str) (% offset))  (%b accum))
+    #-target-8-bit-chars
+    (xorl (@ x8664::misc-data-offset (% str) (% offset) 4) (%l accum))
     (addq ($ 1) (% offset))    
     (subq ($ '1) (% len))