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

SCM Repository

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

Diff of /trunk/src/compiler/common/error.sml

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

revision 1139, Fri May 6 14:08:57 2011 UTC revision 1140, Fri May 6 14:16:00 2011 UTC
# Line 176  Line 176 
176                  F.STR file, F.INT l1, F.INT c1, F.INT l2, F.INT c2                  F.STR file, F.INT l1, F.INT c1, F.INT l2, F.INT c2
177                ]                ]
178    
179      fun printError (outStrm, ES{sm, ...}) = let      fun printError (outStrm, ES{srcFile, sm, ...}) = let
180            fun pr {kind, pos, msg} = let            fun pr {kind, pos, msg} = let
181                  val kind = (case kind of ERR => "Error" | Warn => "Warning")                  val kind = (case kind of ERR => "Error" | Warn => "Warning")
182                  val pos = (case pos                  val pos = (case pos
183                         of SOME(p1, p2) => if (p1 = p2)                         of NONE => concat["[", srcFile, "] "]
184                            | SOME(p1, p2) => if (p1 = p2)
185                              then let                              then let
186                                val {fileName=SOME f, lineNo, colNo} = SP.sourceLoc sm p1                                val {fileName=SOME f, lineNo, colNo} = SP.sourceLoc sm p1
187                                in                                in

Legend:
Removed from v.1139  
changed lines
  Added in v.1140

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