Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/cluster/clusterViewer.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/cluster/clusterViewer.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 694, Thu Jul 27 16:00:25 2000 UTC revision 695, Mon Aug 7 23:57:38 2000 UTC
# Line 44  Line 44 
44    
45         fun title(blknum,ref freq) =         fun title(blknum,ref freq) =
46             " "^Int.toString blknum^" ("^W.toString freq^")"             " "^Int.toString blknum^" ("^W.toString freq^")"
47    
48           fun ann(annotations) =
49                List.foldl(fn (a,l) => "/* "^Annotations.toString a^" */\n"^l) ""
50                                 (!annotations)
51    
52         fun node(_,F.ENTRY{blknum,freq,...}) =         fun node(_,F.ENTRY{blknum,freq,...}) =
53                [L.LABEL("entry"^title(blknum,freq))]                [L.LABEL("entry"^title(blknum,freq)^"\n"^ann(annotations))]
54           | node(_,F.EXIT{blknum,freq,...})  =           | node(_,F.EXIT{blknum,freq,...})  =
55                [L.LABEL("exit"^title(blknum,freq))]                [L.LABEL("exit"^title(blknum,freq))]
56           | node(_,F.BBLOCK{annotations,blknum,freq,insns,...}) =           | node(_,F.BBLOCK{annotations,blknum,freq,insns,...}) =
57                [L.LABEL(title(blknum,freq)^"\n"^                [L.LABEL(title(blknum,freq)^"\n"^
58                   List.foldl(fn (a,l) =>                   ann(annotations)^
                                "/* "^Annotations.toString a^" */\n"^l) ""  
                              (!annotations)^  
59                   (if !outline then "" else                   (if !outline then "" else
60                   List.foldl (fn (i,t) =>                   List.foldl (fn (i,t) =>
61                               let val text = toString i                               let val text = toString i

Legend:
Removed from v.694  
changed lines
  Added in v.695

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0