- (inst cmpwi x 0)
- (inst ori y alloc-tn other-pointer-lowtag)
- (inst li temp (logior (ash 1 n-widetag-bits) bignum-widetag))
- (inst bge one-word)
- (inst addi alloc-tn alloc-tn
- (- (pad-data-block (+ bignum-digits-offset 2))
- (pad-data-block (+ bignum-digits-offset 1))))
- (inst li temp (logior (ash 2 n-widetag-bits) bignum-widetag))
- (emit-label one-word)
- (storew temp y 0 other-pointer-lowtag)
- (storew x y bignum-digits-offset other-pointer-lowtag))
+ (inst cmpwi x 0)
+ (inst ori y alloc-tn other-pointer-lowtag)
+ (inst li temp (logior (ash 1 n-widetag-bits) bignum-widetag))
+ (inst bge one-word)
+ (inst addi alloc-tn alloc-tn
+ (- (pad-data-block (+ bignum-digits-offset 2))
+ (pad-data-block (+ bignum-digits-offset 1))))
+ (inst li temp (logior (ash 2 n-widetag-bits) bignum-widetag))
+ (emit-label one-word)
+ (storew temp y 0 other-pointer-lowtag)
+ (storew x y bignum-digits-offset other-pointer-lowtag))