diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-03-28 22:07:26 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-04 17:18:22 +0200 |
commit | df5c63872c2630d79b23c128ac47a62de3e9c322 (patch) | |
tree | cd47fd6d454164a2e8cf34886a0ed22d3acc0ac3 /lib/loc.ml | |
parent | e128900aee63c972d7977fd47e3fd21649b63409 (diff) |
Fixing #7100 (lost of main file location in case of Ltac failure in other file).
Diffstat (limited to 'lib/loc.ml')
-rw-r--r-- | lib/loc.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/loc.ml b/lib/loc.ml index 6f5283aab..1a09091bf 100644 --- a/lib/loc.ml +++ b/lib/loc.ml @@ -62,6 +62,11 @@ let merge_opt l1 l2 = match l1, l2 with | None, Some l -> Some l | Some l1, Some l2 -> Some (merge l1 l2) +let finer l1 l2 = match l1, l2 with + | None, _ -> false + | Some l , None -> true + | Some l1, Some l2 -> l1.fname = l2.fname && merge l1 l2 = l2 + let unloc loc = (loc.bp, loc.ep) let shift_loc kb kp loc = { loc with bp = loc.bp + kb ; ep = loc.ep + kp } |