[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv3896

Modified Files:
	compiler.lisp 
Log Message:
Add boolean-mode :boolean-overflow and :boolean-no-overflow.


--- /project/movitz/cvsroot/movitz/compiler.lisp	2008/03/19 15:06:10	1.198
+++ /project/movitz/cvsroot/movitz/compiler.lisp	2008/03/21 22:29:57	1.199
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.198 2008/03/19 15:06:10 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.199 2008/03/21 22:29:57 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -4951,7 +4951,9 @@
        (:boolean-zf=1          :boolean-zf=0)
        (:boolean-zf=0          :boolean-zf=1)
        (:boolean-cf=1          :boolean-cf=0)
-       (:boolean-cf=0          :boolean-cf=1)))
+       (:boolean-cf=0          :boolean-cf=1)
+       (:boolean-overflow      :boolean-no-overflow)
+       (:boolean-no-overflow   :boolean-overflow)))
     (cons
      (let ((args (cdr mode)))
        (ecase (car mode)
@@ -4976,7 +4978,9 @@
 	  (:boolean-zf=0          :jnz)
 	  (:boolean-cf=1          :jc)
 	  (:boolean-cf=0          :jnc)
-	  (:boolean-true          :jmp))
+	  (:boolean-true          :jmp)
+	  (:boolean-overflow      :jo)
+	  (:boolean-no-overflow   :jno))
 	(list 'quote label)))