From 6ce117058fd38c764176ad070285db6b6a2511e4 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Mon, 6 Feb 2017 16:49:13 +0100 Subject: Simplified DebugInformation interface. Instead of exporting and setting all functions we just fill the struct already in DebugInformation with the correct functions. --- debug/DebugInformation.mli | 51 +--------------------------------------------- 1 file changed, 1 insertion(+), 50 deletions(-) (limited to 'debug/DebugInformation.mli') 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 -- cgit