diff options
| author | Douglas Katzman <dougk@google.com> | 2024-05-06 16:17:47 -0400 |
|---|---|---|
| committer | Douglas Katzman <dougk@google.com> | 2024-05-06 16:28:13 -0400 |
| commit | f8088a8c0857ba61f204d5fb6360a4b6d37b6157 (patch) | |
| tree | 7a4e78ea5023e704489ccc78501a79f9e3fd4469 /xperfecthash61.lisp-expr | |
| parent | a3f7ae08d9e3d445d25ec57f3730b903969eeb81 (diff) | |
Entirely remove ASSEMBLY-ROUTINE* fixup flavor
And introduce a new fixup-kind for x86-64 which removes x86-64
special-casing from architecture-independent fixup logic.
Diffstat (limited to 'xperfecthash61.lisp-expr')
| -rw-r--r-- | xperfecthash61.lisp-expr | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/xperfecthash61.lisp-expr b/xperfecthash61.lisp-expr index 1b195abe6..5bbb9662f 100644 --- a/xperfecthash61.lisp-expr +++ b/xperfecthash61.lisp-expr @@ -1445,5 +1445,12 @@ (let ((b (& val #x3))) (let ((a (>> (<< val 25) 30))) (^ a (aref tab b))))))") +(#(19A804F1 3D6712AB 42354AFF 511F123D 52F791B3 8AFF6C0B B6C53C5B C085651F C4F3111F CB2A2A51 E7BDDEAC EED915AA F1366560 + FB4D653B) + "#(:ASSEMBLY-ROUTINE :CARD-TABLE-INDEX-MASK :SYMBOL-TLS-INDEX :ALIEN-CODE-LINKAGE-INDEX :ALIEN-DATA-LINKAGE-INDEX :FOREIGN :FOREIGN-DATAREF :CODE-OBJECT :LAYOUT :IMMOBILE-SYMBOL :FDEFN-CALL :STATIC-CALL :SYMBOL-VALUE :LAYOUT-ID)" + "((let ((tab #a((8) (unsigned-byte 8) 14 0 0 0 0 14 10 8))) + (let ((b (& (>> val 4) #x7))) + (let ((a (>> (<< val 5) 29))) + (^ a (aref tab b))))))") ) ;; EOF |