(eval-when (:compile-toplevel :execute)
(defun double-shift-inst-printer-list (op)
`((ext-reg-reg/mem ((op ,(logior op #b10)) (width 0)
- (imm nil :type signed-imm-byte)))
+ (imm nil :type signed-imm-byte))
+ (:name :tab reg/mem ", " reg ", " imm))
(ext-reg-reg/mem ((op ,(logior op #b10)) (width 1))
(:name :tab reg/mem ", " reg ", " 'cl)))))
(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)