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 | |
| parent | f8f27d0f5a39c8c55b33e31a73500a2e054b6764 (diff) | |
| parent | 1e4d643b8bb0f516651294d8881711720e349b85 (diff) | |
Merge PR #9478: Remove the comment fields of locations.
Reviewed-by: ejgallego
Diffstat (limited to 'gramlib')
| -rw-r--r-- | gramlib/ploc.ml | 5 | ||||
| -rw-r--r-- | gramlib/ploc.mli | 3 |
2 files changed, 2 insertions, 6 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 diff --git a/gramlib/ploc.mli b/gramlib/ploc.mli index 100fbc7271..15a5a74455 100644 --- a/gramlib/ploc.mli +++ b/gramlib/ploc.mli @@ -35,6 +35,3 @@ val after : Loc.t -> int -> int -> Loc.t (** [Ploc.after loc sh len] is the location just after loc (starting at the end position of [loc]) shifted with [sh] characters and of length [len]. *) - -val with_comment : Loc.t -> string -> Loc.t - (** Change the comment part of the given location *) |