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

[Frode Vatvedt Fjeld]

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

Modified Files:
	primitive-functions.lisp 
Log Message:
Removed the bogus dynamic-unwind primitive-function and special operator.

Date: Sat Nov 13 17:10:22 2004
Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp
diff -u movitz/losp/muerte/primitive-functions.lisp:1.52 movitz/losp/muerte/primitive-functions.lisp:1.53
--- movitz/losp/muerte/primitive-functions.lisp:1.52	Fri Nov 12 15:52:16 2004
+++ movitz/losp/muerte/primitive-functions.lisp	Sat Nov 13 17:10:21 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Oct  2 21:02:18 2001
 ;;;;                
-;;;; $Id: primitive-functions.lisp,v 1.52 2004/11/12 14:52:16 ffjeld Exp $
+;;;; $Id: primitive-functions.lisp,v 1.53 2004/11/13 16:10:21 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -160,21 +160,6 @@
 and also EDX must be preserved."
   (with-inline-assembly (:returns :nothing)
     ;; Default binding strategy is naive deep binding, so this is a NOP.
-    (:ret)))
-    
-(define-primitive-function dynamic-unwind ()
-  "Unwind ECX dynamic environment slots. Scratch EAX."
-  (with-inline-assembly (:returns :nothing)
-    (:jecxz 'done)
-   loop
-    (:locally (:movl (:edi (:edi-offset dynamic-env)) :eax))
-    (:testl :eax :eax)
-    (:jz '(:sub-program () (:int 255)))	; end of dynamic environment???
-    (:movl (:eax 12) :eax)		; get parent
-    (:locally (:movl :eax (:edi (:edi-offset dynamic-env))))
-    (:decl :ecx)
-    (:jnz 'loop)
-   done
     (:ret)))
     
 (define-primitive-function dynamic-load (symbol)