From a0bef6920c64f2d0e51d4bdce2f08c927373fb66 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Fri, 2 Oct 2015 00:07:04 +0200 Subject: Started implementation of gnu compatible debug information. --- debug/DwarfTypes.mli | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'debug/DwarfTypes.mli') diff --git a/debug/DwarfTypes.mli b/debug/DwarfTypes.mli index 6c0af52b..96c763b3 100644 --- a/debug/DwarfTypes.mli +++ b/debug/DwarfTypes.mli @@ -248,7 +248,13 @@ type location_entry = } type dw_locations = int * location_entry list -type debug_entries = (string * int * dw_entry * dw_locations) list +type diab_entries = (string * int * dw_entry * dw_locations) list + +type gnu_entries = dw_entry * dw_locations + +type debug_entries = + | Diab of diab_entries + | Gnu of gnu_entries (* The target specific functions for printing the debug information *) module type DWARF_TARGET= -- cgit From 2bfa77d9eb3940b9b46865f7ebe760365164d312 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Fri, 2 Oct 2015 16:24:01 +0200 Subject: First try of debug information for gcc. --- debug/DwarfTypes.mli | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'debug/DwarfTypes.mli') diff --git a/debug/DwarfTypes.mli b/debug/DwarfTypes.mli index 96c763b3..ed75b3d7 100644 --- a/debug/DwarfTypes.mli +++ b/debug/DwarfTypes.mli @@ -60,8 +60,10 @@ type bound_value = (* Types representing the attribute information per tag value *) -type file_loc = int * constant - +type file_loc = + | Diab_file_loc of int * constant + | Gnu_file_loc of int * constant + type dw_tag_array_type = { array_type_file_loc: file_loc option; @@ -80,7 +82,6 @@ type dw_tag_compile_unit = compile_unit_name: string; compile_unit_low_pc: int; compile_unit_high_pc: int; - compile_unit_stmt_list: int; } type dw_tag_const_type = @@ -248,7 +249,7 @@ type location_entry = } type dw_locations = int * location_entry list -type diab_entries = (string * int * dw_entry * dw_locations) list +type diab_entries = (string * int * int * dw_entry * dw_locations) list type gnu_entries = dw_entry * dw_locations -- cgit