diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2004-11-02 10:41:12 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2004-11-02 10:41:12 +0000 |
| commit | a4bc8340a591e4d8086f57318739ed48c54d49da (patch) | |
| tree | 10e26f1c2ef84b595e91fba40b2512516e33e83b /parsing | |
| parent | a7a1c4659959d7c620220ceb0c154606de4c5365 (diff) | |
meilleur affichage pour les locations "nulle part"
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6651 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/location.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/parsing/location.ml b/parsing/location.ml index c3f24304d..0910cb9ff 100644 --- a/parsing/location.ml +++ b/parsing/location.ml @@ -207,8 +207,9 @@ let get_pos_info pos = let print ppf loc = let (file, line, startchar) = get_pos_info loc.loc_start in let endchar = loc.loc_end.pos_cnum - loc.loc_start.pos_cnum + startchar in - let startchar = if startchar < 0 then 0 else startchar in - let enchar = if endchar < 0 then 0 else endchar in + let (startchar, endchar) = + if startchar < 0 then (0, 1) else (startchar, endchar) + in if file = "" then begin if highlight_locations ppf loc none then () else fprintf ppf "Characters %i-%i:@." |