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

Diff of /sml/trunk/src/compiler/TopLevel/viscomp/control.sml

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

revision 202, Sun Dec 13 02:29:45 1998 UTC revision 203, Sat Dec 19 20:51:39 1998 UTC
# Line 41  Line 41 
41      struct      struct
42          val print       = ref false          val print       = ref false
43          val printPhases = ref false          val printPhases = ref false
44            val phases      = ref ["lcontract", "specialize", "fixfix", "fcontract",
45                                   "wrap", "fcontract",
46                                   (* "names2deb", "typelift", "deb2names", *)
47                                   "reify", "loopify", "fcontract",
48                                   "fixfix", "fcontract"]
49    
50          val inlineThreshold = ref 16          val inlineThreshold = ref 16
51          val unrollThreshold = ref 20          val unrollThreshold = ref 20
52            val maxargs         = ref 10
53            val dropinvariant   = ref true
54    
55          val specialize  = ref true          val specialize  = ref true
56          val liftLiterals= ref false          val liftLiterals= ref false
57          val sharewrap   = ref true          val sharewrap   = ref true
         val maxargs     = ref 10  
58          val saytappinfo = ref false     (* for typelifting statistics *)          val saytappinfo = ref false     (* for typelifting statistics *)
         val phases      = ref ["lcontract", "specialize", "fixfix", "fcontract",  
                                "wrap", "fcontract",  
                                (* "names2deb", "typelift", "deb2names", *)  
                                "reify",  
                                "loopify", "fcontract", "fixfix", "fcontract"]  
59    
60          (* only for temporary debugging *)          (* only for temporary debugging *)
61          val misc        = ref 0          val misc        = ref 0
# Line 201  Line 204 
204      val lambdaSplitEnable = ref false      val lambdaSplitEnable = ref false
205      val crossInlineEnable  = ref false      val crossInlineEnable  = ref false
206  end  end
   
   
 (*  
  * $Log: control.sml,v $  
  * Revision 1.4  1998/05/23 14:10:30  george  
  *   Fixed RCS keyword syntax  
  *  
  *)  

Legend:
Removed from v.202  
changed lines
  Added in v.203

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