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 108, Thu May 28 22:07:09 1998 UTC revision 109, Fri May 29 02:12:55 1998 UTC
# Line 20  Line 20 
20          fun flush() = #flush (!out) ()          fun flush() = #flush (!out) ()
21        end        end
22    
     structure Lazy : LAZYCONTROL =  
       struct  
         val enabled = ref false      (* enable/disable lazy features *)  
         val printDebug = ref false   (* General Degubing Info *)  
         val printStats = ref false   (* General Statistics *)  
         val redGenFD1 = ref true  
                             (* Reduce Generated Force-Delays at Ast Level *)  
         val redGenFD2 = ref true  
                             (* Reduce Generated Force-Delays at matchcomp *)  
         val redAllFD1 = ref true     (* Reduce All Force-Delays at Ast Level *)  
         val redAllFD2 = ref true     (* Reduce All Force-Delays at machcomp *)  
         val inlineF = ref true       (* Inline Force *)  
         val inlineD = ref true       (* Inline Delay *)  
         val earlyDT = ref false      (* Early (Ast) Dollar translate *)  
         val ok_MARK = ref true  
                             (* Correct treatment of MARK in translate *)  
         val earlyFP = ref true       (* Early fixity parsing *)  
       end  
   
23      structure MC : MCCONTROL =      structure MC : MCCONTROL =
24      struct      struct
25        val printArgs = ref false        val printArgs = ref false
# Line 174  Line 155 
155      val instantiateSigs = ref true      val instantiateSigs = ref true
156      val debugging = ref false      val debugging = ref false
157      val internals = ref false      val internals = ref false
158        val lazysml = ref false
159      val interp = ref false      val interp = ref false
160  (*  (*
161      val debugLook = ref false      val debugLook = ref false
# Line 203  Line 185 
185    
186  (*  (*
187   * $Log: control.sml,v $   * $Log: control.sml,v $
188     * Revision 1.3  1998/05/20 18:32:35  george
189     *   Cosmetic change -- zsh
190     *
191     * Revision 1.2  1998/05/15 03:53:22  dbm
192     *   Structure Lazy and signature LAZYCONTROL replaced by val lazysml.
193     *
194   * Revision 1.1.1.1  1998/04/08 18:39:14  george   * Revision 1.1.1.1  1998/04/08 18:39:14  george
195   * Version 110.5   * Version 110.5
196   *   *

Legend:
Removed from v.108  
changed lines
  Added in v.109

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