Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/driver/main.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/driver/main.sml

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

revision 3863, Sun May 15 17:18:04 2016 UTC revision 3882, Thu May 19 19:50:46 2016 UTC
# Line 6  Line 6 
6   * All rights reserved.   * All rights reserved.
7   *)   *)
8    
 (* this is a dummy target for debugging purposes *)  
 structure DummyTarget =  
   struct  
   
     fun info double = {  
             layout = DefaultLayout.layout (DefaultLayout.gccVectorSizes double),  
             isInline =  
                fn LowOps.EigenVecs2x2 => false  
                 | LowOps.EigenVecs3x3 => false  
                 | LowOps.EigenVals2x2 => false  
                 | LowOps.EigenVals3x3 => false  
                 | _ => true  
           }  
   
   end  
   
9  structure Main : sig  structure Main : sig
10    
11      val main : (string * string list) -> OS.Process.status      val main : (string * string list) -> OS.Process.status
# Line 189  Line 173 
173                              then Log.init(base ^ ".log")                              then Log.init(base ^ ".log")
174                              else ();                              else ();
175                            doFile (target, file);                            doFile (target, file);
176                              PhaseTimer.stop Timers.timeCompiler;
177                            if Controls.get Ctl.collectStats                            if Controls.get Ctl.collectStats
178                              then (                              then (
179                                if (not logging)                                if (not logging)
# Line 196  Line 181 
181                                  else ();                                  else ();
182                                Stats.report ())                                Stats.report ())
183                              else ();                              else ();
                           PhaseTimer.stop Timers.timeCompiler;  
184                            Log.reportTiming Timers.timeCompiler;                            Log.reportTiming Timers.timeCompiler;
185                            OS.Process.success                            OS.Process.success
186                          ) handle exn => handleExn exn                          ) handle exn => handleExn exn

Legend:
Removed from v.3863  
changed lines
  Added in v.3882

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