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 3584, Wed Jan 13 22:43:14 2016 UTC revision 3585, Thu Jan 14 14:08:46 2016 UTC
# Line 59  Line 59 
59            val simple = SimpleOpt.checkAfter ("simplify", Simplify.transform (errStrm, ast))            val simple = SimpleOpt.checkAfter ("simplify", Simplify.transform (errStrm, ast))
60            val simple = SimpleOpt.transform simple            val simple = SimpleOpt.transform simple
61            in            in
           (* check for warnings and report if necessary *)  
             if Error.anyWarnings errStrm  
               then Error.report (TextIO.stdErr, errStrm)  
               else ();  
62              simple              simple
63            end            end
64    
# Line 72  Line 68 
68      fun frontEnd filename = let      fun frontEnd filename = let
69            val errStrm = Error.mkErrStream filename            val errStrm = Error.mkErrStream filename
70            fun finish () = (            fun finish () = (
71                  if Error.anyErrors errStrm                  checkForErrors errStrm;
72                    then (                  if Error.anyWarnings errStrm
                     Error.report (TextIO.stdErr, errStrm);  
                     quitWithError (Error.sourceFile errStrm))  
                 else if Error.anyWarnings errStrm  
73                    then Error.report (TextIO.stdErr, errStrm)                    then Error.report (TextIO.stdErr, errStrm)
74                    else ())                    else ())
75            in            in

Legend:
Removed from v.3584  
changed lines
  Added in v.3585

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