Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv8169
Modified Files: primitive-functions.lisp Log Message: In decode-keyargs-default, provide error in eax rathern than scratch2.
--- /project/movitz/cvsroot/movitz/losp/muerte/primitive-functions.lisp 2007/02/19 20:24:59 1.68 +++ /project/movitz/cvsroot/movitz/losp/muerte/primitive-functions.lisp 2007/02/19 21:58:27 1.69 @@ -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.68 2007/02/19 20:24:59 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.69 2007/02/19 21:58:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -765,7 +765,8 @@ continue-save-eax-ebx (:testl 4 :ecx) (:jnz '(:sub-program (odd-keywords) - (:locally (:orl #x10 (:edi (:edi-offset scratch2)))) + ;; (:locally (:orl #x10 (:edi (:edi-offset scratch2)))) + (:movl #x10 :eax) (:int 72))) continue-from-odd-keywords (:locally (:movl :ecx (:edi (:edi-offset raw-scratch0)))) ; save stop-pos @@ -791,7 +792,8 @@ (:leal (:eax -5) :ecx) (:testb 5 :cl) (:jnz '(:sub-program (keyword-not-symbol) - (:locally (:orl #x8 (:edi (:edi-offset scratch2)))) ; Signal keyword-not-symbol + ;; (:locally (:orl #x8 (:edi (:edi-offset scratch2)))) ; Signal keyword-not-symbol + (:movl #x8 :eax) (:int 72))) start-keyword-search-symbol (:movl (:esi (:offset movitz-funobj num-jumpers))