From b1983407a5452dad55f2143fcb026ce643b124cc Mon Sep 17 00:00:00 2001 From: Thiemo Seufer Date: Sat, 1 Sep 2007 20:37:42 +0000 Subject: [PATCH] 1.0.9.24: Adjust assembly callers of WITH-FIXED-ALLOCATION. --- src/assembly/mips/arith.lisp | 6 ++++-- version.lisp-expr | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/src/assembly/mips/arith.lisp b/src/assembly/mips/arith.lisp index 0bf279ce5..b409c3442 100644 --- a/src/assembly/mips/arith.lisp +++ b/src/assembly/mips/arith.lisp @@ -57,7 +57,8 @@ ;; We did overflow, so do the bignum version (inst sra temp2 y n-fixnum-tag-bits) (inst addu temp temp1 temp2) - (with-fixed-allocation (res pa-flag temp2 bignum-widetag (1+ bignum-digits-offset)) + (with-fixed-allocation (res pa-flag temp2 bignum-widetag + (1+ bignum-digits-offset) nil) (storew temp res bignum-digits-offset other-pointer-lowtag)) (lisp-return lra lip :offset 2) @@ -105,7 +106,8 @@ ;; We did overflow, so do the bignum version (inst sra temp2 y n-fixnum-tag-bits) (inst subu temp temp1 temp2) - (with-fixed-allocation (res pa-flag temp2 bignum-widetag (1+ bignum-digits-offset)) + (with-fixed-allocation (res pa-flag temp2 bignum-widetag + (1+ bignum-digits-offset) nil) (storew temp res bignum-digits-offset other-pointer-lowtag)) (lisp-return lra lip :offset 2) diff --git a/version.lisp-expr b/version.lisp-expr index d46708d69..78d822fd5 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.9.23" +"1.0.9.24" -- 2.11.4.GIT