diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-12-03 14:21:39 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-12-03 14:21:39 +0100 |
commit | 0ba8c3f06308f8f6a75abe4130972d2cb32a9abe (patch) | |
tree | 26c4193fda00d6456c75edf52f76f543036f9972 /debug/Debug.ml | |
parent | 05f604d7f6e5ca3a0b005ae7ae1073f2b9e83207 (diff) | |
download | compcert-kvx-0ba8c3f06308f8f6a75abe4130972d2cb32a9abe.tar.gz compcert-kvx-0ba8c3f06308f8f6a75abe4130972d2cb32a9abe.zip |
Fixed regression introduce by merge of PR#69.
Since the identifier of a function definition and of its declaration
are equal we only should remove functions if the function iteself is
removed.
Bug 17724.
Diffstat (limited to 'debug/Debug.ml')
-rw-r--r-- | debug/Debug.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/debug/Debug.ml b/debug/Debug.ml index 789ecb70..775a0903 100644 --- a/debug/Debug.ml +++ b/debug/Debug.ml @@ -48,6 +48,7 @@ type implem = compute_gnu_file_enum: (string -> unit) -> unit; exists_section: section_name -> bool; remove_unused: ident -> unit; + remove_unused_function: ident -> unit; variable_printed: string -> unit; add_diab_info: section_name -> int -> int -> int -> unit; } @@ -79,6 +80,7 @@ let default_implem = compute_gnu_file_enum = (fun _ -> ()); exists_section = (fun _ -> true); remove_unused = (fun _ -> ()); + remove_unused_function = (fun _ -> ()); variable_printed = (fun _ -> ()); add_diab_info = (fun _ _ _ _ -> ()); } @@ -110,5 +112,6 @@ let exists_section sec = !implem.exists_section sec let compute_diab_file_enum end_l entry_l line_e = !implem.compute_diab_file_enum end_l entry_l line_e 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 add_diab_info sec line_start debug_info low_pc = !implem.add_diab_info sec line_start debug_info low_pc |