Changeset 6452 for branches/x8664-call


Ignore:
Timestamp:
May 9, 2007, 4:07:15 AM (13 years ago)
Author:
gb
Message:

Use %pname-hash for symbol hashing; faster than string-hash.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/level-0/l0-hash.lisp

    r6015 r6452  
    283283        (if (symbolp key)
    284284          (let* ((name (if key (%svref (symptr->symvector key) target::symbol.pname-cell) "NIL")))
    285             (values (mixup-hash-code (string-hash name 0 (length name))) nil))
     285            (values (mixup-hash-code (%pname-hash name (length name))) nil))
    286286          (let ((hash (mixup-hash-code (strip-tag-to-fixnum key))))
    287287            (if (immediate-p-macro key)
     
    10521052                                        (symptr->symvector key)
    10531053                                        target::symbol.pname-cell) "NIL")))
    1054                     (mixup-hash-code (string-hash name 0 (length name))))
     1054                    (mixup-hash-code (%pname-hash name (length name))))
    10551055                  (mixup-hash-code (strip-tag-to-fixnum key)))))))
    10561056         (length (uvsize vector))
     
    11011101                                        (symptr->symvector key)
    11021102                                        target::symbol.pname-cell) "NIL")))
    1103                     (mixup-hash-code (string-hash name 0 (length name))))
     1103                    (mixup-hash-code (%pname-hash name (length name))))
    11041104                  (progn
    11051105                    (unless (immediate-p-macro key)
Note: See TracChangeset for help on using the changeset viewer.