Commit f224e984 authored by Pietro Abate's avatar Pietro Abate

[r2005-08-02 08:37:50 by afrisch] Empty log message

Original author: afrisch
Date: 2005-08-02 08:37:50+00:00
parent 8ea1096f
......@@ -92,10 +92,10 @@ let print_loc ppf ((src,i,j),w) =
| `Stream | `String _ ->
Format.fprintf ppf "At chars %i-%i:@\n%a" i j print_precise w
| `Buffer b ->
let b = Buffer.contents b in
let (l1,start1) = get_line_number_str b i in
Format.fprintf ppf "Line %i, characters %i-%i:@\n%a"
l1 (i - start1) (j - start1)
(* let b = Buffer.contents b in
let (l1,start1) = get_line_number_str b i in *)
Format.fprintf ppf "Characters %i-%i:@\n%a"
i j
print_precise w
| `File fn ->
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment