Simplified DebugInformation interface.

Instead of exporting and setting all functions we just fill the
struct already in DebugInformation with the correct functions.

1 files changed, 1 insertions, 50 deletions

diff --git a/debug/DebugInformation.mli b/debug/DebugInformation.mli
index a5d1f806..8905d8bf 100644
--- a/debug/DebugInformation.mli
+++ b/debug/DebugInformation.mli
@@ -11,7 +11,6 @@
 (* *********************************************************************)
 
 open BinNums
-open C
 open Camlcoq
 open DebugTypes
 open Sections
@@ -48,58 +47,10 @@ val file_name: string ref
 
 val fold_definitions: (int -> definition_type -> 'a -> 'a) -> 'a -> 'a
 
-val atom_global: ident -> atom -> unit
-
-val set_composite_size: ident -> struct_or_union -> int option -> unit
-
-val set_member_offset: ident -> string -> int -> unit
-
-val set_bitfield_offset: ident -> string -> int -> string -> int -> unit
-
-val insert_global_declaration:  Env.t -> globdecl -> unit
-
 val diab_add_fun_addr: atom -> section_name -> (int * int) -> unit
 
 val gnu_add_fun_addr: atom -> section_name -> (int * int) -> unit
 
-val all_files_iter: (string -> unit) -> unit
-
-val insert_local_declaration: storage -> ident -> typ -> location -> unit
-
-val atom_local_variable: ident -> atom -> unit
-
-val enter_scope: int -> int -> int -> unit
-
-val enter_function_scope: int -> int -> unit
-
-val add_lvar_scope: int -> ident -> int -> unit
-
-val open_scope: atom -> int -> positive -> unit
-
-val close_scope: atom -> int -> positive -> unit
-
-val start_live_range: (atom * atom) -> positive -> (int * int AST.builtin_arg) -> unit
-
-val end_live_range: (atom * atom) -> positive -> unit
-
-val stack_variable: (atom * atom) -> int * int AST.builtin_arg -> unit
-
-val add_label: atom -> positive -> int -> unit
-
-val atom_parameter: ident -> ident -> atom -> unit
-
-val compute_diab_file_enum: (section_name -> int) -> (string-> int) -> (unit -> unit) -> unit
-
-val compute_gnu_file_enum: (string -> unit) -> unit
-
-val exists_section: section_name -> bool
-
-val remove_unused: ident -> unit
-
-val remove_unused_function: ident -> unit
-
-val variable_printed: string -> unit
-
 val add_diab_info: section_name ->  int -> int  -> int -> unit
 
-val init: string -> unit
+val default_debug: Debug.implem