[movitz-cvs] CVS update: movitz/special-operators-cl.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators-cl.lisp 
Log Message:
minor edits.

Date: Sat Sep 17 00:50:08 2005
Author: ffjeld

Index: movitz/special-operators-cl.lisp
diff -u movitz/special-operators-cl.lisp:1.48 movitz/special-operators-cl.lisp:1.49
--- movitz/special-operators-cl.lisp:1.48	Sun Aug 28 23:03:27 2005
+++ movitz/special-operators-cl.lisp	Sat Sep 17 00:50:08 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov 24 16:31:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: special-operators-cl.lisp,v 1.48 2005/08/28 21:03:27 ffjeld Exp $
+;;;; $Id: special-operators-cl.lisp,v 1.49 2005/09/16 22:50:08 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1319,7 +1319,7 @@
 		     ,cleanup-entry
 		     ;; First, restore stack-frame in EBP
 		     (:movl (:esp) :ebp)
-		     ;; Now (?), modify unwind-protect dyn-env-entry to be normal continuation
+		     ;; Now, modify unwind-protect dyn-env-entry to be normal continuation
 		     (:locally (:movl (:edi (:edi-offset unbound-function)) :edx))
 		     (:movl :edx (:esp 4)) ; not unwind-protect-tag
 		     (:movl ',continue-label (:esp 8)) ; new jumper index
@@ -1341,25 +1341,10 @@
 				(:store-lexical ,next-continuation-step-binding :eax :type t))
 			      , at cleanup-forms))
 		   `((:locally (:popl (:edi (:edi-offset raw-scratch0)))) ; pop final continuation
-		   
-;;;		   ;; Now (?), modify unwind-protect dyn-env-entry to be normal continuation
-;;;		   (:locally (:movl (:edi (:edi-offset unbound-value)) :edx))
-;;;		   (:movl :edx (:esp 4)) ; not unwind-protect-tag
-;;;		   (:movl ',continue-label (:esp 8)) ; new jumper index
-
 		     (:load-lexical ,next-continuation-step-binding :edx)
 		     (:locally (:movl :edx (:edi (:edi-offset dynamic-env))))
 		     (:locally (:call (:edi (:edi-offset dynamic-jump-next))))
-		   
-;;;		   (:locally (:movl :esi (:edi (:edi-offset scratch1))))
-;;;		   (:locally (:movl :edx (:edi (:edi-offset dynamic-env))))
-;;;		   (:movl :edx :esp)	; enter non-local jump stack mode (possibly).
-;;;		   (:movl (:esp) :edx)	; target stack-frame EBP
-;;;		   (:movl (:edx -4) :esi) ; get target funobj into EDX
-;;;		   (:movl (:esp 8) :edx) ; target jumper number
-;;;		   (:jmp (:esi :edx ,(slot-offset 'movitz-funobj 'constant0)))
-		     )
-		   `(,continue
+		     ,continue
 		     (:movl (:esp) :ebp)
 		     (:movl (:esp 12) :edx)
 		     (:locally (:movl :edx (:edi (:edi-offset dynamic-env))))