X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fmacros.lisp;h=7005f2b0de872ad121e69fcfa37f00c3fcf86e96;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;hp=be01f987e0198a85565054432cb6c15e48f9c872;hpb=9b55754d5328a5f44ee224d32865fc8dadee123b;p=sbcl.git

diff --git a/src/compiler/sparc/macros.lisp b/src/compiler/sparc/macros.lisp
index be01f98..7005f2b 100644
--- a/src/compiler/sparc/macros.lisp
+++ b/src/compiler/sparc/macros.lisp
@@ -150,6 +150,16 @@
        (storew ,temp-tn ,result-tn 0 other-pointer-lowtag)
        ,@body)))
 
+(defun align-csp (temp)
+  (let ((aligned (gen-label)))
+    ;; FIXME: why use a TEMP?  Why not just ZERO-TN?
+    (inst andcc temp csp-tn lowtag-mask)
+    (if (member :sparc-v9 *backend-subfeatures*)
+	(inst b :eq aligned :pt)
+	(inst b :eq aligned))
+    (storew zero-tn csp-tn 0) ; sneaky use of delay slot
+    (inst add csp-tn csp-tn n-word-bytes)
+    (emit-label aligned)))
 
 ;;;; Error Code
 (eval-when (:compile-toplevel :load-toplevel :execute)