From 1e4d643b8bb0f516651294d8881711720e349b85 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 5 Feb 2019 16:03:11 +0100
Subject: Remove the comment fields of locations.

They didn't seem to be used at all.
---
 gramlib/ploc.ml  | 5 ++---
 gramlib/ploc.mli | 3 ---
 2 files changed, 2 insertions(+), 6 deletions(-)

(limited to 'gramlib')

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 *)
-- 
cgit v1.2.3