+(sb!disassem:define-arg-type imm-data-upto-dword
+ :prefilter (lambda (value dstate)
+ (declare (ignore value)) ; always nil anyway
+ (let ((width (width-bits
+ (or (sb!disassem:dstate-get-prop dstate 'width)
+ *default-address-size*))))
+ (if (= width 64)
+ (sb!disassem:read-signed-suffix 32 dstate)
+ (sb!disassem:read-suffix width dstate)))))
+