Skip to content
Snippets Groups Projects
Commit e0da22dd authored by wlott's avatar wlott
Browse files

Changed result types from t to * so that fixnum will be allowed.

Only list one storage class for temporaries.
parent 97fa6b64
No related branches found
No related tags found
No related merge requests found
......@@ -105,13 +105,13 @@
;;; Logical operatons.
(define-fixnum-binop (fast-logior/fixnum logior 1 t)
(define-fixnum-binop (fast-logior/fixnum logior 1 *)
or :immed-op ori :unsigned t)
(define-fixnum-binop (fast-logand/fixnum logand 1 t)
(define-fixnum-binop (fast-logand/fixnum logand 1 *)
and :immed-op andi :unsigned t)
(define-fixnum-binop (fast-logxor/fixnum logxor 1 t)
(define-fixnum-binop (fast-logxor/fixnum logxor 1 *)
xor :immed-op xori :unsigned t)
......@@ -245,9 +245,7 @@
(define-vop (fast-if-</fixnum fast-conditional/fixnum)
(:temporary (:type fixnum :scs (any-reg descriptor-reg)
:from (:argument 0))
temp)
(:temporary (:type fixnum :scs (any-reg) :from (:argument 0)) temp)
(:translate <)
(:generator 3
(sc-case y
......@@ -268,9 +266,7 @@
(nop)))
(define-vop (fast-if->/fixnum fast-conditional/fixnum)
(:temporary (:type fixnum :scs (any-reg descriptor-reg)
:from (:argument 0))
temp)
(:temporary (:type fixnum :scs (any-reg) :from (:argument 0)) temp)
(:translate >)
(:generator 3
(sc-case y
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment