- :load-store ,load-store
- :fixup ,fixup
- :dest-kind (not (eq ',dest-kind 'reg)))))))
-
- (define-f3-shift-inst (name op op3 &key extended)
- `(define-instruction ,name (segment dst src1 &optional src2)
- (:declare (type tn dst)
- (type (or tn (unsigned-byte 6) null) src1 src2))
- (:printer format-3-shift-reg
- ((op ,op) (op3 ,op3) (x ,(if extended 1 0)) (i 0)))
- (:printer format-3-shift-immed
- ((op ,op) (op3 ,op3) (x ,(if extended 1 0)) (i 1)))
- (:dependencies
- (reads src1)
- (if src2 (reads src2) (reads dst))
- (writes dst))
- (:delay 0)
- (:emitter (emit-format-3-shift-inst segment ,op ,op3 dst src1 src2
- :extended ,extended)))))
+ :load-store ,load-store
+ :fixup ,fixup
+ :dest-kind (not (eq ',dest-kind 'reg)))))))
+
+ (define-f3-shift-inst (name op op3 &key extended)
+ `(define-instruction ,name (segment dst src1 &optional src2)
+ (:declare (type tn dst)
+ (type (or tn (unsigned-byte 6) null) src1 src2))
+ (:printer format-3-shift-reg
+ ((op ,op) (op3 ,op3) (x ,(if extended 1 0)) (i 0)))
+ (:printer format-3-shift-immed
+ ((op ,op) (op3 ,op3) (x ,(if extended 1 0)) (i 1)))
+ (:dependencies
+ (reads src1)
+ (if src2 (reads src2) (reads dst))
+ (writes dst))
+ (:delay 0)
+ (:emitter (emit-format-3-shift-inst segment ,op ,op3 dst src1 src2
+ :extended ,extended)))))