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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/common/error.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/common/error.sml

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

revision 2156, Mon Feb 18 17:02:06 2013 UTC revision 2157, Mon Feb 18 17:02:32 2013 UTC
# Line 18  Line 18 
18      val mkErrStream : string -> err_stream      val mkErrStream : string -> err_stream
19    
20      val anyErrors : err_stream -> bool      val anyErrors : err_stream -> bool
21        val anyWarnings : err_stream -> bool
22      val sourceFile : err_stream -> string      val sourceFile : err_stream -> string
23      val sourceMap : err_stream -> AntlrStreamPos.sourcemap      val sourceMap : err_stream -> AntlrStreamPos.sourcemap
24    
# Line 90  Line 91 
91            }            }
92    
93      fun anyErrors (ES{numErrors, ...}) = (!numErrors > 0)      fun anyErrors (ES{numErrors, ...}) = (!numErrors > 0)
94        fun anyWarnings (ES{numWarnings, ...}) = (!numWarnings > 0)
95      fun sourceFile (ES{srcFile, ...}) = srcFile      fun sourceFile (ES{srcFile, ...}) = srcFile
96      fun sourceMap (ES{sm, ...}) = sm      fun sourceMap (ES{sm, ...}) = sm
97    
# Line 215  Line 217 
217              pr              pr
218            end            end
219    
220      fun report (outStrm, es as ES{errors, ...}) =      fun report (outStrm, es as ES{errors, numErrors, numWarnings, ...}) =
221            List.app (printError (outStrm, es)) (sort (!errors))            List.app (printError (outStrm, es)) (sort (!errors));
222    
223    (* a term marked with a source-map span *)    (* a term marked with a source-map span *)
224      type 'a mark = {span : span, tree : 'a}      type 'a mark = {span : span, tree : 'a}

Legend:
Removed from v.2156  
changed lines
  Added in v.2157

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