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 fasteval build config

Browse source
This commit is contained in:
Douglas Katzman 2024-03-06 08:30:14 -05:00
parent a688e7052f
commit 0b505bc5a4
3 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
build-all-cores.sh
View file

@ -47,7 +47,8 @@
("x86-thread" :little-endian :largefile :sb-thread)
("x86-linux" :little-endian :largefile :sb-thread :linux :unix :elf :sb-thread))
("x86-64" ("x86-64" :little-endian :avx2 :gencgc :sb-simd-pack :sb-simd-pack-256)
("x86-64-linux" :linux :unix :elf :little-endian :avx2 :gencgc :sb-simd-pack :sb-simd-pack-256)
("x86-64-linux" :linux :unix :elf :little-endian :avx2 :gencgc :sb-simd-pack :sb-simd-pack-256
(not :sb-eval) :sb-fasteval)
("x86-64-darwin" :darwin :bsd :unix :mach-o :little-endian :avx2 :gencgc
:sb-simd-pack :sb-simd-pack-256)
("x86-64-imm" :little-endian :avx2 :gencgc :sb-simd-pack :sb-simd-pack-256

2
crossbuild-runner/Makefile
View file

@ -85,7 +85,7 @@ obj/xbuild/x86-64.core: obj/xbuild/x86-64/xc.core
$(SBCL) $(ARGS) x86-64 < $(SCRIPT2)
obj/xbuild/x86-64-linux/xc.core: $(DEPS1)
$(SBCL) $(ARGS) x86-64-linux x86-64 "(:LINUX :UNIX :ELF :LITTLE-ENDIAN :AVX2 :GENCGC :SB-SIMD-PACK :SB-SIMD-PACK-256)" < $(SCRIPT1)
$(SBCL) $(ARGS) x86-64-linux x86-64 "(:LINUX :UNIX :ELF :LITTLE-ENDIAN :AVX2 :GENCGC :SB-SIMD-PACK :SB-SIMD-PACK-256 (NOT :SB-EVAL) :SB-FASTEVAL)" < $(SCRIPT1)
obj/xbuild/x86-64-linux.core: obj/xbuild/x86-64-linux/xc.core
$(SBCL) $(ARGS) x86-64-linux < $(SCRIPT2)

7
xperfecthash63.lisp-expr
View file

@ -2896,5 +2896,12 @@
(let ((b (& (>> val 1) #xf)))
(let ((a (>> (<< val 7) 28)))
(^ a (aref tab b))))))")
(#(B74EA80 2315A63C 285D29BD 46CDAA6D 4913800D 5597FB3D 5708B5D3 708C7CD6 74191541 74477BB4 7E4DD5CC A3B42EB2 A5860C2B E41ED3F1
E61904A7 ED178322 F68E2BEE)
"(:DECLARATIONS :%POLICY :BINDING-TYPECHECKS :EXTRA-TYPECHECKS :TYPE-RESTRICTIONS :SYMBOLS :SPECIAL-B :VALUES :SEXPR :SPECIALS :N-BOUND-VARS :MIN-ARGS :N-OPTIONAL :KEYWORD-BITS :BLOCK-NAME :SHARE-BLOCK-P :ALLOW-OTHER-KEYS)"
"((let ((tab #a((16) (unsigned-byte 8) 14 0 0 24 14 13 10 0 0 1 10 0 0 7 3 12)))
(let ((b (& (>> val 5) #xf)))
(let ((a (>> (<< val 31) 28)))
(^ a (aref tab b))))))")
)
;; EOF