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

bootstrap.compiler.timing: fix load error

db4
Slava Pestov 2009-08-03 13:34:28 -05:00
parent 07ea78df57
commit e5114aa510
1 changed files with 22 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
basis/bootstrap/compiler/timing/timing.factor
View File

@ -1,38 +1,42 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors compiler.cfg.builder compiler.cfg.linear-scan USING: accessors kernel make sequences tools.annotations tools.crossref ;
compiler.cfg.liveness compiler.cfg.mr compiler.cfg.optimizer QUALIFIED: compiler.cfg.builder
compiler.cfg.stacks.finalize compiler.cfg.stacks.global QUALIFIED: compiler.cfg.linear-scan
compiler.codegen compiler.tree.builder compiler.tree.optimizer QUALIFIED: compiler.cfg.mr
kernel make sequences tools.annotations tools.crossref ; QUALIFIED: compiler.cfg.optimizer
QUALIFIED: compiler.cfg.stacks.finalize
QUALIFIED: compiler.cfg.stacks.global
QUALIFIED: compiler.codegen
QUALIFIED: compiler.tree.builder
QUALIFIED: compiler.tree.optimizer
IN: bootstrap.compiler.timing IN: bootstrap.compiler.timing
: passes ( word -- seq ) : passes ( word -- seq )
def>> uses [ vocabulary>> "compiler." head? ] filter ; def>> uses [ vocabulary>> "compiler." head? ] filter ;
: high-level-passes ( -- seq ) \ optimize-tree passes ; : high-level-passes ( -- seq ) \ compiler.tree.optimizer:optimize-tree passes ;
: low-level-passes ( -- seq ) \ optimize-cfg passes ; : low-level-passes ( -- seq ) \ compiler.cfg.optimizer:optimize-cfg passes ;
: machine-passes ( -- seq ) \ build-mr passes ; : machine-passes ( -- seq ) \ compiler.cfg.mr:build-mr passes ;
: linear-scan-passes ( -- seq ) \ (linear-scan) passes ; : linear-scan-passes ( -- seq ) \ compiler.cfg.linear-scan:(linear-scan) passes ;
: all-passes ( -- seq ) : all-passes ( -- seq )
[ [
\ build-tree , \ compiler.tree.builder:build-tree ,
\ optimize-tree , \ compiler.tree.optimizer:optimize-tree ,
high-level-passes % high-level-passes %
\ build-cfg , \ compiler.cfg.builder:build-cfg ,
\ compute-global-sets , \ compiler.cfg.stacks.global:compute-global-sets ,
\ finalize-stack-shuffling , \ compiler.cfg.stacks.finalize:finalize-stack-shuffling ,
\ optimize-cfg , \ compiler.cfg.optimizer:optimize-cfg ,
low-level-passes % low-level-passes %
\ compute-live-sets , \ compiler.cfg.mr:build-mr ,
\ build-mr ,
machine-passes % machine-passes %
linear-scan-passes % linear-scan-passes %
\ generate , \ compiler.codegen:generate ,
] { } make ; ] { } make ;
all-passes [ [ reset ] [ add-timing ] bi ] each all-passes [ [ reset ] [ add-timing ] bi ] each