Skip to content
Snippets Groups Projects
Commit 66a8e1b8 authored by dtc's avatar dtc
Browse files

Correct the check for the fp-double-constant immediate constant SC.

parent 5292c846
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/vm.lisp,v 1.2 1997/03/29 10:49:43 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/vm.lisp,v 1.3 1997/07/26 17:05:10 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -420,7 +420,7 @@ ...@@ -420,7 +420,7 @@
(when (or (eql value 0f0) (eql value 1f0)) (when (or (eql value 0f0) (eql value 1f0))
(sc-number-or-lose 'fp-single-constant *backend*))) (sc-number-or-lose 'fp-single-constant *backend*)))
(double-float (double-float
(when (or (eql value 0f0) (eql value 1f0)) (when (or (eql value 0d0) (eql value 1d0))
(sc-number-or-lose 'fp-double-constant *backend*))))) (sc-number-or-lose 'fp-double-constant *backend*)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment