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

[Frode Vatvedt Fjeld]

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

Modified Files:
	bignums.lisp 
Log Message:
Fixed register usage in bignum-mulf, so as to observe register discipline.

Date: Wed Aug 18 15:36:37 2004
Author: ffjeld

Index: movitz/losp/muerte/bignums.lisp
diff -u movitz/losp/muerte/bignums.lisp:1.5 movitz/losp/muerte/bignums.lisp:1.6
--- movitz/losp/muerte/bignums.lisp:1.5	Tue Jul 20 01:53:56 2004
+++ movitz/losp/muerte/bignums.lisp	Wed Aug 18 15:36:37 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Jul 17 19:42:57 2004
 ;;;;                
-;;;; $Id: bignums.lisp,v 1.5 2004/07/20 08:53:56 ffjeld Exp $
+;;;; $Id: bignums.lisp,v 1.6 2004/08/18 22:36:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -413,20 +413,20 @@
 	       (:compile-form (:result-mode :ecx) factor)
 	       (:sarl ,movitz:+movitz-fixnum-shift+ :ecx)
 	       (:locally (:movl :ecx (:edi (:edi-offset scratch0))))
-	       (:xorl :ecx :ecx)	; Counter
+	       (:xorl :esi :esi)	; Counter (by 4)
 	       (:xorl :edx :edx)	; Initial carry
-	       (:std)			; Make EAX, EDX, ESI non-GC-roots.
+	       (:std)			; Make EAX, EDX non-GC-roots.
 	      multiply-loop
-	       (:movl (:ebx :ecx (:offset movitz-bignum bigit0))
+	       (:movl (:ebx :esi (:offset movitz-bignum bigit0))
 		      :eax)
-	       (:movl :edx :esi)	; Save carry in ESI
+	       (:movl :edx :ecx)	; Save carry in ECX
 	       (:locally (:mull (:edi (:edi-offset scratch0)) :eax :edx)) ; EDX:EAX = scratch0*EAX
-	       (:addl :esi :eax)	; Add carry
+	       (:addl :ecx :eax)	; Add carry
 	       (:adcl 0 :edx)		; Compute next carry
 	       (:jc '(:sub-program (should-not-happen) (:int 63)))
-	       (:movl :eax (:ebx :ecx (:offset movitz-bignum bigit0)))
-	       (:addl 4 :ecx)
-	       (:cmpw :cx (:ebx (:offset movitz-bignum length)))
+	       (:movl :eax (:ebx :esi (:offset movitz-bignum bigit0)))
+	       (:addl 4 :esi)
+	       (:cmpw :si (:ebx (:offset movitz-bignum length)))
 	       (:ja 'multiply-loop)
 	       (:movl (:ebp -4) :esi)
 	       (:movl :edx :ecx)	; Carry into ECX