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

Modified Files: special-operators.lisp Log Message: Re-working the compilation of addition. Now use a proper extended-code instruction (which is like a "vop", I think).

Date: Sat Jul 10 06:29:18 2004 Author: ffjeld

Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.24 movitz/special-operators.lisp:1.25 --- movitz/special-operators.lisp:1.24 Fri Jul 9 09:12:44 2004 +++ movitz/special-operators.lisp Sat Jul 10 06:29:18 2004 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.24 2004/07/09 16:12:44 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.25 2004/07/10 13:29:18 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -1000,6 +1000,18 @@ :forward all :env local-env :form sub-form))) + +(define-special-operator muerte::++%2op (&all all &form form &env env &result-mode result-mode) + (destructuring-bind (term1 term2) + (cdr form) + (let ((returns (ecase (result-mode-type result-mode) + ((:function :multiple-values :eax :push) :eax) + ((:ebx :ecx :edx) result-mode) + ((:lexical-binding) result-mode)))) + (compiler-values () + :returns returns + :code `((:add ,(movitz-binding term1 env) ,(movitz-binding term2 env) ,returns)))))) +

(define-special-operator muerte::+%2op (&all all &form form &env env &result-mode result-mode) (assert (not (eq :boolean result-mode)) ()