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

Better optimizer.debugger

db4
Slava Pestov 2008-02-15 18:07:39 -06:00
parent a4c3e8bda0
commit 3694064f41
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/optimizer/debugger/debugger.factor
View File

@ -4,7 +4,7 @@ USING: classes inference inference.dataflow io kernel
kernel.private math.parser namespaces optimizer prettyprint kernel.private math.parser namespaces optimizer prettyprint
prettyprint.backend sequences words arrays match macros prettyprint.backend sequences words arrays match macros
assocs sequences.private optimizer.specializers generic assocs sequences.private optimizer.specializers generic
combinators sorting math ; combinators sorting math quotations ;
IN: optimizer.debugger IN: optimizer.debugger
! A simple tool for turning dataflow IR into quotations, for ! A simple tool for turning dataflow IR into quotations, for
@ -67,7 +67,7 @@ M: #shuffle node>quot
[ , ] [ >r drop t r> ] if* [ , ] [ >r drop t r> ] if*
dup effect-str "#shuffle: " swap append comment, ; dup effect-str "#shuffle: " swap append comment, ;
: pushed-literals node-out-d [ value-literal ] map ; : pushed-literals node-out-d [ value-literal literalize ] map ;
M: #push node>quot nip pushed-literals % ; M: #push node>quot nip pushed-literals % ;
@ -83,6 +83,7 @@ M: #call-label node>quot #call>quot ;
M: #label node>quot M: #label node>quot
[ [
dup node-param literalize ,
dup #label-loop? "#loop: " "#label: " ? dup #label-loop? "#loop: " "#label: " ?
over node-param word-name append comment, over node-param word-name append comment,
] 2keep ] 2keep