manuel
/
void-packages
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

sbcl: add perfect hash patch for CLISP.

This commit is contained in:
Leah Neukirchen 2025-01-03 18:36:38 +01:00
parent b06eaaa20a
commit 9f00de66f0
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
srcpkgs/sbcl/patches/perfecthash.patch Normal file
View File

@ -0,0 +1,48 @@
Necessary for CLISP bootstrap.
Provided by stassats`.
--- a/sbcl/xperfecthash30.lisp-expr
+++ b/sbcl/xperfecthash30.lisp-expr
@@ -692,6 +692,9 @@
(let ((b (& (>> val 10) #x7)))
(let ((a (>> (<< val 5) 29)))
(^ a (aref tab b))))))")
+(#(1DE9D83 2D83FFB FA6ADD3 15CC0915 1D30DC7C 1EFAF033)
+ "(:ALLOW-OTHER-KEYS :FUNCTIONAL :SAME-BLOCK-P :INLINEP :INLINE-EXPANSION :KIND)"
+ "( (& (+ (>> val 23) (>> val 26)) 7))")
(#(1E847AD A771EC5 E70844A 1A23C247 1AAF3CC2 1C5EFFF8)
"(SB-C::PROPER-OR-DOTTED-LIST SB-C::PROPER-OR-CIRCULAR-LIST SB-C::PROPER-SEQUENCE SB-C::PROPER-LIST TYPE-SPECIFIER SB-C::MODIFYING)"
"( (& (^ (>> val 1) (>> val 13)) 7))")
--- a/sbcl/xperfecthash61.lisp-expr
+++ b/sbcl/xperfecthash61.lisp-expr
@@ -773,6 +773,9 @@
(#(15416355 42D83FFB 4341F7D8 63C971D7 8F7912D6)
"(:ALLOW-OTHER-KEYS :HOOK :FIRED :LEXENV :SOURCE-PATH)"
"( (& (- val (>> val 4)) 7))")
+(#(15CC0915 42D83FFB 6FA6ADD3 7D30DC7C 81DE9D83 FEFAF033)
+ "(:ALLOW-OTHER-KEYS :FUNCTIONAL :SAME-BLOCK-P :INLINEP :INLINE-EXPANSION :KIND)"
+ "( (& (+ (>> val 7) (>> val 30)) 7))")
(#(1607B33C 380E1F3F 75FB05B6 87C835DD 9DD07497 A4EDA9A1 E0AD3E74 F7158E95 FD00B976)
"(SB-VM::COMPLEX-SINGLE-REG SB-VM::COMPLEX-DOUBLE-REG SB-VM::DOUBLE-REG SB-VM::SINGLE-REG SB-VM::DESCRIPTOR-REG SB-VM::SAP-REG SB-VM::SIGNED-REG SB-VM::UNSIGNED-REG SB-VM::ANY-REG)"
"((let ((tab #a((8) (unsigned-byte 8) 12 0 0 5 5 0 0 0)))
--- a/sbcl/xperfecthash63.lisp-expr
+++ b/sbcl/xperfecthash63.lisp-expr
@@ -1138,6 +1138,9 @@
(#(15416355 42D83FFB 4341F7D8 63C971D7 8F7912D6)
"(:ALLOW-OTHER-KEYS :HOOK :FIRED :LEXENV :SOURCE-PATH)"
"( (& (- val (>> val 4)) 7))")
+(#(15CC0915 42D83FFB 6FA6ADD3 7D30DC7C 81DE9D83 FEFAF033)
+ "(:ALLOW-OTHER-KEYS :FUNCTIONAL :SAME-BLOCK-P :INLINEP :INLINE-EXPANSION :KIND)"
+ "( (& (+ (>> val 7) (>> val 30)) 7))")
(#(1607B33C 380E1F3F 75FB05B6 87C835DD 9DD07497 A4EDA9A1 E0AD3E74 F7158E95 FD00B976)
"(SB-VM::COMPLEX-SINGLE-REG SB-VM::COMPLEX-DOUBLE-REG SB-VM::DOUBLE-REG SB-VM::SINGLE-REG SB-VM::DESCRIPTOR-REG SB-VM::SAP-REG SB-VM::SIGNED-REG SB-VM::UNSIGNED-REG SB-VM::ANY-REG)"
"((let ((tab #a((8) (unsigned-byte 8) 12 0 0 5 5 0 0 0)))
@@ -1988,8 +1991,5 @@
(#(B02153B3 C49039A2 DB6D6FD7 E487643D F5B1443E)
"(SIMPLE-VECTOR VECTOR CONS LIST NIL)"
"( (& (+ (>> val 1) (>> val 4)) 7))")
-(#(15CC0915 42D83FFB 6FA6ADD3 7D30DC7C 81DE9D83 FEFAF033)
- "(:ALLOW-OTHER-KEYS :FUNCTIONAL :SAME-BLOCK-P :INLINEP :INLINE-EXPANSION :KIND)"
- "( (& (+ (>> val 7) (>> val 30)) 7))")
)
;; EOF