From fcb448841fc3ca351113ada9ef1574f92588c703 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sun, 11 May 1997 11:43:36 +0000 Subject: [PATCH] Increase the cost for the float/unsigned VOP so that the float/signed VOP is preferred when possible as it is faster. --- compiler/x86/float.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/x86/float.lisp b/compiler/x86/float.lisp index fb6f56701..9c0b0c8f1 100644 --- a/compiler/x86/float.lisp +++ b/compiler/x86/float.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.5 1997/04/24 20:27:06 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.6 1997/05/11 11:43:36 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1019,7 +1019,7 @@ (:translate ,translate) (:vop-var vop) (:save-p :compute-only) - (:generator 5 + (:generator 6 (inst push 0) (inst push x) (with-empty-tn@fp-top(y) -- GitLab