Une MAJ de sécurité est nécessaire sur notre version actuelle. Elle sera effectuée lundi 02/08 entre 12h30 et 13h. L'interruption de service devrait durer quelques minutes (probablement moins de 5 minutes).

Commit b8823b2e authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

relax a too strict assertion in Loc.join

parent 1049ecde
......@@ -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
......
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