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

compiler.tree.propagation.transforms: inline push if types are known. Speeds up reverse-complement, sort, sum-file benchmarks

db4
Slava Pestov 2009-11-12 17:24:32 -06:00
parent 7afea4c0ea
commit ff25aaef54
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/compiler/tree/propagation/transforms/transforms.factor
View File

@ -6,7 +6,7 @@ stack-checker.dependencies quotations classes.tuple.private math
math.partial-dispatch math.private math.intervals sets.private math.partial-dispatch math.private math.intervals sets.private
math.floats.private math.integers.private layouts math.order math.floats.private math.integers.private layouts math.order
vectors hashtables combinators effects generalizations assocs vectors hashtables combinators effects generalizations assocs
sets combinators.short-circuit sequences.private locals sets combinators.short-circuit sequences.private locals growable
stack-checker namespaces compiler.tree.propagation.info ; stack-checker namespaces compiler.tree.propagation.info ;
IN: compiler.tree.propagation.transforms IN: compiler.tree.propagation.transforms
@ -300,3 +300,10 @@ CONSTANT: lookup-table-at-max 256
tester '[ _ filter ] ; tester '[ _ filter ] ;
\ intersect [ intersect-quot ] 1 define-partial-eval \ intersect [ intersect-quot ] 1 define-partial-eval
! Speeds up sum-file, sort and reverse-complement benchmarks by
! compiling decoder-readln better
\ push [
in-d>> second value-info class>> growable class<=
[ \ push def>> ] [ f ] if
] "custom-inlining" set-word-prop