X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fppc-vm.lisp;h=1a876d6bbffeb2ff9193f82622bc8935eca27354;hb=8eee0d3a30bf39d9f201acff28c92059fe6c3e4e;hp=ce7835518da0ce5460c44b057fde7b8f74a6139e;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp
index ce78355..1a876d6 100644
--- a/src/code/ppc-vm.lisp
+++ b/src/code/ppc-vm.lisp
@@ -42,8 +42,7 @@
   (unless (zerop (rem offset n-word-bytes))
     (error "Unaligned instruction?  offset=#x~X." offset))
   (sb!sys:without-gcing
-   (let ((sap (truly-the system-area-pointer
-                         (%primitive sb!kernel::code-instructions code))))
+   (let ((sap (%primitive sb!kernel::code-instructions code)))
      (ecase kind
        (:b
         (error "Can't deal with CALL fixups, yet."))
@@ -120,8 +119,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)))
@@ -179,5 +179,3 @@
                 (sc-offsets (sb!c:read-var-integer vector index)))
                (values error-number (sc-offsets))))))
 
-
-