common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Add a 32-bit fasteval test config

Browse source
This commit is contained in:
Douglas Katzman 2024-05-04 15:01:04 -04:00
parent 18289dcc9d
commit 0db2006024
3 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
build-all-cores.sh
View file

@ -42,7 +42,7 @@
("riscv" ("riscv" :64-bit :little-endian :sb-thread))
("sparc" ("sparc" :big-endian)
("sparc-sunos" :big-endian :unix :sunos :elf))
("x86" ("x86" :little-endian :largefile)
("x86" ("x86" :little-endian :largefile (not :sb-eval) :sb-fasteval)
("x86-ascii" :little-endian :largefile (not :sb-unicode))
("x86-thread" :little-endian :largefile :sb-thread)
("x86-linux" :little-endian :largefile :sb-thread :linux :unix :elf :sb-thread))

2
crossbuild-runner/Makefile
View file

@ -60,7 +60,7 @@ obj/xbuild/sparc-sunos.core: obj/xbuild/sparc-sunos/xc.core
$(SBCL) $(ARGS) sparc-sunos < $(SCRIPT2)
obj/xbuild/x86/xc.core: $(DEPS1)
$(SBCL) $(ARGS) x86 x86 "(:WIN32 :SB-THREAD :SB-SAFEPOINT :LITTLE-ENDIAN :LARGEFILE)" < $(SCRIPT1)
$(SBCL) $(ARGS) x86 x86 "(:WIN32 :SB-THREAD :SB-SAFEPOINT :LITTLE-ENDIAN :LARGEFILE (NOT :SB-EVAL) :SB-FASTEVAL)" < $(SCRIPT1)
obj/xbuild/x86.core: obj/xbuild/x86/xc.core
$(SBCL) $(ARGS) x86 < $(SCRIPT2)

7
xperfecthash30.lisp-expr
View file

@ -1644,5 +1644,12 @@
(let ((b (& (>> val 2) #xf)))
(let ((a (>> (<< val 25) 28)))
(^ a (aref tab b))))))")
(#(30DA937 77E5AE3 943F70E A5E505F AC3B384 12383F25 134319CF 138670D7 14885FF8 15A6838A 17F4DBAA 182DE0D9 195B5734 19971E36
1B6C501D 1BB8AC21 1DABE532)
"(:ALLOW-OTHER-KEYS :SHARE-BLOCK-P :BLOCK-NAME :KEYWORD-BITS :N-OPTIONAL :MIN-ARGS :N-BOUND-VARS :SPECIALS :SEXPR :VALUES :SPECIAL-B :SYMBOLS :TYPE-RESTRICTIONS :EXTRA-TYPECHECKS :BINDING-TYPECHECKS :%POLICY :DECLARATIONS)"
"((let ((tab #a((16) (unsigned-byte 8) 0 0 0 0 0 15 3 0 13 12 0 0 0 15 20 13)))
(let ((b (& val #xf)))
(let ((a (>> (<< val 3) 28)))
(^ a (aref tab b))))))")
)
;; EOF