diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-11-25 12:56:41 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-11-25 12:56:41 +0100 |
| commit | ea4f17513442fa14ab18f46ec82949e6e80c5a2f (patch) | |
| tree | 70d61b60d7a09c3f7c19ca4f33a12a8c3083c0f9 /debug/DwarfPrinter.ml | |
| parent | e8f2ef5c8c926462277afb520cacaa265b7e612c (diff) | |
| download | compcert-kvx-ea4f17513442fa14ab18f46ec82949e6e80c5a2f.tar.gz compcert-kvx-ea4f17513442fa14ab18f46ec82949e6e80c5a2f.zip | |
Reset all Hashtbls.
A non reseted Hashtbl caused problems with multiple input files.
Bug 20462
Diffstat (limited to 'debug/DwarfPrinter.ml')
| -rw-r--r-- | debug/DwarfPrinter.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/debug/DwarfPrinter.ml b/debug/DwarfPrinter.ml index 1d336965..c9eb5acc 100644 --- a/debug/DwarfPrinter.ml +++ b/debug/DwarfPrinter.ml @@ -663,7 +663,10 @@ module DwarfPrinter(Target: DWARF_TARGET): (* Print the debug info and abbrev section *) - let print_debug oc = function + let print_debug oc debug = + Hashtbl.clear abbrev_mapping; + Hashtbl.clear loc_labels; + match debug with | Diab entries -> print_diab_entries oc entries | Gnu (cp,loc,s,r) -> print_gnu_entries oc cp loc s r |