From fe04a872dffe7055558d5e0704a71d6ef04b5068 Mon Sep 17 00:00:00 2001
From: Benjamin Canou <benjamin@canou.fr>
Date: Fri, 8 Dec 2017 10:12:00 +0100
Subject: [PATCH] Remove unused file

---
 .../script_located_ir.ml                      | 73 -------------------
 1 file changed, 73 deletions(-)
 delete mode 100644 lib_embedded_client_alpha/script_located_ir.ml

diff --git a/lib_embedded_client_alpha/script_located_ir.ml b/lib_embedded_client_alpha/script_located_ir.ml
deleted file mode 100644
index 931accf73..000000000
--- a/lib_embedded_client_alpha/script_located_ir.ml
+++ /dev/null
@@ -1,73 +0,0 @@
-(**************************************************************************)
-(*                                                                        *)
-(*    Copyright (c) 2014 - 2017.                                          *)
-(*    Dynamic Ledger Solutions, Inc. <contact@tezos.com>                  *)
-(*                                                                        *)
-(*    All rights reserved. No warranty, explicit or implicit, provided.   *)
-(*                                                                        *)
-(**************************************************************************)
-
-open Tezos_micheline
-
-type point = Micheline_parser.point =
-  { point : int ;
-    byte : int ;
-    line : int ;
-    column : int }
-
-let point_zero = Micheline_parser.point_zero
-
-type location = Micheline_parser.location =
-  { start : point ;
-    stop : point }
-
-let location_encoding =
-  let open Data_encoding in
-  let point_encoding =
-    conv
-      (fun { line ; column ; point ; byte } -> (line, column, point, byte))
-      (fun (line, column, point, byte) -> { line ; column ; point ; byte })
-      (obj4
-         (req "line" uint16)
-         (req "column" uint16)
-         (req "point" uint16)
-         (req "byte" uint16)) in
-  conv
-    (fun { start ; stop } -> (start, stop))
-    (fun (start, stop) -> { start ; stop })
-    (obj2
-       (req "start" point_encoding)
-       (req "stop" point_encoding))
-
-type node = (location, string) Micheline.node
-
-open Micheline
-
-let node_location = function
-  | Int (loc, _)
-  | String (loc, _)
-  | Prim (loc, _, _, _)
-  | Seq (loc, _, _) -> loc
-
-let strip_locations root =
-  let id = let id = ref (-1) in fun () -> incr id ; !id in
-  let loc_table = ref [] in
-  let rec strip_locations l =
-    let id = id () in
-    match l with
-    | Int (loc, v) ->
-        loc_table := (id, loc) :: !loc_table ;
-        Int (id, v)
-    | String (loc, v) ->
-        loc_table := (id, loc) :: !loc_table ;
-        String (id, v)
-    | Seq (loc, seq, annot) ->
-        loc_table := (id, loc) :: !loc_table ;
-        Seq (id, List.map strip_locations seq, annot)
-    | Prim (loc, name, seq, annot) ->
-        loc_table := (id, loc) :: !loc_table ;
-        Prim (id, name, List.map strip_locations seq, annot) in
-  let stripped = strip_locations root in
-  stripped, List.rev !loc_table
-
-exception Missing_program_field of string