From: Nikodemus S. <de...@us...> - 2009-01-12 16:20:44
|
Update of /cvsroot/sbcl/sbcl/src/compiler/x86 In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv4198/src/compiler/x86 Modified Files: pred.lisp Log Message: 1.0.24.40: fix regression from 1.0.24.37 * TNs with KIND :CONSTANT don't have leaves if they represent load time values. * Reported by Attila Lendvai. Index: pred.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/pred.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- pred.lisp 11 Jan 2009 18:39:08 -0000 1.10 +++ pred.lisp 12 Jan 2009 16:20:37 -0000 1.11 @@ -91,10 +91,6 @@ (let ((scn (sc-number-or-lose representation))) (labels ((make-tn () (make-representation-tn ptype scn)) - (immediate-tn-p (tn) - (and (eq (sb!c::tn-kind tn) :constant) - (eq (sb!c::immediate-constant-sc (tn-value tn)) - (sc-number-or-lose 'immediate)))) (frob-tn (tn) (if (immediate-tn-p tn) tn |