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

Diff of /sml/trunk/src/MLRISC/x86/mltree/x86.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 26  Line 26 
26    val trapLabel = ref (NONE: Label.label option)    val trapLabel = ref (NONE: Label.label option)
27    
28    fun selectInstructions    fun selectInstructions
29         (S.STREAM{emit,defineLabel,entryLabel,blockName,pseudoOp,annotation,         (S.STREAM{emit,defineLabel,entryLabel,pseudoOp,annotation,
30                   beginCluster,endCluster,exitBlock,alias,phi,comment,...}) =                   beginCluster,endCluster,exitBlock,alias,phi,comment,...}) =
31    let    let
32    
# Line 653  Line 653 
653          pseudoOp    = pseudoOp,          pseudoOp    = pseudoOp,
654          defineLabel = defineLabel,          defineLabel = defineLabel,
655          entryLabel  = entryLabel,          entryLabel  = entryLabel,
         blockName   = blockName,  
656          comment     = comment,          comment     = comment,
657          annotation  = annotation,          annotation  = annotation,
658          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