compiler.cfg.graphviz & compiler.cfg.gvn.testing: png -> svg
							parent
							
								
									0bcff5d642
								
							
						
					
					
						commit
						270de14e22
					
				| 
						 | 
				
			
			@ -60,7 +60,7 @@ IN: compiler.cfg.graphviz
 | 
			
		|||
: draw-cfg ( cfg pass pass# -- cfg )
 | 
			
		||||
    [ dup cfgviz ]
 | 
			
		||||
    [ name>> "After " prepend =label ]
 | 
			
		||||
    [ number>string png ]
 | 
			
		||||
    [ number>string svg ]
 | 
			
		||||
    tri* ;
 | 
			
		||||
 | 
			
		||||
SYMBOL: passes
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -65,7 +65,7 @@ SYMBOL: iteration
 | 
			
		|||
: draw-annotated-cfg ( -- )
 | 
			
		||||
    iteration-dir [
 | 
			
		||||
        cfg get cfgviz add-gvns
 | 
			
		||||
        basic-block# number>string "bb" prepend png
 | 
			
		||||
        basic-block# number>string "bb" prepend svg
 | 
			
		||||
    ] with-directory ;
 | 
			
		||||
 | 
			
		||||
: annotate-gvn ( -- )
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue