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 /MLRISC/releases/release-110.64/IR/mlrisc-ir.sml
ViewVC logotype

Diff of /MLRISC/releases/release-110.64/IR/mlrisc-ir.sml

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

sml/branches/SMLNJ/src/MLRISC/IR/mlrisc-ir.sml revision 469, Wed Nov 10 22:42:52 1999 UTC sml/trunk/src/MLRISC/IR/mlrisc-ir.sml revision 545, Thu Feb 24 13:56:44 2000 UTC
# Line 11  Line 11 
11   * -- Allen   * -- Allen
12   *)   *)
13    
14  functor MLRISC_IRFn  functor MLRISC_IR
15     (structure CFG         : CONTROL_FLOW_GRAPH     (structure CFG         : CONTROL_FLOW_GRAPH
16      structure CDG         : CONTROL_DEPENDENCE_GRAPH      structure CDG         : CONTROL_DEPENDENCE_GRAPH
17      structure Loop        : LOOP_STRUCTURE      structure Loop        : LOOP_STRUCTURE
# Line 72  Line 72 
72     val verbose = MLRiscControl.getFlag "verbose"     val verbose = MLRiscControl.getFlag "verbose"
73    
74     fun memo name compute =     fun memo name compute =
75     let val {get,set,rmv,...} = A.new NONE     let val {get,set,rmv,...} = A.new(SOME(fn _ => name))
76         fun getView(IR as G.GRAPH{graph_info=CFG.INFO{annotations,...},...}:IR)=         fun getView(IR as G.GRAPH{graph_info=CFG.INFO{annotations,...},...}:IR)=
77         let fun process(SOME(ref(SOME info))) =         let fun process(SOME(ref(SOME info))) =
78                   (if !verbose then print ("[reusing "^name^"]") else (); info)                   (if !verbose then print ("[reusing "^name^"]") else (); info)

Legend:
Removed from v.469  
changed lines
  Added in v.545

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