Commit 55210fe4 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Add boolean-mode :boolean-overflow and :boolean-no-overflow.

parent 9d88c258
......@@ -10,7 +10,7 @@
;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org>
;;;; Created at: Wed Oct 10 13:02:03 2001
;;;;
;;;; $Id: compiler-protocol.lisp,v 1.3 2004/02/12 17:51:02 ffjeld Exp $
;;;; $Id: compiler-protocol.lisp,v 1.4 2005/08/20 20:30:03 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -30,7 +30,9 @@
:boolean-zf=0
:boolean-cf=1
:boolean-cf=0
:boolean-ecx))
:boolean-ecx
:boolean-overflow
:boolean-no-overflow))
(defconstant +multiple-value-result-modes+
'(:multiple-values
......
......@@ -8,7 +8,7 @@
;;;; Created at: Wed Oct 25 12:30:49 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
;;;; $Id: compiler.lisp,v 1.197 2008/03/17 23:23:30 ffjeld Exp $
;;;; $Id: compiler.lisp,v 1.198 2008/03/19 15:06:10 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -4951,7 +4951,9 @@ or when there's a non-dynamic-extent &rest binding."
(: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 @@ or when there's a non-dynamic-extent &rest binding."
(: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)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment