mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
Don't advertise :alien-callbacks on mips
This commit is contained in:
parent
d4c5c24450
commit
4888d390b9
|
|
@ -1,2 +1 @@
|
|||
:gencgc :use-cons-region :soft-card-marks
|
||||
:alien-callbacks
|
||||
|
|
|
|||
|
|
@ -322,6 +322,7 @@
|
|||
`(deref (sap-alien (sap+ ,sap ,(+ offset delta)) (* ,type)))))
|
||||
delta)))
|
||||
|
||||
;;; FIXME: doesn't actually work (see tests)
|
||||
;;; Returns a vector in static space containing machine code for the
|
||||
;;; callback wrapper
|
||||
#-sb-xc-host
|
||||
|
|
|
|||
|
|
@ -68,8 +68,7 @@
|
|||
(assert (= *good-offset* (stack-alignment-offset *required-alignment*))))
|
||||
|
||||
#+alien-callbacks
|
||||
(with-test (:name :callback
|
||||
:broken-on :mips)
|
||||
(with-test (:name :callback)
|
||||
(assert (= *good-offset*
|
||||
(with-alien-callable ((callback int ()
|
||||
(stack-alignment-offset *required-alignment*)))
|
||||
|
|
|
|||
Loading…
Reference in a new issue