val reset : unit -> unit
val anyErrors : bool ref
- val errorText : string ref
val fileName : string ref
val sourceStream : TextIO.instream ref
val linePos : int list ref
val error : (int * int) option -> string -> unit
+ val warning : (int * int) option -> string -> unit
val dummyLoc : int * int