[movitz-cvs] CVS update: movitz/losp/muerte/integers.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv11617

Modified Files:
	integers.lisp 
Log Message:
Don't give the same name to two different jumper-sets... sigh.

Date: Tue Jul 20 02:19:00 2004
Author: ffjeld

Index: movitz/losp/muerte/integers.lisp
diff -u movitz/losp/muerte/integers.lisp:1.79 movitz/losp/muerte/integers.lisp:1.80
--- movitz/losp/muerte/integers.lisp:1.79	Tue Jul 20 01:54:14 2004
+++ movitz/losp/muerte/integers.lisp	Tue Jul 20 02:19:00 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: integers.lisp,v 1.79 2004/07/20 08:54:14 ffjeld Exp $
+;;;; $Id: integers.lisp,v 1.80 2004/07/20 09:19:00 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -510,6 +510,7 @@
 		 (+ y x))
 		((negative-fixnum positive-bignum)
 		 (with-inline-assembly (:returns :eax :labels (retry-not-size1
+							       retry-jumper
 							       not-size1
 							       copy-bignum-loop
 							       add-bignum-loop
@@ -577,12 +578,14 @@
 		     (+ y x)
 		   ;; Assume x is smallest.
 		   (with-inline-assembly (:returns :eax :labels (retry-not-size1
+								 retry-jumper
 								 not-size1
 								 copy-bignum-loop
 								 add-bignum-loop
 								 add-bignum-done
 								 no-expansion
-								 pfix-pbig-done))
+								 pfix-pbig-done
+								 zero-padding-loop))
 		     (:compile-two-forms (:eax :ebx) y x)
 		     (:testl :ebx :ebx)
 		     (:jz 'pfix-pbig-done)