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

Modified Files: primitive-functions.lisp Log Message: In both dynamic-load and dynamic-store I commented out a safety-check that is really superfluous (assuming the dynamic-env linked list is consistent). This should speed up dynamic variable access a bit.

Date: Wed Apr 14 16:10:58 2004 Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.10 movitz/losp/muerte/primitive-functions.lisp:1.11 --- movitz/losp/muerte/primitive-functions.lisp:1.10 Wed Apr 14 13:54:51 2004 +++ movitz/losp/muerte/primitive-functions.lisp Wed Apr 14 16:10:58 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.10 2004/04/14 17:54:51 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.11 2004/04/14 20:10:58 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -246,10 +246,10 @@ (:jecxz 'no-stack-binding) (:cmpl :eax (:ecx)) (:je 'success) - (:locally (:movl (:edi (:edi-offset stack-top)) :edx)) +;;; (:locally (:movl (:edi (:edi-offset stack-top)) :edx)) search-loop - (:cmpl :edx (:ecx 12)) - (:jnc '(:sub-program () (:int 97))) +;;; (:cmpl :edx (:ecx 12)) +;;; (:jnc '(:sub-program () (:int 97))) (:movl (:ecx 12) :ecx) ; parent (:jecxz 'no-stack-binding) (:cmpl :eax (:ecx)) ; compare name @@ -276,10 +276,10 @@ (:jecxz 'no-binding) (:cmpl :eax (:ecx)) (:je 'success) - (:locally (:movl (:edi (:edi-offset stack-top)) :edx)) +;;; (:locally (:movl (:edi (:edi-offset stack-top)) :edx)) search-loop - (:cmpl :edx (:ecx 12)) - (:jnc '(:sub-program () (:int 97))) +;;; (:cmpl :edx (:ecx 12)) +;;; (:jnc '(:sub-program () (:int 97))) (:movl (:ecx 12) :ecx) ; parent (:jecxz 'no-binding) (:cmpl :eax (:ecx)) ; compare name