X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fppc-vm.lisp;h=52cfe551fc4501462bf338a3eeea9e84c8132eed;hb=b0639279b6c76ab5aa53c58c41ae472eaa361222;hp=c5f7b19b417c833e3431bace53a14b93dfb1df76;hpb=3a0f3612dc2bbf3e4e8e7395bcbbf8cd1791b963;p=sbcl.git diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp index c5f7b19..52cfe55 100644 --- a/src/code/ppc-vm.lisp +++ b/src/code/ppc-vm.lisp @@ -120,8 +120,9 @@ ;;; Given a signal context, return the floating point modes word in ;;; the same format as returned by FLOATING-POINT-MODES. ;;; -;;; FIXME: surely this must be accessible somewhere under Darwin? -#!-darwin +;;; FIXME: surely this must be accessible somewhere under Darwin? Or +;;; under NetBSD? +#!+linux (define-alien-routine ("os_context_fp_control" context-floating-point-modes) (sb!alien:unsigned 32) (context (* os-context-t)))