master: build-all-cores
snuglas via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 210ad59740c800fb19b583ad7c6c80882f7627e6 (commit)
from 8d53b4ca6ee9f46419231eb2485dcdab3b4fa979 (commit)
- Log -----------------------------------------------------------------
commit 210ad59740c800fb19b583ad7c6c80882f7627e6
Author: Douglas Katzman <[email protected]>
Date: Sat Aug 29 13:24:42 2026 +0000
build-all-cores
---
xperfecthash30.lisp-expr | 58 ++++++++++++++++++++++
xperfecthash61.lisp-expr | 12 +++++
xperfecthash63.lisp-expr | 124 +++++++++++++++++++++++++++++++++--------------
3 files changed, 157 insertions(+), 37 deletions(-)
diff --git a/xperfecthash30.lisp-expr b/xperfecthash30.lisp-expr
index 24121b1da..0ab31f34b 100644
--- a/xperfecthash30.lisp-expr
+++ b/xperfecthash30.lisp-expr
@@ -1,4 +1,16 @@
(
+(#(0 4 8 C 10 1C 20 24 28 2C 30 34 38 3C 40 44 48 4C 50 54 58 5C F4)
+ "(61 7 3 11 8 9 10 1 15 14 13 12 23 22 21 20 19 18 2 17 16 0 4)"
+ "((let ((tab #a((16) (unsigned-byte 8) 0 13 1 21 13 15 21 7 16 12 9 22 21 0 16 4)))
+ (let ((b (& (>> val 2) #xf)))
+ (let ((a (>> (<< val 24) 28)))
+ (^ a (aref tab b))))))")
+(#(0 4 8 C 10 20 24 28 2C 30 34 38 3C 40 44 48 4C 58 5C 60 64 F4)
+ "(61 8 3 12 9 10 11 1 16 15 14 13 25 24 23 22 19 2 18 17 0 4)"
+ "((let ((tab #a((16) (unsigned-byte 8) 0 13 1 7 7 0 15 21 14 13 16 22 16 13 18 22)))
+ (let ((b (& (>> val 2) #xf)))
+ (let ((a (>> (<< val 24) 28)))
+ (^ a (aref tab b))))))")
(#(0 4 8 C 18 1C 20 24 28 2C 30 34 38 3C 40 44 48 4C 50 54 58 5C F4)
"(61 6 3 11 8 9 10 7 15 14 13 12 23 22 21 20 19 18 2 17 16 0 1)"
"((let ((tab #a((16) (unsigned-byte 8) 0 13 1 21 15 21 13 7 16 12 9 22 21 0 16 4)))
@@ -38,9 +50,49 @@
(#(0 8 10 18 30 38)
"(14 12 4 2 6 0)"
"((& (^ (>> val 3) (>> val 4)) 7))")
+(#(0 8 10 44 48 4C)
+ "(18 17 2 19 4 0)"
+ "((let ((tab #a((4) (unsigned-byte 8) 7 0 2 2)))
+ (+= val #x24be15b7)
+ (^= val (>> val 4))
+ (let ((b (& (>> val 2) #x3)))
+ (let ((a (>> (u32+ val (<< val 24)) 30)))
+ (^ a (aref tab b))))))")
+(#(0 8 10 48 4C)
+ "(18 2 19 4 0)"
+ "((let ((tab #a((4) (unsigned-byte 8) 0 4 0 2)))
+ (+= val #x201699d4)
+ (^= val (>> val 4))
+ (let ((b (& (>> val 3) #x3)))
+ (let ((a (>> (u32+ val (<< val 20)) 30)))
+ (^ a (aref tab b))))))")
(#(4 8 20 40 100)
"(64 16 8 2 1)"
"((& (+ (>> val 2) (>> val 3) (>> val 7)) 7))")
+(#(4 C 14 18 20 34)
+ "(1 8 3 13 6 5)"
+ "((let ((tab #a((4) (unsigned-byte 8) 0 0 4 4)))
+ (let ((b (& (>> val 2) #x3)))
+ (let ((a (>> (<< val 26) 30)))
+ (^ a (aref tab b))))))")
+(#(4 C 14 1C 20 38)
+ "(1 8 3 14 7 5)"
+ "((let ((tab #a((4) (unsigned-byte 8) 7 0 7 2)))
+ (let ((b (& (>> val 2) #x3)))
+ (let ((a (>> (<< val 26) 30)))
+ (^ a (aref tab b))))))")
+(#(4 C 18 1C 34)
+ "(1 6 7 3 13)"
+ "((let ((tab #a((4) (unsigned-byte 8) 3 1 6 0)))
+ (let ((b (& (>> val 3) #x3)))
+ (let ((a (>> (<< val 29) 30)))
+ (^ a (aref tab b))))))")
+(#(4 20 24 28 2C)
+ "(1 10 9 11 8)"
+ "((let ((tab #a((4) (unsigned-byte 8) 3 0 1 6)))
+ (let ((b (& (>> val 2) #x3)))
+ (let ((a (>> (<< val 26) 30)))
+ (^ a (aref tab b))))))")
(#(8 C 14 20 30 38)
"(12 3 2 14 5 8)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
@@ -342,6 +394,9 @@
(let ((b (>> (<< val 3) 29)))
(let ((a (& val #x7)))
(^ a (aref tab b))))))")
+(#(AD3E74 7C835DD D8563BC 1256235A 17158E95)
+ "((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::CONTROL-STACK . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3) (SB-VM::ANY-REG . 4))"
+ "((& (+ val (>> val 2)) 7))")
(#(AD3E74 7C835DD 1256235A 17158E95)
"((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::ANY-REG . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3))"
"((& (>> val 7) 3))")
@@ -726,6 +781,9 @@
(let ((b (& val #x7)))
(let ((a (>> (<< val 3) 29)))
(^ a (aref tab b))))))")
+(#(29CA013 51B4652 BD70BB8 10F422B1 1A9C8A8E)
+ "(SB-C::%MORE SB-C::%REST SB-C::%OPTIONAL SB-C::%SUPPLIED-P SB-C::%DELETED)"
+ "((& (+ (>> val 1) (>> val 25)) 7))")
(#(29F44EF 4C0DDF8 9F3BC27 B9DB7B4 19019F31)
"#(:BINDS :CALLS :SETS :REFERENCES :MACROEXPANDS)"
"((& (- (>> val 4) (>> val 24)) 7))")
diff --git a/xperfecthash61.lisp-expr b/xperfecthash61.lisp-expr
index a6c9931c5..29dc91404 100644
--- a/xperfecthash61.lisp-expr
+++ b/xperfecthash61.lisp-expr
@@ -1,4 +1,10 @@
(
+(#(0 8 10 18 20 30 38 40 48 50 58 60 68 70 78 80 88 90 98 A0 A8 B0 1E8)
+ "(61 6 3 10 7 8 9 1 14 13 12 11 22 21 20 19 18 17 2 16 15 0 4)"
+ "((let ((tab #a((16) (unsigned-byte 8) 0 13 1 21 13 15 7 15 16 9 18 22 21 0 16 4)))
+ (let ((b (& (>> val 3) #xf)))
+ (let ((a (>> (<< val 23) 28)))
+ (^ a (aref tab b))))))")
(#(0 8 10 18 28 30 38 40 48 50 58 60 68 70 78 80 88 90 98 A0 A8 B0 1E8)
"(61 5 3 10 7 8 9 6 14 13 12 11 22 21 20 19 18 17 2 16 15 0 1)"
"((let ((tab #a((16) (unsigned-byte 8) 0 13 1 21 15 13 7 15 16 9 18 22 21 0 16 4)))
@@ -918,6 +924,9 @@
(#(2B465CCD 42D83FFB 6808911B 71FB8EC1 B169B946 DE0A9C1B FA4BD0D1)
"(:ALLOW-OTHER-KEYS :NOT-NULL :ELEMENT-TYPE :EXTERNAL-FORMAT :TO :ALIGNMENT :BITS)"
"((& (^ val (>> val 29)) 7))")
+(#(2BD70BB8 429CA013 451B4652 70F422B1 FA9C8A8E)
+ "(SB-C::%MORE SB-C::%REST SB-C::%OPTIONAL SB-C::%SUPPLIED-P SB-C::%DELETED)"
+ "((& (+ val (>> val 30)) 7))")
(#(2BF5F421 42D83FFB 4341F7D8 63C971D7 8F7912D6)
"(:ALLOW-OTHER-KEYS :LAMBDA-VAR :FIRED :LEXENV :SOURCE-PATH)"
"((& (- (>> val 1) (>> val 30)) 7))")
@@ -1228,6 +1237,9 @@
(#(52383212 C53C5D56 D3880CF4 E456475A ECDCC3EF)
"(&KEY &BODY &REST &AUX &OPTIONAL)"
"((& (+ val (>> val 8)) 7))")
+(#(5256235A 87C835DD E0AD3E74 ED8563BC F7158E95)
+ "((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::CONTROL-STACK . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3) (SB-VM::ANY-REG . 4))"
+ "((& (+ val (>> val 2)) 7))")
(#(5256235A 87C835DD E0AD3E74 F7158E95)
"((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::ANY-REG . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3))"
"((& (>> val 7) 3))")
diff --git a/xperfecthash63.lisp-expr b/xperfecthash63.lisp-expr
index db786dcfd..43ab23aa3 100644
--- a/xperfecthash63.lisp-expr
+++ b/xperfecthash63.lisp-expr
@@ -58,6 +58,38 @@
(let ((b (& val #x7)))
(let ((a (>> (u32+ val (<< val 25)) 29)))
(^ a (aref tab b))))))")
+(#(0 4 8 1E 20 22 28 2A)
+ "(15 16 20 21 2 17 4 0)"
+ "((let ((tab #a((4) (unsigned-byte 8) 0 4 7 0)))
+ (+= val #x2ebae1b0)
+ (^= val (>> val 4))
+ (let ((b (& (>> val 4) #x3)))
+ (let ((a (>> (u32+ val (<< val 28)) 30)))
+ (^ a (aref tab b))))))")
+(#(0 4 8 24 26 28 2E 30)
+ "(18 19 23 24 2 20 4 0)"
+ "((let ((tab #a((8) (unsigned-byte 8) 0 7 2 4 2 5 5 0)))
+ (+= val #xa4e87235)
+ (^= val (>> val 4))
+ (let ((b (& (>> val 1) #x7)))
+ (let ((a (>> (u32+ val (<< val 24)) 30)))
+ (^ a (aref tab b))))))")
+(#(0 4 8 32 34 36)
+ "(26 25 2 27 4 0)"
+ "((let ((tab #a((4) (unsigned-byte 8) 0 7 3 0)))
+ (+= val #x3d1cc7a5)
+ (^= val (>> val 4))
+ (let ((b (& (>> val 1) #x3)))
+ (let ((a (>> (u32+ val (<< val 27)) 30)))
+ (^ a (aref tab b))))))")
+(#(0 4 8 34 36)
+ "(26 2 27 4 0)"
+ "((let ((tab #a((4) (unsigned-byte 8) 0 0 2 6)))
+ (+= val #x14650a3e)
+ (^= val (>> val 4))
+ (let ((b (& (>> val 1) #x3)))
+ (let ((a (>> (u32+ val (<< val 26)) 30)))
+ (^ a (aref tab b))))))")
(#(0 58AA11D 33FB65F5 DE12C038)
"#(:OFFSET :POST-INDEX 0 :PRE-INDEX)"
"((& (>> val 2) 3))")
@@ -185,6 +217,43 @@
(#(2 4 10 20 80)
"(64 16 8 2 1)"
"((& (+ (>> val 1) (>> val 2) (>> val 6)) 7))")
+(#(2 6 A C 16)
+ "(1 6 3 11 5)"
+ "((& (^ (>> val 2) (>> val 4)) 7))")
+(#(2 6 A C 18)
+ "(1 6 3 12 5)"
+ "((& (+ (>> val 2) (>> val 3) (>> val 4)) 7))")
+(#(2 6 A 16 26)
+ "(1 5 3 11 19)"
+ "((& (^ (>> val 2) (>> val 4)) 7))")
+(#(2 6 A 16 2C)
+ "(1 5 3 11 22)"
+ "((let ((tab #a((4) (unsigned-byte 8) 0 6 2 0)))
+ (+= val #xe705d0f4)
+ (^= val (>> val 4))
+ (let ((b (& (>> val 2) #x3)))
+ (let ((a (>> (u32+ val (<< val 21)) 30)))
+ (^ a (aref tab b))))))")
+(#(2 6 A 18 26)
+ "(1 5 3 12 19)"
+ "((let ((tab #a((4) (unsigned-byte 8) 2 1 0 5)))
+ (+= val #xe705d0f4)
+ (^= val (>> val 4))
+ (let ((b (& (>> val 2) #x3)))
+ (let ((a (>> (u32+ val (<< val 21)) 30)))
+ (^ a (aref tab b))))))")
+(#(2 6 A 18 2C)
+ "(1 5 3 12 22)"
+ "((let ((tab #a((4) (unsigned-byte 8) 3 1 0 4)))
+ (let ((b (& (>> val 2) #x3)))
+ (let ((a (>> (<< val 30) 30)))
+ (^ a (aref tab b))))))")
+(#(2 A E 10 12 16 18 1A 1C 2C)
+ "(14 13 12 11 22 9 8 7 1 5)"
+ "((let ((tab #a((8) (unsigned-byte 8) 5 0 0 11 11 5 0 0)))
+ (let ((b (& (>> val 1) #x7)))
+ (let ((a (>> (<< val 26) 29)))
+ (^ a (aref tab b))))))")
(#(4 6 A 10 18 1C)
"(12 3 2 14 5 8)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
@@ -251,6 +320,18 @@
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
+(#(A E 10 16 26)
+ "(11 19 7 8 5)"
+ "((let ((tab #a((4) (unsigned-byte 8) 2 4 0 0)))
+ (let ((b (& (>> val 1) #x3)))
+ (let ((a (>> (<< val 26) 30)))
+ (^ a (aref tab b))))))")
+(#(A E 10 16 2C)
+ "(11 22 7 8 5)"
+ "((let ((tab #a((4) (unsigned-byte 8) 2 2 6 0)))
+ (let ((b (& (>> val 1) #x3)))
+ (let ((a (>> (<< val 26) 30)))
+ (^ a (aref tab b))))))")
(#(C 2E 34 36 38 3A 3C)
"(26 30 29 28 27 23 6)"
"((& (+ (>> val 1) (>> val 2) (>> val 4)) 7))")
@@ -1297,6 +1378,9 @@
(#(2B465CCD 42D83FFB 6808911B 71FB8EC1 B169B946 DE0A9C1B FA4BD0D1)
"(:ALLOW-OTHER-KEYS :NOT-NULL :ELEMENT-TYPE :EXTERNAL-FORMAT :TO :ALIGNMENT :BITS)"
"((& (^ val (>> val 29)) 7))")
+(#(2BD70BB8 429CA013 451B4652 70F422B1 FA9C8A8E)
+ "(SB-C::%MORE SB-C::%REST SB-C::%OPTIONAL SB-C::%SUPPLIED-P SB-C::%DELETED)"
+ "((& (+ val (>> val 30)) 7))")
(#(2BF5F421 42D83FFB 4341F7D8 63C971D7 8F7912D6)
"(:ALLOW-OTHER-KEYS :LAMBDA-VAR :FIRED :LEXENV :SOURCE-PATH)"
"((& (- (>> val 1) (>> val 30)) 7))")
@@ -1663,6 +1747,9 @@
(#(52383212 C53C5D56 D3880CF4 E456475A ECDCC3EF)
"(&KEY &BODY &REST &AUX &OPTIONAL)"
"((& (+ val (>> val 8)) 7))")
+(#(5256235A 87C835DD E0AD3E74 ED8563BC F7158E95)
+ "((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::CONTROL-STACK . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3) (SB-VM::ANY-REG . 4))"
+ "((& (+ val (>> val 2)) 7))")
(#(5256235A 87C835DD E0AD3E74 F7158E95)
"((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::ANY-REG . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3))"
"((& (>> val 7) 3))")
@@ -1835,42 +1922,5 @@
(#(A49305EF D0241AE7 E55E7F8C EE9A5410)
"(SB-PCL::%CLASS SB-PCL::%PARAMETER SB-PCL::%VARIABLE-REBINDING SPECIAL)"
"((& (>> val 8) 3))")
-(#(5256235A 87C835DD E0AD3E74 ED8563BC F7158E95)
- "((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::CONTROL-STACK . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3) (SB-VM::ANY-REG . 4))"
- "((& (+ val (>> val 2)) 7))")
-(#(2 6 A 16 2C)
- "(1 5 3 11 22)"
- "((let ((tab #a((4) (unsigned-byte 8) 0 6 2 0)))
- (+= val #xe705d0f4)
- (^= val (>> val 4))
- (let ((b (& (>> val 2) #x3)))
- (let ((a (>> (u32+ val (<< val 21)) 30)))
- (^ a (aref tab b))))))")
-(#(2 6 A 18 2C)
- "(1 5 3 12 22)"
- "((let ((tab #a((4) (unsigned-byte 8) 3 1 0 4)))
- (let ((b (& (>> val 2) #x3)))
- (let ((a (>> (<< val 30) 30)))
- (^ a (aref tab b))))))")
-(#(A E 10 16 2C)
- "(11 22 7 8 5)"
- "((let ((tab #a((4) (unsigned-byte 8) 2 2 6 0)))
- (let ((b (& (>> val 1) #x3)))
- (let ((a (>> (<< val 26) 30)))
- (^ a (aref tab b))))))")
-(#(0 4 8 24 26 28 2E 30)
- "(18 19 23 24 2 20 4 0)"
- "((let ((tab #a((8) (unsigned-byte 8) 0 7 2 4 2 5 5 0)))
- (+= val #xa4e87235)
- (^= val (>> val 4))
- (let ((b (& (>> val 1) #x7)))
- (let ((a (>> (u32+ val (<< val 24)) 30)))
- (^ a (aref tab b))))))")
-(#(2 A E 10 12 16 18 1A 1C 2C)
- "(14 13 12 11 22 9 8 7 1 5)"
- "((let ((tab #a((8) (unsigned-byte 8) 5 0 0 11 11 5 0 0)))
- (let ((b (& (>> val 1) #x7)))
- (let ((a (>> (<< val 26) 29)))
- (^ a (aref tab b))))))")
)
;; EOF
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL