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/instructions/cells.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/instructions/cells.sml

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

revision 656, Fri Jun 9 03:39:04 2000 UTC revision 657, Fri Jun 9 05:20:54 2000 UTC
# Line 115  Line 115 
115    
116     fun printTuple(c::cs,s::sets) = c^"="^s^"  "^printTuple(cs,sets)     fun printTuple(c::cs,s::sets) = c^"="^s^"  "^printTuple(cs,sets)
117       | printTuple _ = ""       | printTuple _ = ""
118    
119        (*
120         * These annotations specifies definitions and uses
121         * for a pseudo instruction.
122         *)
123       exception DEF_USE of {cellkind:cellkind, defs:cell list, uses:cell list}
124       val DEFUSE = Annotations.new'
125                          {create=DEF_USE,
126                           get=fn DEF_USE x => x | e => raise e,
127                           toString=fn{cellkind,defs,uses} =>
128                              "DEFUSE"^cellkindToString cellkind
129                          }
130  end  end

Legend:
Removed from v.656  
changed lines
  Added in v.657

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