(defvar *prev-segment*)
(defvar *prev-vop*)
-#!+sb-show
(defun trace-instruction (segment vop inst args)
(let ((*standard-output* *compiler-trace-output*))
(unless (eq *prev-segment* segment)
(block-next (component-head *component-being-compiled*))))
(or (> speed compilation-speed) (> space compilation-speed)))))
(defun default-segment-inst-hook ()
- #!+sb-show
- (and *compiler-trace-output* #'trace-instruction))
+ (and *compiler-trace-output*
+ #'trace-instruction))
(defun init-assembler ()
(setf *code-segment*
(values))
(defun generate-code (component)
- #!+sb-show
(when *compiler-trace-output*
(format *compiler-trace-output*
"~|~%assembly code for ~S~2%"