X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fmacros.lisp;h=5136a42481c42c8a73e2dbb66ff05cfdb6fdc81d;hb=56c7428e2bcb149dac575142d5d17e0b297f8670;hp=5b06d9fc7252f29af0c3537bd22f38b09b261647;hpb=d294785c8e313384513208c1d93a44c3f22a0464;p=sbcl.git

diff --git a/src/compiler/sparc/macros.lisp b/src/compiler/sparc/macros.lisp
index 5b06d9f..5136a42 100644
--- a/src/compiler/sparc/macros.lisp
+++ b/src/compiler/sparc/macros.lisp
@@ -94,7 +94,7 @@
 (defmacro emit-return-pc (label)
   "Emit a return-pc header word.  LABEL is the label to use for this return-pc."
   `(progn
-     (align n-lowtag-bits)
+     (emit-alignment n-lowtag-bits)
      (emit-label ,label)
      (inst lra-header-word)))
 
@@ -181,7 +181,7 @@
           (inst byte (length ,vector))
           (dotimes (i (length ,vector))
             (inst byte (aref ,vector i))))
-        (align word-shift)))))
+        (emit-alignment word-shift)))))
 
 (defmacro error-call (vop error-code &rest values)
   "Cause an error.  ERROR-CODE is the error to cause."