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

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

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

revision 1050, Fri Feb 1 12:23:19 2002 UTC revision 1051, Fri Feb 1 15:04:17 2002 UTC
# Line 242  Line 242 
242          val Graph.GRAPH graph = !cfg          val Graph.GRAPH graph = !cfg
243          val CFG.INFO{data, ...} = #graph_info graph          val CFG.INFO{data, ...} = #graph_info graph
244    
245          fun addAlignment () = let          fun addAlignment () =
246              (case !segmentF
247               of TEXT => let
248            val CFG.BLOCK{align, ...} = newBlock(1)            val CFG.BLOCK{align, ...} = newBlock(1)
249          in align := SOME p          in align := SOME p
250          end          end
251                | _ => data := p :: !data
252              (*esac*))
253    
254          fun startSegment(seg) = (data := p :: !data; segmentF := seg)          fun startSegment(seg) = (data := p :: !data; segmentF := seg)
255    

Legend:
Removed from v.1050  
changed lines
  Added in v.1051

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