Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv18079
Modified Files: bignums.lisp Log Message: In bignum-shift-leftf, ensure that ESI is restored to funobj before the function returns, as mandated by the stack discipline.
Date: Mon Feb 14 08:13:42 2005 Author: ffjeld
Index: movitz/losp/muerte/bignums.lisp diff -u movitz/losp/muerte/bignums.lisp:1.14 movitz/losp/muerte/bignums.lisp:1.15 --- movitz/losp/muerte/bignums.lisp:1.14 Tue Jan 25 14:45:24 2005 +++ movitz/losp/muerte/bignums.lisp Mon Feb 14 08:13:42 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Sat Jul 17 19:42:57 2004 ;;;; -;;;; $Id: bignums.lisp,v 1.14 2005/01/25 13:45:24 ffjeld Exp $ +;;;; $Id: bignums.lisp,v 1.15 2005/02/14 07:13:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -391,10 +391,10 @@ (:movl :edi :edx) (:movl :edi :eax) ; Safe EAX (:cld) - (:movl (:ebp -4) :esi) shift-short-lsb (:shll :cl (:ebx (:offset movitz-bignum bigit0))) done + (:movl (:ebp -4) :esi) ))) (do-it))))