X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcodegen.lisp;h=df6d06a6a0f5825d8ec2854f50faa8a0af50151d;hb=e3113504fca73ebd1b992930315386d9d3ae5d18;hp=da071673e46f433836d98c7975016b4d9ba0a38c;hpb=6c7a026d79b5f971ac129846efe2d394239a0fee;p=sbcl.git

diff --git a/src/compiler/codegen.lisp b/src/compiler/codegen.lisp
index da07167..df6d06a 100644
--- a/src/compiler/codegen.lisp
+++ b/src/compiler/codegen.lisp
@@ -68,7 +68,7 @@
 (defun trace-instruction (segment vop inst args)
   (let ((*standard-output* *compiler-trace-output*))
     (unless (eq *prev-segment* segment)
-      (format t "in the ~A segment:~%" (sb!assem:segment-name segment))
+      (format t "in the ~A segment:~%" (sb!assem:segment-type segment))
       (setf *prev-segment* segment))
     (unless (eq *prev-vop* vop)
       (when vop
@@ -142,7 +142,7 @@
               (when (and cloop
                          (sb!c::loop-tail cloop)
                          (not (sb!c::loop-info cloop)))
-                (sb!assem:align sb!vm:n-lowtag-bits #x90)
+                (sb!assem:emit-alignment sb!vm:n-lowtag-bits #x90)
                 ;; Mark the loop as aligned by saving the IR1 block aligned.
                 (setf (sb!c::loop-info cloop) 1block)))
             (sb!assem:emit-label (block-label 1block)))