[Sbcl-commits] CVS: sbcl/src/assembly/mips arith.lisp,1.8,1.9

[Thiemo S. <th...@us...>]

Update of /cvsroot/sbcl/sbcl/src/assembly/mips
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5320/src/assembly/mips

Modified Files:
	arith.lisp 
Log Message:
1.0.9.24: Adjust assembly callers of WITH-FIXED-ALLOCATION.


Index: arith.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/assembly/mips/arith.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- arith.lisp	13 May 2006 19:34:27 -0000	1.8
+++ arith.lisp	1 Sep 2007 20:37:42 -0000	1.9
@@ -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)