diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-03-16 18:09:15 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-03-16 18:09:15 +0100 |
| commit | 89e7840807d9b39636ed84c43ec21485ea776cf9 (patch) | |
| tree | b7019fd505fe5daa369a798c12ff91f9362e860b /debug/DwarfUtil.ml | |
| parent | 9699d81b304414534008258c05d391bdc1c9e217 (diff) | |
| download | compcert-89e7840807d9b39636ed84c43ec21485ea776cf9.tar.gz compcert-89e7840807d9b39636ed84c43ec21485ea776cf9.zip | |
Added file for the translation of the C Ast to Dwarf debugging information.
Diffstat (limited to 'debug/DwarfUtil.ml')
| -rw-r--r-- | debug/DwarfUtil.ml | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/debug/DwarfUtil.ml b/debug/DwarfUtil.ml index b3cef748..764194a6 100644 --- a/debug/DwarfUtil.ml +++ b/debug/DwarfUtil.ml @@ -23,13 +23,6 @@ let next_id () = let reset_id () = id := 0 -(* Hashtable to from type name to entry id *) -let type_table: (string, int) Hashtbl.t = Hashtbl.create 7 - -(* Clear the type map *) -let reset_type_table () = - Hashtbl.clear type_table - (* Generate a new entry from a given tag *) let new_entry tag = let id = next_id () in |