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

compiler.cfg.utilities: rewrite apply-passes as a macro 

It makes for more detailed callstacks when profiling.
locals-and-roots
Björn Lindqvist 2016-05-18 23:46:31 +02:00
parent 839a5a22ec
commit 05de15bdc1
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/debugger/debugger.factor
View File

@ -28,7 +28,7 @@ M: word test-builder
[ build-optimized-tree ] keep build-cfg ; [ build-optimized-tree ] keep build-cfg ;
: run-passes ( cfgs passes -- cfgs' ) : run-passes ( cfgs passes -- cfgs' )
'[ dup cfg set dup _ apply-passes ] map ; '[ dup cfg set dup _ apply-passes ] map ; inline
: test-ssa ( quot -- cfgs ) : test-ssa ( quot -- cfgs )
test-builder { optimize-cfg } run-passes ; test-builder { optimize-cfg } run-passes ;

8
basis/compiler/cfg/utilities/utilities.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2008, 2010 Slava Pestov. ! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs combinators.short-circuit compiler.cfg USING: accessors arrays assocs combinators.short-circuit compiler.cfg
compiler.cfg.instructions compiler.cfg.rpo cpu.architecture deques fry compiler.cfg.instructions compiler.cfg.rpo cpu.architecture deques fry
heaps kernel locals math sequences sets ; heaps kernel locals macros math sequences sets ;
IN: compiler.cfg.utilities IN: compiler.cfg.utilities
: block>cfg ( bb -- cfg ) : block>cfg ( bb -- cfg )
@ -87,8 +87,8 @@ IN: compiler.cfg.utilities
[ [ of ] with map first2 connect-bbs ] with each ; [ [ of ] with map first2 connect-bbs ] with each ;
! Abstract generic stuff ! Abstract generic stuff
: apply-passes ( obj passes -- ) MACRO: apply-passes ( passes -- quot: ( obj -- ) )
[ execute( x -- ) ] with each ; unclip-last [ [ 1array \ dup prefix ] map [ ] concat-as ] dip suffix ;
: slurp/replenish-deque ( ... deque quot: ( ... obj -- ... seq ) -- ... ) : slurp/replenish-deque ( ... deque quot: ( ... obj -- ... seq ) -- ... )
over '[ @ _ push-all-front ] slurp-deque ; inline over '[ @ _ push-all-front ] slurp-deque ; inline