Don't advertise :alien-callbacks on mips

This commit is contained in:
Stas Boukarev 2026-02-25 17:18:48 +03:00
parent d4c5c24450
commit 4888d390b9
3 changed files with 2 additions and 3 deletions

View file

@ -1,2 +1 @@
:gencgc :use-cons-region :soft-card-marks
:alien-callbacks

View file

@ -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

View file

@ -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*)))