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 1015, Tue Jan 15 21:46:00 2002 UTC revision 1016, Tue Jan 15 23:10:06 2002 UTC
# Line 248  Line 248 
248    
249        fun startSegment(seg) = (data := p :: !data; segmentF := seg)        fun startSegment(seg) = (data := p :: !data; segmentF := seg)
250    
251        fun addData(seg) =        fun addData () = data := p :: !data
252    
253          fun chkAddData(seg) =
254          (case !segmentF          (case !segmentF
255           of TEXT =>           of TEXT =>
256               error (Fmt.format "addPseudoOp: %s in TEXT segment" [Fmt.STR seg])               error (Fmt.format "addPseudoOp: %s in TEXT segment" [Fmt.STR seg])
257            | _ => data := p :: !data            | _ => addData()
258          (*esac*))          (*esac*))
259    
260      in      in
261        case p        case p
262        of PB.ALIGN_SZ _ => addAlignment()        of PB.ALIGN_SZ _ => addAlignment()
# Line 278  Line 281 
281         | PB.NOREORDER =>         | PB.NOREORDER =>
282             (reorder := [#create MLRiscAnnotations.NOREORDER ()]; newBlock(1); ())             (reorder := [#create MLRiscAnnotations.NOREORDER ()]; newBlock(1); ())
283    
284         | PB.INT _    => addData("INT")         | PB.INT _    => chkAddData("INT")
285         | PB.FLOAT _  => addData("FLOAT")         | PB.FLOAT _  => chkAddData("FLOAT")
286         | PB.ASCII _  => addData("ASCII")         | PB.ASCII _  => chkAddData("ASCII")
287         | PB.ASCIIZ _ => addData("ASCIIZ")         | PB.ASCIIZ _ => chkAddData("ASCIIZ")
288         | PB.SPACE _  => addData("SPACE")         | PB.SPACE _  => chkAddData("SPACE")
289         | PB.IMPORT _ => addData("IMPORT")         | PB.IMPORT _ => addData()
290         | PB.EXPORT _ => addData("EXPORT")         | PB.EXPORT _ => addData()
291         | PB.EXT _ => addData("EXT")         | PB.EXT _ => chkAddData("EXT")
292      end      end
293    
294      fun defineLabel lab =      fun defineLabel lab =

Legend:
Removed from v.1015  
changed lines
  Added in v.1016

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