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/branches/SMLNJ/src/compiler/MiscUtil/util/errormsg.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/MiscUtil/util/errormsg.sml

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

revision 245, Sat Apr 17 18:47:12 1999 UTC revision 411, Fri Sep 3 00:25:03 1999 UTC
# Line 107  Line 107 
107        (ppmsg(errConsumer,(location_string source (p1,p2)),severity,msg,body);        (ppmsg(errConsumer,(location_string source (p1,p2)),severity,msg,body);
108         record(severity,anyErrors))         record(severity,anyErrors))
109    
110      fun errorNoSource (cons, anyE) locs sev msg body =
111          (ppmsg (cons, locs, sev, msg, body); record (sev, anyE))
112    
113    fun errorNoFile (errConsumer,anyErrors) ((p1,p2): region) severity msg body =    fun errorNoFile (errConsumer,anyErrors) ((p1,p2): region) severity msg body =
114        (ppmsg(errConsumer,        (ppmsg(errConsumer,
115               if p2>0 then concat[Int.toString p1, "-", Int.toString p2]               if p2>0 then concat[Int.toString p1, "-", Int.toString p2]
# Line 139  Line 142 
142  end  (* structure ErrorMsg *)  end  (* structure ErrorMsg *)
143    
144  (*  (*
145   * $Log$   * $Log: errormsg.sml,v $
146     * Revision 1.1.1.1  1998/04/08 18:39:16  george
147     * Version 110.5
148     *
149   *)   *)

Legend:
Removed from v.245  
changed lines
  Added in v.411

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