[Openmcl-devel] Second bug in encoding of ASH instruction (AMD64)

[Eric Marsden]

Hi,

? (lisp-implementation-version)
"Version 1.9-dev-r15516M  (LinuxX8664)"
? (lambda (p1 p2)
    (declare (type (member -4 -73) p2))
    (ash (the (eql 5) p1) (the real p2)))
> Error: The value #<NUMERIC-CTYPE (INTEGER -4 -4)> is not of the expected type REAL.
> While executing: CCL::<-2, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > (:b)
 (7FCA28E88AF8) : 0 (<-2 #<NUMERIC-CTYPE (INTEGER -4 -4)> -63) 2397
 (7FCA28E88B30) : 1 (>=-2 #<NUMERIC-CTYPE (INTEGER -4 -4)> -63) 29
 (7FCA28E88B50) : 2 (ACODE-OPTIMIZE-ASH #<DLL-HEADER #x302000B9BB5D> #<LREG 0 GPR [6]/LISP> 262143 (33 (INTEGER 5 5) (33 T #) NIL) (33 (OR # #) (33 # #) NIL) T INTEGER) 3717
 (7FCA28E88C28) : 3 (FUNCALL #'#<CCL::X862-ASH> #<DLL-HEADER #x302000B9BB5D> #<LREG 0 GPR [6]/LISP> 262143 (33 (INTEGER 5 5) (33 T #) NIL) (33 (OR # #) (33 # #) NIL)) 101
 (7FCA28E88C68) : 4 (X862-FORM #<DLL-HEADER #x302000B9BB5D> #<LREG 0 GPR [6]/LISP> 262143 (29702 (33 # # NIL) (33 # # NIL))) 941

-- 
Eric Marsden