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

Diff of /sml/trunk/src/compiler/FLINT/main/control.sml

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

revision 603, Thu Apr 6 19:59:57 2000 UTC revision 604, Fri Apr 7 13:53:08 2000 UTC
# Line 5  Line 5 
5      val print           = ref false      val print           = ref false
6      val printPhases     = ref false      val printPhases     = ref false
7      val printFctTypes   = ref false      val printFctTypes   = ref false
8      (* `split' should probably be called after `fixfix' since      (* `split' should probably be called just after `fixfix' since
9       * fcontract might eliminate some uncurry wrappers which are       * fcontract might eliminate some uncurry wrappers which are
10       * locally unused but could be cross-module inlined. *)       * locally unused but could be cross-module inlined. *)
11      val phases          = ref ["lcontract", "specialize",      val phases = ref ["lcontract", (* Cruder but quicker than fcontract *)
12                                 "fixfix", "fcontract",                                 "fixfix", "fcontract",
13                                 "loopify", "fixfix", (* "split", *) "fcontract",                        "specialize", (* "fixfix", "split", *) "fcontract",
14                                 "specialize", "fcontract",                        "wrap", "reify",
15                                 "wrap", "fcontract", (*"switchoff", *) "fcontract",                        "loopify", "fixfix", "fcontract+eta"]
                                (* "names2deb", "typelift", "deb2names", *)  
                                "reify", "loopify", "fixfix", "fcontract",  
                                "fixfix", "fcontract+eta"]  
16    
17      val inlineThreshold = ref 0 (* 16 *)      val inlineThreshold = ref 16
18      val splitThreshold  = ref 0      val splitThreshold  = ref 0
19      val unrollThreshold = ref 20      val unrollThreshold = ref 20
20      val maxargs         = ref 6      val maxargs         = ref 6

Legend:
Removed from v.603  
changed lines
  Added in v.604

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