compiler.cfg.representations.selection: removing 10^ in favor of 10^.

db4
John Benediktsson 2012-09-05 09:25:26 -07:00
parent 5e0a3c5761
commit b6c069f99a
1 changed files with 2 additions and 3 deletions
basis/compiler/cfg/representations/selection

View File

@ -1,7 +1,8 @@
! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs byte-arrays combinators
disjoint-sets fry kernel locals math namespaces sequences sets
disjoint-sets fry kernel locals math math.functions
namespaces sequences sets
compiler.cfg
compiler.cfg.instructions
compiler.cfg.loop-detection
@ -73,8 +74,6 @@ SYMBOL: costs
! Initialize cost as 0 for each possibility.
possibilities get [ [ 0 ] H{ } map>assoc ] assoc-map costs set ;
: 10^ ( n -- x ) 10 <repetition> product ;
: increase-cost ( rep scc factor -- )
! Increase cost of keeping vreg in rep, making a choice of rep less
! likely. If the rep is not in the cost alist, it means this