Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

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 121, Sat Jun 6 15:03:25 1998 UTC revision 122, Sat Jun 6 15:05:38 1998 UTC
# Line 37  Line 37 
37    
38      structure MLRISC = MLRISC_Control      structure MLRISC = MLRISC_Control
39    
40        structure FLINT =
41        struct
42            val print               = ref false
43            val inlineThreshold     = ref 0 (* it's buggy *)
44            val specialize          = ref true
45            val liftLiterals        = ref false (* true *)
46            val sharewrap           = ref true
47    
48            (* FLINT internal type-checking controls *)
49            val check               = ref true
50            val checkDatatypes      = ref true
51            val checkKinds          = ref true
52    
53            (* debugging *)
54            val debugFContract      = ref false
55        end
56    
57      structure CG : CGCONTROL =      structure CG : CGCONTROL =
58      struct      struct
59        val tailrecur = ref true        val tailrecur = ref true
60        val recordopt = ref true        val recordopt = ref true
       val specialize = ref true  
61        val tail = ref true        val tail = ref true
62        val allocprof = ref false        val allocprof = ref false
63        val closureprint = ref false        val closureprint = ref false
# Line 91  Line 107 
107        val spillGen = ref 0        val spillGen = ref 0
108        val foldconst = ref true        val foldconst = ref true
109        val etasplit = ref true        val etasplit = ref true
       val printFlint = ref false  
110        val printit = ref false        val printit = ref false
111        val printsize = ref false        val printsize = ref false
112        val scheduling = ref true        val scheduling = ref true
# Line 104  Line 119 
119        val rangeopt = ref false        val rangeopt = ref false
120        val icount = ref false        val icount = ref false
121        val debugRep = ref false        val debugRep = ref false
       val sharewrap = ref true  
122        val checklty1 = ref false        val checklty1 = ref false
123        val checklty2 = ref false        val checklty2 = ref false
124        val checklty3 = ref false        val checklty3 = ref false
# Line 112  Line 126 
126        val checkcps2 = ref false        val checkcps2 = ref false
127        val checkcps3 = ref false        val checkcps3 = ref false
128        val checkcps = ref false        val checkcps = ref false
       val liftLiterals = ref false (* true *)  
129        val flatfblock = ref true        val flatfblock = ref true
130        val deadup = ref true        val deadup = ref true
131        val pollChecks = ref false        val pollChecks = ref false
# Line 131  Line 144 
144        val controlDependence = ref false        val controlDependence = ref false
145        val flinton = ref true        val flinton = ref true
146    
       (* FLINT internal type-checking controls *)  
       val checkFlint     = ref true  
       val checkDatatypes = ref true  
       val checkKinds     = ref true  
   
147        val compdebugging = ref false        val compdebugging = ref false
148        val mudebugging   = ref false        val mudebugging   = ref false
149        val eedebugging   = ref false        val eedebugging   = ref false

Legend:
Removed from v.121  
changed lines
  Added in v.122

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