Date: Monday, September 20, 2010 @ 16:22:03 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/x86
Modified: float.lisp
This entire file should be in the cmucl-x87 domain, not cmucl-x86-vm.
------------+ float.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-)
Index: src/compiler/x86/float.lisp diff -u src/compiler/x86/float.lisp:1.60 src/compiler/x86/float.lisp:1.61 --- src/compiler/x86/float.lisp:1.60 Tue Apr 20 13:57:47 2010 +++ src/compiler/x86/float.lisp Mon Sep 20 16:22:03 2010 @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/x86/float.lisp,v 1.60 2010-04-20 17:57:47 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/x86/float.lisp,v 1.61 2010-09-20 20:22:03 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -22,7 +22,7 @@ ;;;
(in-package :x86) -(intl:textdomain "cmucl-x86-vm") +(intl:textdomain "cmucl-x87")
@@ -1709,6 +1709,7 @@
;;; Comparisons with 0 can use the FTST instruction.
+ (define-vop (float-test) (:args (x)) (:temporary (:sc word-reg :offset eax-offset :from :eval) temp)