(values label (make-ea size
:disp (make-fixup nil :code-object label)))))
-(defun emit-constant-segment-header (constants optimize)
- (declare (ignore constants))
+(defun emit-constant-segment-header (segment constants optimize)
+ (declare (ignore segment constants))
(loop repeat (if optimize 64 16) do (inst byte #x90)))
(defun size-nbyte (size)