From 34cc6a603f34a430fc3b9a7071dcc1e19b2b7250 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Sun, 4 Oct 2015 22:15:20 +0200 Subject: Ensure that there are file directives for all files used in the debug information. --- debug/Debug.mli | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'debug/Debug.mli') diff --git a/debug/Debug.mli b/debug/Debug.mli index 98a13b30..577b0ef8 100644 --- a/debug/Debug.mli +++ b/debug/Debug.mli @@ -45,7 +45,8 @@ type implem = mutable atom_parameter: ident -> ident -> atom -> unit; mutable add_compilation_section_start: string -> int -> unit; mutable add_compilation_section_end: string -> int -> unit; - mutable compute_file_enum: (string -> int) -> (string-> int) -> (unit -> unit) -> unit; + mutable compute_diab_file_enum: (string -> int) -> (string-> int) -> (unit -> unit) -> unit; + mutable compute_gnu_file_enum: (string -> unit) -> unit; mutable exists_section: string -> bool; mutable remove_unused: ident -> unit; mutable variable_printed: string -> unit; @@ -79,7 +80,8 @@ val generate_debug_info: (atom -> string) -> string -> debug_entries option val atom_parameter: ident -> ident -> atom -> unit val add_compilation_section_start: string -> int -> unit val add_compilation_section_end: string -> int -> unit -val compute_file_enum: (string -> int) -> (string-> int) -> (unit -> unit) -> unit +val compute_diab_file_enum: (string -> int) -> (string-> int) -> (unit -> unit) -> unit +val compute_gnu_file_enum: (string -> unit) -> unit val exists_section: string -> bool val remove_unused: ident -> unit val variable_printed: string -> unit -- cgit