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

Diff of /sml/branches/SMLNJ/src/MLRISC/hppa/mltree/hppa.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 104  Line 104 
104     fun selectInstructions     fun selectInstructions
105          (S.STREAM{emit, defineLabel, entryLabel,          (S.STREAM{emit, defineLabel, entryLabel,
106                    beginCluster, endCluster, annotation,                    beginCluster, endCluster, annotation,
107                    exitBlock, blockName, pseudoOp, phi, alias, comment, ...}) =                    exitBlock, pseudoOp, phi, alias, comment, ...}) =
108     let     let
109         (* operand type and effective addresss *)         (* operand type and effective addresss *)
110    
# Line 791  Line 791 
791          pseudoOp    = pseudoOp,          pseudoOp    = pseudoOp,
792          defineLabel = defineLabel,          defineLabel = defineLabel,
793          entryLabel  = entryLabel,          entryLabel  = entryLabel,
         blockName   = blockName,  
794          comment     = comment,          comment     = comment,
795          annotation  = annotation,          annotation  = annotation,
796          exitBlock   = fn regs => exitBlock(map cc regs),          exitBlock   = fn regs => exitBlock(map 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