mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
build-all-cores
This commit is contained in:
Douglas Katzman
parent
e6455a7841
commit
3d4fe67e29
|
|
@ -585,6 +585,9 @@
|
|||
(let ((b (& (>> val 12) #x7)))
|
||||
(let ((a (>> (<< val 5) 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(111A059 216D041 7AF46F4 E1EF1D5)
|
||||
"(SB-ASSEM:.ALIGN SB-ASSEM:.BYTE SB-ASSEM:.SKIP SB-ASSEM:.LISPWORDS)"
|
||||
"((& (>> val 12) 3))")
|
||||
(#(11242EA 9E7E496 C8B4E43 EC3EAC9 10A5F7E1 1B5DB13A 1C58D005 1C805E5B 1ED1FDF2 1F4BDEE8)
|
||||
"(SB-C:MULTIPLE-CALL SB-C:MULTIPLE-CALL-LOCAL SB-C:MULTIPLE-CALL-NAMED SB-C:STATIC-MULTIPLE-CALL-NAMED SB-C:MULTIPLE-CALL-VARIABLE SB-C:PUSH-VALUES VALUES-LIST SB-C::REVERSE-VALUES-LIST SB-C:%MORE-ARG-VALUES UNALIGNED-DX-CONS)"
|
||||
"((let ((tab #a((8) (unsigned-byte 8) 14 0 0 2 0 5 10 0)))
|
||||
|
|
@ -665,6 +668,9 @@
|
|||
(#(1C5C66D 2D83FFB 497BDAC 9894789 DD9FE8B 1264B103 12B75C5F 1C78155D)
|
||||
"(:ALLOW-OTHER-KEYS :PRINT-WEEKDAY :PRINT-TIMEZONE :PRINT-MERIDIAN :PRINT-SECONDS :DATE-FIRST :STYLE :TIMEZONE)"
|
||||
"((& (+ (>> val 2) (>> val 7) (>> val 11)) 7))")
|
||||
(#(1C5FD66 2799ABB 32BCE23 CA550C6 10BCF1E4 15455F60 1647F466)
|
||||
"(:DIRECT :PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
|
||||
"((& (>> val 7) 7))")
|
||||
(#(1C5FD66 91ED00E 102153B3 1336F1AC 1CF43650)
|
||||
"(:FIXED :KNOWN-RETURN :LOCAL-CALL :FULL-CALL NIL)"
|
||||
"((& (+ (>> val 10) (>> val 18)) 7))")
|
||||
|
|
@ -1204,6 +1210,12 @@
|
|||
(let ((b (& val #xf)))
|
||||
(let ((a (>> (<< val 3) 28)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(3C481C2 4528420 A3E03D5 10F360C2 11F36255 137BB764 13D42188 15F368A1 17F36BC7)
|
||||
"(ABS FLOOR * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((let ((tab #a((8) (unsigned-byte 8) 0 13 2 0 4 7 0 2)))
|
||||
(let ((b (& val #x7)))
|
||||
(let ((a (>> (<< val 3) 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(3C481C2 4528420 A3E03D5 10F360C2 11F36255 13D42188 15F368A1 17F36BC7)
|
||||
"(FLOOR * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((& (- val (>> val 12)) 7))")
|
||||
|
|
@ -1264,6 +1276,9 @@
|
|||
(#(450DECD DB121C2 102153B3 12B126B3 13D924E0)
|
||||
"(NIL :FROB-NFP :LOAD-RETURN-PC :LOAD-OLD-FP :LOAD-NARGS)"
|
||||
"((& (+ (>> val 5) (>> val 7)) 7))")
|
||||
(#(4528420 A3E03D5 10F360C2 11F36255 137BB764 13D42188 15F368A1 17F36BC7)
|
||||
"(ABS * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((& (+ (>> val 23) (>> val 26)) 7))")
|
||||
(#(4528420 A3E03D5 10F360C2 11F36255 13D42188 15F368A1 17F36BC7)
|
||||
"(* ASH TRUNCATE / %NEGATE + -)"
|
||||
"((& (- (>> val 6) (>> val 25)) 7))")
|
||||
|
|
@ -1279,6 +1294,9 @@
|
|||
(#(456475A 53C5D56 CDCC3EF 12383212 13880CF4)
|
||||
"(&KEY &BODY &REST &AUX &OPTIONAL)"
|
||||
"((& (+ val (>> val 8)) 7))")
|
||||
(#(45D9F5E 487643D 9F68C87 BD63E3B 11AAA153 15B1443E 19E47BF0)
|
||||
"(%MAKE-LIST MAKE-ARRAY VECTOR-SUBSEQ SUBSEQ STRING VECTOR LIST)"
|
||||
"((& (+ (>> val 1) (>> val 17) (>> val 19)) 7))")
|
||||
(#(45D9F5E 487643D BD63E3B 11AAA153 15B1443E 19E47BF0)
|
||||
"(%MAKE-LIST MAKE-ARRAY VECTOR-SUBSEQ SUBSEQ VECTOR LIST)"
|
||||
"((& (- (>> val 8) (>> val 13)) 7))")
|
||||
|
|
@ -1339,6 +1357,9 @@
|
|||
(#(4F34DDE 6F35104 7F35297 F039DEB 16B428A2 1C33E6FC)
|
||||
"(< = EQL EQ >= >)"
|
||||
"((& (+ val (>> val 10)) 7))")
|
||||
(#(4F34DDE 6F35104 7F35297 16B428A2 1C33E6FC)
|
||||
"(> < = EQL EQ)"
|
||||
"((& (^ (>> val 2) (>> val 7)) 7))")
|
||||
(#(4F34DDE 6F35104 B08DE4D F039DEB)
|
||||
"(< <= > >=)"
|
||||
"((& val 3))")
|
||||
|
|
@ -1567,9 +1588,21 @@
|
|||
(let ((b (& (>> val 10) #x7)))
|
||||
(let ((a (>> val 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(109BE3BD 10D2EA4E 15A58D85 15B5A2B5 163D9B36 17524A78 1769E419 18906D08 1C065CB8)
|
||||
"#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)))"
|
||||
"((let ((tab #a((8) (unsigned-byte 8) 2 4 0 0 8 0 0 6)))
|
||||
(let ((b (& (>> val 4) #x7)))
|
||||
(let ((a (>> (<< val 5) 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(109BE3BD 10D2EA4E 15A58D85 15B5A2B5 17524A78 1769E419 18906D08)
|
||||
"#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION)))"
|
||||
"((& (+ (>> val 1) (>> val 11)) 7))")
|
||||
(#(109BE3BD 10D2EA4E 15A58D85 17524A78 1769E419 18906D08 1CAE048E)
|
||||
"#(((:TYPE SB-C::ENTRY) (:TYPE BIND) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION)))"
|
||||
"((& (+ val (>> val 13)) 7))")
|
||||
(#(109BE3BD 10D2EA4E 15A58D85 17524A78 1769E419 1CAE048E)
|
||||
"(SB-C::REF DELAY SB-C::ARRAY-INDEX-CAST CAST BIND SB-C::ENTRY)"
|
||||
"((& (- (>> val 20) (>> val 25)) 7))")
|
||||
(#(10A42F45 11651A3C 15CBCE15 1793ACF5 17C9E519 1B009DDD 1FCCE011)
|
||||
"#(((:TYPE SB-C::CLAMBDA) (:TYPE SB-C::OPTIONAL-DISPATCH) (:TYPE SB-C::FUNCTIONAL) (:TYPE CONSTANT)) ((:TYPE SB-C::LAMBDA-VAR)) ((:TYPE SB-C::DEFINED-FUN)) ((:TYPE SB-C::GLOBAL-VAR)))"
|
||||
"((& (- (>> val 6) (>> val 13)) 7))")
|
||||
|
|
|
|||
|
|
@ -478,9 +478,18 @@
|
|||
(let ((b (& val #x7)))
|
||||
(let ((a (>> val 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(9A320D4 37D0286E 39CAA339 43BBEE18 4D61368F 53222DFB BFA86189 F9BA9C52 FEE99A95)
|
||||
"#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)))"
|
||||
"((let ((tab #a((8) (unsigned-byte 8) 0 0 0 4 0 4 5 10)))
|
||||
(let ((b (& val #x7)))
|
||||
(let ((a (>> val 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(9A320D4 37D0286E 39CAA339 43BBEE18 53222DFB BFA86189 FEE99A95)
|
||||
"#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION)))"
|
||||
"((& (- (>> val 1) (>> val 26)) 7))")
|
||||
(#(9A320D4 37D0286E 43BBEE18 53222DFB BFA86189 EAA3DA5C FEE99A95)
|
||||
"#(((:TYPE SB-C::ENTRY) (:TYPE BIND) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION)))"
|
||||
"((& (- val (>> val 5)) 7))")
|
||||
(#(9A320D4 39CAA339 43BBEE18 4D61368F 53222DFB 536D8784 9380837C BFA86189 EDA1037F FEE99A95)
|
||||
"#(((:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::MV-COMBINATION)) ((:TYPE EXIT)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)))"
|
||||
"((let ((tab #a((8) (unsigned-byte 8) 5 0 0 11 0 15 0 4)))
|
||||
|
|
@ -502,6 +511,9 @@
|
|||
(#(9F68C87 18919578 C49039A2 E487643D F5B1443E)
|
||||
"(SIMPLE-STRING STRING SIMPLE-VECTOR VECTOR LIST)"
|
||||
"((& (+ val (>> val 27)) 7))")
|
||||
(#(9F68C87 8BD63E3B A45D9F5E D1AAA153 D9E47BF0 E487643D F5B1443E)
|
||||
"(%MAKE-LIST MAKE-ARRAY VECTOR-SUBSEQ SUBSEQ STRING VECTOR LIST)"
|
||||
"((& (- (>> val 13) (>> val 28)) 7))")
|
||||
(#(A843D76 42D83FFB 4AFE864E 64F3EC9B 686508A6 69DEB0A1 6B650D5F 9B6C0324 9C117DC2 A11BBD24 AD4575D9 B3B59B8C B72C7D24 E80678B2
|
||||
EEBA0CC8 F0078F6A)
|
||||
"(:ALLOW-OTHER-KEYS :SINGLETON-P :ENUMERABLE-P :MIGHT-CONTAIN-OTHER-TYPES-P :UNPARSE :NEGATE :COMPLEX-= :SIMPLE-= :COMPLEX-INTERSECTION2 :SIMPLE-INTERSECTION2 :COMPLEX-UNION2 :SIMPLE-UNION2 :COMPLEX-SUBTYPEP-ARG2 :COMPLEX-SUBTYPEP-ARG1 :SIMPLE-SUBTYPEP :NAME)"
|
||||
|
|
@ -824,6 +836,9 @@
|
|||
(#(225B3CE5 42D83FFB 645CF61B 64BF0315 8A9A92D0 9BC82B5D EBD01872)
|
||||
"(:ALLOW-OTHER-KEYS :INFINITY-DATA :OPERATIONS :FLAG-VARIABLE :TEMP-VARIABLE :TYPE :ANSWER-VARIABLE)"
|
||||
"((& (^ (>> val 3) (>> val 30)) 7))")
|
||||
(#(22799ABB 2CA550C6 30BCF1E4 35455F60 9647F466 A1C5FD66 A32BCE23)
|
||||
"(:DIRECT :PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
|
||||
"((& (>> val 7) 7))")
|
||||
(#(23533B6B 42D83FFB 5C084D2B 7D30DC7C AD4575D9)
|
||||
"(:ALLOW-OTHER-KEYS :WARNINGS :COUNT :KIND :NAME)"
|
||||
"((& (- val (>> val 5)) 7))")
|
||||
|
|
@ -1307,6 +1322,9 @@
|
|||
(#(56B428A2 BDD50DB7 D5F71886 ECF81B20)
|
||||
"(CLASS SB-PCL::PROTOTYPE SB-PCL::CLASS-EQ EQL)"
|
||||
"((& (+ val (>> val 1)) 3))")
|
||||
(#(56B428A2 C4F34DDE C6F35104 C7F35297 DC33E6FC)
|
||||
"(> < = EQL EQ)"
|
||||
"((& (^ (>> val 2) (>> val 7)) 7))")
|
||||
(#(56B428A2 C4F34DDE C6F35104 C7F35297 DC33E6FC EF039DEB)
|
||||
"(< = EQL EQ >= >)"
|
||||
"((& (+ val (>> val 10)) 7))")
|
||||
|
|
@ -1319,6 +1337,12 @@
|
|||
(#(5DBEE1CC 62B68C07 A24AA20E A2BAE11F E86FEA63)
|
||||
"(:COVERAGE-MARKS :KNOWN-FUN :FDEFINITION :LOAD-TIME-VALUE :ENTRY)"
|
||||
"((& (^ val (>> val 18)) 7))")
|
||||
(#(63C481C2 6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
|
||||
"(ABS FLOOR * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((let ((tab #a((8) (unsigned-byte 8) 0 0 4 0 12 2 0 6)))
|
||||
(let ((b (& val #x7)))
|
||||
(let ((a (>> val 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(63C481C2 6A3E03D5 73D42188 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
|
||||
"(FLOOR * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((& (- val (>> val 12)) 7))")
|
||||
|
|
@ -1331,6 +1355,12 @@
|
|||
(#(65E06B8A 66E06D1D 67E06EB0 68E07043 69E071D6 6AE07369 6BE074FC 6CE0768F)
|
||||
"#(:CR0 :CR1 :CR2 :CR3 :CR4 :CR5 :CR6 :CR7)"
|
||||
"((& val 7))")
|
||||
(#(67AF46F4 8216D041 E111A059 EE1EF1D5)
|
||||
"(SB-ASSEM:.ALIGN SB-ASSEM:.BYTE SB-ASSEM:.SKIP SB-ASSEM:.LISPWORDS)"
|
||||
"((& (>> val 12) 3))")
|
||||
(#(6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
|
||||
"(ABS * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((& (- val (>> val 28)) 7))")
|
||||
(#(6A3E03D5 73D42188 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
|
||||
"(* ASH TRUNCATE / %NEGATE + -)"
|
||||
"((& (- (>> val 6) (>> val 25)) 7))")
|
||||
|
|
|
|||
|
|
@ -284,6 +284,16 @@
|
|||
(let ((b (& (>> val 2) #x3)))
|
||||
(let ((a (>> (<< val 30) 30)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(5 6 F F38 F3A 9FEA759A A2EA7A53)
|
||||
"(6 :MAP6 5 :MAP5 3898 3896 15)"
|
||||
"((let ((tab #a((4) (unsigned-byte 8) 3 0 7 0)))
|
||||
(+= val #x4c7a405c)
|
||||
(^= val (>> val 16))
|
||||
(+= val (<< val 8))
|
||||
(^= val (>> val 4))
|
||||
(let ((b (& (>> val 8) #x3)))
|
||||
(let ((a (>> (u32+ val (<< val 7)) 30)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(6 8 A 16 26)
|
||||
"(5 4 3 11 19)"
|
||||
"((let ((tab #a((4) (unsigned-byte 8) 3 4 0 0)))
|
||||
|
|
@ -702,6 +712,9 @@
|
|||
(#(9F68C87 18919578 C49039A2 E487643D F5B1443E)
|
||||
"(SIMPLE-STRING STRING SIMPLE-VECTOR VECTOR LIST)"
|
||||
"((& (+ val (>> val 27)) 7))")
|
||||
(#(9F68C87 8BD63E3B A45D9F5E D1AAA153 D9E47BF0 E487643D F5B1443E)
|
||||
"(%MAKE-LIST MAKE-ARRAY VECTOR-SUBSEQ SUBSEQ STRING VECTOR LIST)"
|
||||
"((& (- (>> val 13) (>> val 28)) 7))")
|
||||
(#(A843D76 42D83FFB 4AFE864E 64F3EC9B 686508A6 69DEB0A1 6B650D5F 9B6C0324 9C117DC2 A11BBD24 AD4575D9 B3B59B8C B72C7D24 E80678B2
|
||||
EEBA0CC8 F0078F6A)
|
||||
"(:ALLOW-OTHER-KEYS :SINGLETON-P :ENUMERABLE-P :MIGHT-CONTAIN-OTHER-TYPES-P :UNPARSE :NEGATE :COMPLEX-= :SIMPLE-= :COMPLEX-INTERSECTION2 :SIMPLE-INTERSECTION2 :COMPLEX-UNION2 :SIMPLE-UNION2 :COMPLEX-SUBTYPEP-ARG2 :COMPLEX-SUBTYPEP-ARG1 :SIMPLE-SUBTYPEP :NAME)"
|
||||
|
|
@ -969,6 +982,12 @@
|
|||
(let ((b (& (>> val 2) #x7)))
|
||||
(let ((a (>> (<< val 5) 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(121068DD 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 897B4656 A68A3965 F9BA9C52)
|
||||
"#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)))"
|
||||
"((let ((tab #a((8) (unsigned-byte 8) 0 0 12 2 5 3 2 3)))
|
||||
(let ((b (& (>> val 27) #x7)))
|
||||
(let ((a (>> (<< val 31) 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(121068DD 37D0286E 58110E7F 67EE2D1A 6D9A883D 897B4656 A68A3965)
|
||||
"#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION)))"
|
||||
"((& (+ (>> val 1) (>> val 27)) 7))")
|
||||
|
|
@ -1214,6 +1233,15 @@
|
|||
(#(225B3CE5 42D83FFB 645CF61B 64BF0315 8A9A92D0 9BC82B5D EBD01872)
|
||||
"(:ALLOW-OTHER-KEYS :INFINITY-DATA :OPERATIONS :FLAG-VARIABLE :TEMP-VARIABLE :TYPE :ANSWER-VARIABLE)"
|
||||
"((& (^ (>> val 3) (>> val 30)) 7))")
|
||||
(#(22799ABB 2CA550C6 30BCF1E4 35455F60 9647F466 A1C5FD66)
|
||||
"(:PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
|
||||
"((& (- val (>> val 24)) 7))")
|
||||
(#(22799ABB 2CA550C6 30BCF1E4 35455F60 9647F466 A1C5FD66 A32BCE23)
|
||||
"(:DIRECT :PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
|
||||
"((& (>> val 7) 7))")
|
||||
(#(22799ABB 9647F466 A1C5FD66 A309B799 EB45269C)
|
||||
"(:UNBOXED :TAIL :PASS-THROUGH :UNKNOWN :FIXED)"
|
||||
"((& (^ (>> val 4) (>> val 16)) 7))")
|
||||
(#(23533B6B 42D83FFB 5C084D2B 7D30DC7C AD4575D9)
|
||||
"(:ALLOW-OTHER-KEYS :WARNINGS :COUNT :KIND :NAME)"
|
||||
"((& (- val (>> val 5)) 7))")
|
||||
|
|
@ -1520,6 +1548,12 @@
|
|||
(#(379EC24E B0932BD7 DBE841E7)
|
||||
"((ASSOC-IF . ASSOC-IF-NOT) (RASSOC-IF . RASSOC-IF-NOT) (MEMBER-IF . MEMBER-IF-NOT))"
|
||||
"((^ (>> val 30) 2))")
|
||||
(#(37D0286E 58110E7F 67EE2D1A 6D9A883D 897B4656 A68A3965 EAA3DA5C)
|
||||
"#(((:TYPE SB-C::ENTRY) (:TYPE BIND) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION)))"
|
||||
"((& (+ (>> val 4) (>> val 15)) 7))")
|
||||
(#(37D0286E 58110E7F 67EE2D1A 6D9A883D 897B4656 EAA3DA5C)
|
||||
"(SB-C::REF DELAY SB-C::ARRAY-INDEX-CAST CAST BIND SB-C::ENTRY)"
|
||||
"((& (- (>> val 2) (>> val 29)) 7))")
|
||||
(#(3836DEFB 6A1FC394 A56E935B AB2C6780 F36C4AC5)
|
||||
"(:LAYOUT-ID :LAYOUT :IMMOBILE-SYMBOL :SYMBOL-TLS-INDEX :CARD-TABLE-INDEX-MASK)"
|
||||
"((& (>> val 11) 7))")
|
||||
|
|
@ -1814,6 +1848,9 @@
|
|||
(#(56B428A2 BDD50DB7 D5F71886 ECF81B20)
|
||||
"(CLASS SB-PCL::PROTOTYPE SB-PCL::CLASS-EQ EQL)"
|
||||
"((& (+ val (>> val 1)) 3))")
|
||||
(#(56B428A2 C4F34DDE C6F35104 C7F35297 DC33E6FC)
|
||||
"(> < = EQL EQ)"
|
||||
"((& (^ (>> val 2) (>> val 7)) 7))")
|
||||
(#(56B428A2 C4F34DDE C6F35104 C7F35297 DC33E6FC EF039DEB)
|
||||
"(< = EQL EQ >= >)"
|
||||
"((& (+ val (>> val 10)) 7))")
|
||||
|
|
@ -1838,6 +1875,12 @@
|
|||
(let ((b (& val #x7)))
|
||||
(let ((a (>> val 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(63C481C2 6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
|
||||
"(ABS FLOOR * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((let ((tab #a((8) (unsigned-byte 8) 0 0 4 0 12 2 0 6)))
|
||||
(let ((b (& val #x7)))
|
||||
(let ((a (>> val 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(63C481C2 6A3E03D5 73D42188 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
|
||||
"(FLOOR * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((& (- val (>> val 12)) 7))")
|
||||
|
|
@ -1847,6 +1890,12 @@
|
|||
(let ((b (& (>> val 6) #x7)))
|
||||
(let ((a (>> (<< val 31) 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(67AF46F4 8216D041 E111A059 EE1EF1D5)
|
||||
"(SB-ASSEM:.ALIGN SB-ASSEM:.BYTE SB-ASSEM:.SKIP SB-ASSEM:.LISPWORDS)"
|
||||
"((& (>> val 12) 3))")
|
||||
(#(6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
|
||||
"(ABS * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((& (- val (>> val 28)) 7))")
|
||||
(#(6A3E03D5 73D42188 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
|
||||
"(* ASH TRUNCATE / %NEGATE + -)"
|
||||
"((& (- (>> val 6) (>> val 25)) 7))")
|
||||
|
|
@ -1938,41 +1987,5 @@
|
|||
(#(A49305EF D0241AE7 E55E7F8C EE9A5410)
|
||||
"(SB-PCL::%CLASS SB-PCL::%PARAMETER SB-PCL::%VARIABLE-REBINDING SPECIAL)"
|
||||
"((& (>> val 8) 3))")
|
||||
(#(22799ABB 2CA550C6 30BCF1E4 35455F60 9647F466 A1C5FD66)
|
||||
"(:PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
|
||||
"((& (- val (>> val 24)) 7))")
|
||||
(#(22799ABB 9647F466 A1C5FD66 A309B799 EB45269C)
|
||||
"(:UNBOXED :TAIL :PASS-THROUGH :UNKNOWN :FIXED)"
|
||||
"((& (^ (>> val 4) (>> val 16)) 7))")
|
||||
(#(37D0286E 58110E7F 67EE2D1A 6D9A883D 897B4656 A68A3965 EAA3DA5C)
|
||||
"#(((:TYPE SB-C::ENTRY) (:TYPE BIND) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION)))"
|
||||
"((& (+ (>> val 4) (>> val 15)) 7))")
|
||||
(#(22799ABB 2CA550C6 30BCF1E4 35455F60 9647F466 A1C5FD66 A32BCE23)
|
||||
"(:DIRECT :PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
|
||||
"((& (>> val 7) 7))")
|
||||
(#(67AF46F4 8216D041 E111A059 EE1EF1D5)
|
||||
"(SB-ASSEM:.ALIGN SB-ASSEM:.BYTE SB-ASSEM:.SKIP SB-ASSEM:.LISPWORDS)"
|
||||
"((& (>> val 12) 3))")
|
||||
(#(63C481C2 6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
|
||||
"(ABS FLOOR * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((let ((tab #a((8) (unsigned-byte 8) 0 0 4 0 12 2 0 6)))
|
||||
(let ((b (& val #x7)))
|
||||
(let ((a (>> val 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
|
||||
"(ABS * ASH TRUNCATE / %NEGATE + -)"
|
||||
"((& (- val (>> val 28)) 7))")
|
||||
(#(56B428A2 C4F34DDE C6F35104 C7F35297 DC33E6FC)
|
||||
"(> < = EQL EQ)"
|
||||
"((& (^ (>> val 2) (>> val 7)) 7))")
|
||||
(#(121068DD 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 897B4656 A68A3965 F9BA9C52)
|
||||
"#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)))"
|
||||
"((let ((tab #a((8) (unsigned-byte 8) 0 0 12 2 5 3 2 3)))
|
||||
(let ((b (& (>> val 27) #x7)))
|
||||
(let ((a (>> (<< val 31) 29)))
|
||||
(^ a (aref tab b))))))")
|
||||
(#(9F68C87 8BD63E3B A45D9F5E D1AAA153 D9E47BF0 E487643D F5B1443E)
|
||||
"(%MAKE-LIST MAKE-ARRAY VECTOR-SUBSEQ SUBSEQ STRING VECTOR LIST)"
|
||||
"((& (- (>> val 13) (>> val 28)) 7))")
|
||||
)
|
||||
;; EOF
|
||||
|
|
|
|||
Loading…
Reference in a new issue