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/branches/SMLNJ/src/MLRISC/ppc/mltree/ppc.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/ppc/mltree/ppc.sml

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

revision 468, Wed Nov 10 22:42:52 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 100  Line 100 
100    
101    fun selectInstructions    fun selectInstructions
102        (S.STREAM{emit,comment,        (S.STREAM{emit,comment,
103                  defineLabel,entryLabel,blockName,pseudoOp,annotation,                  defineLabel,entryLabel,pseudoOp,annotation,
104                  beginCluster,endCluster,exitBlock,phi,alias,...}) =                  beginCluster,endCluster,exitBlock,phi,alias,...}) =
105    let (* mark an instruction with annotations *)    let (* mark an instruction with annotations *)
106        fun mark'(instr,[]) = instr        fun mark'(instr,[]) = instr
# Line 730  Line 730 
730           pseudoOp     = pseudoOp,           pseudoOp     = pseudoOp,
731           defineLabel  = defineLabel,           defineLabel  = defineLabel,
732           entryLabel   = entryLabel,           entryLabel   = entryLabel,
          blockName    = blockName,  
733           comment      = comment,           comment      = comment,
734           annotation   = annotation,           annotation   = annotation,
735           exitBlock    = exitBlock,           exitBlock    = exitBlock,

Legend:
Removed from v.468  
changed lines
  Added in v.469

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