relax a too strict assertion in Loc.join

b8823b2e · Andrei Paskevich · 1049ecde · b8823b2e
Commit b8823b2e authored Mar 04, 2011 by Andrei Paskevich
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/util/loc.ml src/util/loc.ml +2 -2

No files found.
--- a/src/util/loc.ml
+++ b/src/util/loc.ml
@@ -53,8 +53,8 @@ exception Located of position * exn

 let dummy_position = ("",0,0,0)

-let join (f1,l1,b1,_) (f2,l2,_,e2) =
-  assert (f1 == f2 && l1 == l2); (f1,l1,b1,e2)
+let join (f1,l1,b1,e1) (f2,_,b2,e2) =
+  assert (f1 = f2); (f1,l1,b1,e1+e2-b2)

 let extract (b,e) =
  let f = b.pos_fname in