;; Get the second digit.
(loadw rax-tn value (1+ bignum-digits-offset) other-pointer-lowtag)
;; All zeros, its an (unsigned-byte 64).
- (inst or rax-tn rax-tn)
+ (inst test rax-tn rax-tn)
(inst jmp :z yep)
(inst jmp nope)
;; positive implies (unsigned-byte 64).
(emit-label fixnum)
- (inst or rax-tn rax-tn)
+ (inst test rax-tn rax-tn)
(inst jmp (if not-p :s :ns) target)
(emit-label not-target)))))
;; Get the second digit.
(loadw rax-tn value (1+ bignum-digits-offset) other-pointer-lowtag)
;; All zeros, its an (unsigned-byte 64).
- (inst or rax-tn rax-tn)
+ (inst test rax-tn rax-tn)
(inst jmp :z yep)
(inst jmp nope)
;; positive implies (unsigned-byte 64).
(emit-label fixnum)
- (inst or rax-tn rax-tn)
+ (inst test rax-tn rax-tn)
(inst jmp :s nope)
(emit-label yep)