-
- (pseudo-atomic (pa-flag :extra initial-alloc)
- (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))
+
+ (with-fixed-allocation
+ (y pa-flag temp bignum-widetag (+ 2 bignum-digits-offset))
+ (inst cmpwi x 0)
+ (inst li temp (logior (ash 1 n-widetag-bits) bignum-widetag))
+ (inst bge one-word)
+ (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))