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

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

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

revision 732, Mon Nov 13 21:59:12 2000 UTC revision 733, Fri Nov 17 05:13:45 2000 UTC
# Line 45  Line 45 
45  fun split (fdec as (fk,f,args,body)) = let  fun split (fdec as (fk,f,args,body)) = let
46      val {getLty,addLty,...} = Recover.recover (fdec, false)      val {getLty,addLty,...} = Recover.recover (fdec, false)
47    
48      val m = Intmap.new(64, Unknown)      val m = IntHashTable.mkTable(64, Unknown)
49      fun addpurefun f = Intmap.add m (f, false)      fun addpurefun f = IntHashTable.insert m (f, false)
50      fun funeffect f = (Intmap.map m f) handle Uknown => true      fun funeffect f = (IntHashTable.lookup m f) handle Uknown => true
51    
52  (* sexp: env -> lexp -> (leE, leI, fvI, leRet)  (* sexp: env -> lexp -> (leE, leI, fvI, leRet)
53   * - env: IntSetF.set   current environment   * - env: IntSetF.set   current environment

Legend:
Removed from v.732  
changed lines
  Added in v.733

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