diff options
| author | Emilio Jesus Gallego Arias | 2019-02-11 01:08:18 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-02-11 01:08:18 +0100 |
| commit | aa66e4b3e58699db5af904e14247c73744398732 (patch) | |
| tree | 739a35038b5922f2e9c47b3026322c63e69498b7 /gramlib/ploc.ml | |
| parent | f8f27d0f5a39c8c55b33e31a73500a2e054b6764 (diff) | |
| parent | 1e4d643b8bb0f516651294d8881711720e349b85 (diff) | |
Merge PR #9478: Remove the comment fields of locations.
Reviewed-by: ejgallego
Diffstat (limited to 'gramlib/ploc.ml')
| -rw-r--r-- | gramlib/ploc.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gramlib/ploc.ml b/gramlib/ploc.ml index 9342fc6c1d..056a2b7ad3 100644 --- a/gramlib/ploc.ml +++ b/gramlib/ploc.ml @@ -6,17 +6,16 @@ open Loc let make_unlined (bp, ep) = {fname = InFile ""; line_nb = 1; bol_pos = 0; line_nb_last = -1; bol_pos_last = 0; - bp = bp; ep = ep; comm = ""; ecomm = ""} + bp = bp; ep = ep; } let dummy = {fname = InFile ""; line_nb = 1; bol_pos = 0; line_nb_last = -1; bol_pos_last = 0; - bp = 0; ep = 0; comm = ""; ecomm = ""} + bp = 0; ep = 0; } (* *) 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} -let with_comment loc comm = {loc with comm = comm} exception Exc of Loc.t * exn |