steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/compiler/cfg/representations/selection/selection.factor
View File

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