(defun trace-instruction (segment vop inst args)
(let ((*standard-output* *compiler-trace-output*))
(unless (eq *prev-segment* segment)
(defun trace-instruction (segment vop inst args)
(let ((*standard-output* *compiler-trace-output*))
(unless (eq *prev-segment* segment)
;; 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)))
;; 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)))