1.0.24.12: adding and fixing the HPUX/HPPA build target

[sbcl.git] / src / compiler / x86-64 / sap.lisp

diff --git a/src/compiler/x86-64/sap.lisp b/src/compiler/x86-64/sap.lisp
index 7915890..9177094 100644 (file)
--- a/src/compiler/x86-64/sap.lisp
+++ b/src/compiler/x86-64/sap.lisp
@@ -190,7 +190,7 @@
                     (:policy :fast-safe)
                     (:args (sap :scs (sap-reg)))
                     (:arg-types system-area-pointer
-                                (:constant (signed-byte 64)))
+                                (:constant (signed-byte 32)))
                     (:info offset)
                     ,@(unless (eq size :qword)
                         `((:temporary (:sc ,temp-sc
@@ -240,7 +240,7 @@
                                                'result
                                                'temp)))
                     (:arg-types system-area-pointer
-                                (:constant (signed-byte 64)) ,type)
+                                (:constant (signed-byte 32)) ,type)
                     (:info offset)
                     ,@(unless (eq size :qword)
                         `((:temporary (:sc ,temp-sc :offset rax-offset
@@ -295,7 +295,7 @@
   (:translate sap-ref-double)
   (:policy :fast-safe)
   (:args (sap :scs (sap-reg)))
-  (:arg-types system-area-pointer (:constant (signed-byte 64)))
+  (:arg-types system-area-pointer (:constant (signed-byte 32)))
   (:info offset)
   (:results (result :scs (double-reg)))
   (:result-types double-float)
@@ -320,7 +320,7 @@
   (:policy :fast-safe)
   (:args (sap :scs (sap-reg) :to (:eval 0))
          (value :scs (double-reg)))
-  (:arg-types system-area-pointer (:constant (signed-byte 64)) double-float)
+  (:arg-types system-area-pointer (:constant (signed-byte 32)) double-float)
   (:info offset)
   (:results (result :scs (double-reg)))
   (:result-types double-float)