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

Diff of /sml/branches/SMLNJ/src/MLRISC/sparc/mltree/sparc.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 146  Line 146 
146    fun error msg = MLRiscErrorMsg.error("Sparc",msg)    fun error msg = MLRiscErrorMsg.error("Sparc",msg)
147    
148    fun selectInstructions    fun selectInstructions
149         (S.STREAM{emit,defineLabel,entryLabel,blockName,pseudoOp,annotation,         (S.STREAM{emit,defineLabel,entryLabel,pseudoOp,annotation,
150                   beginCluster,endCluster,exitBlock,alias,phi,comment,...}) =                   beginCluster,endCluster,exitBlock,alias,phi,comment,...}) =
151    let    let
152        (* Flags *)        (* Flags *)
# Line 712  Line 712 
712          pseudoOp    = pseudoOp,          pseudoOp    = pseudoOp,
713          defineLabel = defineLabel,          defineLabel = defineLabel,
714          entryLabel  = entryLabel,          entryLabel  = entryLabel,
         blockName   = blockName,  
715          comment     = comment,          comment     = comment,
716          annotation  = annotation,          annotation  = annotation,
717          exitBlock   = fn regs => exitBlock(cc regs),          exitBlock   = fn regs => exitBlock(cc regs),

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