Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv11592
Modified Files: special-operators.lisp Log Message: Commented out some experimental code for 'not' that's probably no good.
Date: Wed Apr 14 19:20:25 2004 Author: ffjeld
Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.19 movitz/special-operators.lisp:1.20 --- movitz/special-operators.lisp:1.19 Tue Apr 13 09:07:46 2004 +++ movitz/special-operators.lisp Wed Apr 14 19:20:24 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.19 2004/04/13 13:07:46 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.20 2004/04/14 23:20:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -665,21 +665,21 @@ (#.(append +boolean-modes+ '(:boolean-branch-on-true :boolean-branch-on-false)) (compiler-values (not-values) :returns (complement-boolean-result-mode not-returns))) - ((:eax :function :multiple-values :ebx :edx) - (case result-mode - ((:eax :ebx :ecx :edx :function :multiple-values) - (compiler-values (not-values) - :code (append (not-values :code) - `((:cmpl :edi ,(single-value-register not-returns)) - (:sbbl :ecx :ecx) - (:cmpl ,(1+ (image-nil-word *image*)) - ,(single-value-register not-returns)) - (:adcl 0 :ecx))) - :returns '(:boolean-ecx 1 0))) - (t (compiler-values (not-values) - :code (append (not-values :code) - `((:cmpl :edi ,(single-value-register not-returns)))) - :returns :boolean-zf=1)))) +;;; ((:eax :function :multiple-values :ebx :edx) +;;; (case result-mode +;;; ((:eax :ebx :ecx :edx :function :multiple-values) +;;; (compiler-values (not-values) +;;; :code (append (not-values :code) +;;; `((:cmpl :edi ,(single-value-register not-returns)) +;;; (:sbbl :ecx :ecx) +;;; (:cmpl ,(1+ (image-nil-word *image*)) +;;; ,(single-value-register not-returns)) +;;; (:adcl 0 :ecx))) +;;; :returns '(:boolean-ecx 1 0))) +;;; (t (compiler-values (not-values) +;;; :code (append (not-values :code) +;;; `((:cmpl :edi ,(single-value-register not-returns)))) +;;; :returns :boolean-zf=1)))) ((:eax :function :multiple-values :ebx :ecx :edx) (compiler-values (not-values) :code (append (not-values :code)