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

Adjust foreign-stack-alignment.impure for x86.

Browse source 
Check for 16 bytes of alignment.
This commit is contained in:
Stas Boukarev 2017-12-06 23:45:30 +03:00
parent e9f752f014
commit 954a0f30ca
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/compiler/fndb.lisp
View file

@ -1805,7 +1805,8 @@
(defknown data-nil-vector-ref (simple-array index) nil
(always-translatable))
(defknown data-vector-set (array index t) t
(always-translatable))
(always-translatable)
:destroyed-constant-args (nth-constant-args 1))
(defknown data-vector-set-with-offset (array fixnum fixnum t) t
(always-translatable))
(defknown hairy-data-vector-ref (array index) t (foldable))

4
tests/foreign-stack-alignment.impure.lisp
View file

@ -34,9 +34,7 @@
#+mips 8
#+(and ppc darwin) 16
#+(and ppc (not darwin)) 8
#+(or arm64 x86-64) 16
#+(and x86 (not darwin)) 4
#+(and x86 darwin) 16
#+(or arm64 x86 x86-64) 16
#+sparc 8
#+alpha 16
#+hppa 64