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/flowgraph/cfg.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/flowgraph/cfg.sml

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

revision 1172, Fri Mar 22 20:42:01 2002 UTC revision 1192, Wed May 15 14:02:06 2002 UTC
# Line 63  Line 63 
63          INFO of { annotations : Annotations.annotations ref,          INFO of { annotations : Annotations.annotations ref,
64                    firstBlock  : int ref,                    firstBlock  : int ref,
65                    reorder     : bool ref,                    reorder     : bool ref,
66                    data        : P.pseudo_op list ref                    data        : P.pseudo_op list ref,
67                      decls       : P.pseudo_op list ref
68                  }                  }
69    
70      type cfg = (block,edge_info,info) Graph.graph      type cfg = (block,edge_info,info) Graph.graph
# Line 197  Line 198 
198          let val info = INFO{ annotations = ref [],          let val info = INFO{ annotations = ref [],
199                               firstBlock  = ref 0,                               firstBlock  = ref 0,
200                               reorder     = ref false,                               reorder     = ref false,
201                               data        = ref []                               data        = ref [],
202                                 decls       = ref []
203                             }                             }
204          in  cfg info end          in  cfg info end
205    
# Line 205  Line 207 
207          let val info = INFO{ annotations = ref [],          let val info = INFO{ annotations = ref [],
208                               firstBlock  = #firstBlock graph_info,                               firstBlock  = #firstBlock graph_info,
209                               reorder     = #reorder graph_info,                               reorder     = #reorder graph_info,
210                               data        = #data graph_info                               data        = #data graph_info,
211                                 decls       = #decls graph_info
212                             }                             }
213          in  UpdateGraphInfo.update CFG info end          in  UpdateGraphInfo.update CFG info end
214    

Legend:
Removed from v.1172  
changed lines
  Added in v.1192

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