diff options
author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-04-23 13:42:36 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-04-23 13:42:36 +0200 |
commit | 23f871b3faf89679414485c438ed211151bd99ce (patch) | |
tree | b1a3c480ca621b8c7dfecb430507e5ca0e72e88b /debug/Debug.ml | |
parent | 04b822ca7eaf59a967b9b8f700104b78e77e5c98 (diff) | |
parent | 65ac4adf1fb1c2642a8e69d098049dfa2ab90e92 (diff) | |
download | compcert-23f871b3faf89679414485c438ed211151bd99ce.tar.gz compcert-23f871b3faf89679414485c438ed211151bd99ce.zip |
Problems with Dwarf ranges (#159)
Merge of branch dwarf-ranges
Diffstat (limited to 'debug/Debug.ml')
-rw-r--r-- | debug/Debug.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/debug/Debug.ml b/debug/Debug.ml index 168df5a0..812f57cc 100644 --- a/debug/Debug.ml +++ b/debug/Debug.ml @@ -47,7 +47,7 @@ type implem = exists_section: section_name -> bool; remove_unused: ident -> unit; remove_unused_function: ident -> unit; - variable_printed: string -> unit; + symbol_printed: string -> unit; add_diab_info: section_name -> int -> int -> int -> unit; } @@ -79,7 +79,7 @@ let default_implem = exists_section = (fun _ -> true); remove_unused = (fun _ -> ()); remove_unused_function = (fun _ -> ()); - variable_printed = (fun _ -> ()); + symbol_printed = (fun _ -> ()); add_diab_info = (fun _ _ _ _ -> ()); } @@ -111,5 +111,5 @@ let compute_diab_file_enum end_l entry_l line_e = !implem.compute_diab_file_enum let compute_gnu_file_enum f = !implem.compute_gnu_file_enum f let remove_unused ident = !implem.remove_unused ident let remove_unused_function ident = !implem.remove_unused_function ident -let variable_printed ident = !implem.variable_printed ident +let symbol_printed ident = !implem.symbol_printed ident let add_diab_info sec line_start debug_info low_pc = !implem.add_diab_info sec line_start debug_info low_pc |