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

Modified Files: primitive-functions.lisp Log Message: When setting up a 'fake' stack-frame in a PF, don't use ESI as the funobj. Not really sure what to /do/ use, yet..

Date: Mon Aug 23 06:51:57 2004 Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.39 movitz/losp/muerte/primitive-functions.lisp:1.40 --- movitz/losp/muerte/primitive-functions.lisp:1.39 Sat Aug 7 04:12:09 2004 +++ movitz/losp/muerte/primitive-functions.lisp Mon Aug 23 06:51:57 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.39 2004/08/07 11:12:09 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.40 2004/08/23 13:51:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -122,7 +122,7 @@ (with-inline-assembly (:returns :push) (:pushl :ebp) (:movl :esp :ebp) ; set up a pseudo stack-frame - (:pushl :esi) ; for consistency + (:pushl 4)

(:globally (:movl (:edi (:edi-offset unwind-protect-tag)) :edx)) (:locally (:movl (:edi (:edi-offset dynamic-env)) :ecx))