diff options
| author | Emilio Jesus Gallego Arias | 2020-07-15 17:33:04 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-07-16 15:54:31 +0200 |
| commit | 4a4d35baf47944f4d30bd10de7e71f46f17da8f2 (patch) | |
| tree | 1375055cc0dcda8de90072f98678d1d25c684200 /gramlib/ploc.ml | |
| parent | f54bc666c62ad9a66067cb486816cdfc68c2946d (diff) | |
[gramlib] Remove legacy located exception wrapper in favor of standard infrastructure.
The old wrapper was basically unused, this PR also fixes backtraces in
some class of bugs such as https://github.com/coq/coq/issues/12695
Diffstat (limited to 'gramlib/ploc.ml')
| -rw-r--r-- | gramlib/ploc.ml | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gramlib/ploc.ml b/gramlib/ploc.ml index 056a2b7ad3..e121342c94 100644 --- a/gramlib/ploc.ml +++ b/gramlib/ploc.ml @@ -16,10 +16,3 @@ let dummy = let sub loc sh len = {loc with bp = loc.bp + sh; ep = loc.bp + sh + len} let after loc sh len = {loc with bp = loc.ep + sh; ep = loc.ep + sh + len} - -exception Exc of Loc.t * exn - -let raise loc exc = - match exc with - Exc (_, _) -> raise exc - | _ -> raise (Exc (loc, exc)) |