From 7e3261daf2c746d5edb40f37724aa6001704ef2b Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Mon, 6 Feb 2017 13:47:07 +0100 Subject: Removed the open AST. Only two types from AST are needed and the global shadowing open can be removed. --- debug/Debug.ml | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'debug/Debug.ml') diff --git a/debug/Debug.ml b/debug/Debug.ml index 7403d7c2..168df5a0 100644 --- a/debug/Debug.ml +++ b/debug/Debug.ml @@ -10,9 +10,8 @@ (* *) (* *********************************************************************) -open AST open BinNums -open !C +open C open Camlcoq open DwarfTypes open Sections @@ -38,9 +37,9 @@ type implem = add_lvar_scope: int -> ident -> int -> unit; open_scope: atom -> int -> positive -> unit; close_scope: atom -> int -> positive -> unit; - start_live_range: (atom * atom) -> positive -> int * int builtin_arg -> unit; + start_live_range: (atom * atom) -> positive -> int * int AST.builtin_arg -> unit; end_live_range: (atom * atom) -> positive -> unit; - stack_variable: (atom * atom) -> int * int builtin_arg -> unit; + stack_variable: (atom * atom) -> int * int AST.builtin_arg -> unit; add_label: atom -> positive -> int -> unit; atom_parameter: ident -> ident -> atom -> unit; compute_diab_file_enum: (section_name -> int) -> (string-> int) -> (unit -> unit) -> unit; -- cgit