SCM Repository
Diff of /sml/trunk/src/MLRISC/flowgraph/buildFlowgraph.sml
Parent Directory
| 
Revision Log
| 
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 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
