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/compiler/FLINT/opt/collect.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/opt/collect.sml

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

revision 183, Sun Nov 8 16:58:19 1998 UTC revision 184, Sun Nov 8 21:18:20 1998 UTC
# Line 10  Line 10 
10    
11      (* query functions *)      (* query functions *)
12      val escaping  : FLINT.lvar -> bool  (* non-call uses *)      val escaping  : FLINT.lvar -> bool  (* non-call uses *)
     val usenb     : FLINT.lvar -> int   (* nb of non-recursive uses *)  
13      val called    : FLINT.lvar -> bool  (* known call uses *)      val called    : FLINT.lvar -> bool  (* known call uses *)
14        val usenb     : FLINT.lvar -> int   (* nb of non-recursive uses *)
15      val actuals   : FLINT.lvar -> (FLINT.value option list) (* constant args *)      val actuals   : FLINT.lvar -> (FLINT.value option list) (* constant args *)
16    
17      (* inc the "true=call,false=use" count *)      (* inc the "true=call,false=use" count *)
# Line 97  Line 97 
97    
98  exception NotFound  exception NotFound
99    
100  val m : info M.intmap = M.new(128, NotFound)  val m : info M.intmap = M.new(1024, NotFound)
101    
102  (* map related helper functions *)  (* map related helper functions *)
103  fun get lv = (M.map m lv)  fun get lv = (M.map m lv)

Legend:
Removed from v.183  
changed lines
  Added in v.184

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