(define-vop (fast-logand/signed-unsigned=>unsigned
fast-logand/unsigned=>unsigned)
- (:args (x :target r :scs (signed-reg))
- (y :scs (unsigned-reg unsigned-stack)))
+ (:args (x :scs (signed-reg))
+ (y :target r :scs (unsigned-reg)))
(:arg-types signed-num unsigned-num))
(define-vop (fast-logand/unsigned-signed=>unsigned
fast-logand/unsigned=>unsigned)
(:args (x :target r :scs (unsigned-reg))
- (y :scs (signed-reg signed-stack)))
+ (y :scs (signed-reg)))
(:arg-types unsigned-num signed-num))
;;; Special case fixnum + and - that trap on overflow. Useful when we
;;; don't know that the output type is a fixnum.
-;;; I (toy@rtp.ericsson.se) took these out. They don't seem to be
-;;; used anywhere at all.
+;;; I (Raymond Toy) took these out. They don't seem to be used anywhere at all.
#+nil
(progn
(define-vop (+/fixnum fast-+/fixnum=>fixnum)
(:affected)
(:policy :fast-safe))
-(deftype integer-with-a-bite-out (s bite)
- (cond ((eq s '*) 'integer)
- ((and (integerp s) (> s 1))
- (let ((bound (ash 1 (1- s))))
- `(integer ,(- bound) ,(- bound bite 1))))
- (t
- (error "Bad size specified for SIGNED-BYTE type specifier: ~S." s))))
-
(define-vop (fast-conditional/fixnum fast-conditional)
(:args (x :scs (any-reg zero))
(y :scs (any-reg zero)))