- (inst test eax #xe0000000)
- (inst jmp :nz bignum)
- ;; Fixnum
- (inst mov ebx eax)
- (inst shl ebx 2)
- (inst ret)
-
- BIGNUM
- ;;; Note: On the mips port space for a two word bignum is always
- ;;; allocated and the header size is set to either one or two words
- ;;; as appropriate. On the mips port this is faster, and smaller
- ;;; inline, but produces more garbage. The inline x86 version uses
- ;;; the same approach, but here we save garbage and allocate the
- ;;; smallest possible bignum.
- (inst jmp :ns one-word-bignum)
- (inst mov ebx eax)
-
- ;; Two word bignum
- (with-fixed-allocation (ebx bignum-widetag (+ bignum-digits-offset 2))
- (storew eax ebx bignum-digits-offset other-pointer-lowtag))
- (inst ret)
-
- ONE-WORD-BIGNUM
- (with-fixed-allocation (ebx bignum-widetag (+ bignum-digits-offset 1))
- (storew eax ebx bignum-digits-offset other-pointer-lowtag))
- (inst ret))
+#+sb-assembling
+(macrolet ((frob-cons-routines ()
+ (let ((routines nil))
+ (dolist (tn-offset *dword-regs*
+ `(progn ,@routines))
+ (push (frob-allocation-assembly-routine 'cons
+ list-pointer-lowtag
+ (intern (aref *dword-register-names* tn-offset)))
+ routines)))))
+ (frob-cons-routines))