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

Diff of /sml/trunk/src/MLRISC/ppc/mltree/ppc.sml

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

revision 814, Tue May 1 15:44:45 2001 UTC revision 815, Fri May 4 05:09:10 2001 UTC
# Line 97  Line 97 
97      (val signed = true)      (val signed = true)
98    
99    fun selectInstructions    fun selectInstructions
100        (S.STREAM{emit,comment,        (S.STREAM{emit,comment,getAnnotations,
101                  defineLabel,entryLabel,pseudoOp,annotation,                  defineLabel,entryLabel,pseudoOp,annotation,
102                  beginCluster,endCluster,exitBlock,...}) =                  beginCluster,endCluster,exitBlock,...}) =
103    let (* mark an instruction with annotations *)    let (* mark an instruction with annotations *)
# Line 742  Line 742 
742           entryLabel   = entryLabel,           entryLabel   = entryLabel,
743           comment      = comment,           comment      = comment,
744           annotation   = annotation,           annotation   = annotation,
745             getAnnotations=getAnnotations,
746           exitBlock    = fn mlrisc => exitBlock(cellset mlrisc)           exitBlock    = fn mlrisc => exitBlock(cellset mlrisc)
747         }         }
748     end     end

Legend:
Removed from v.814  
changed lines
  Added in v.815

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