From 89e7840807d9b39636ed84c43ec21485ea776cf9 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Mon, 16 Mar 2015 18:09:15 +0100 Subject: Added file for the translation of the C Ast to Dwarf debugging information. --- debug/CtoDwarf.ml | 18 ++++++++++++++++++ debug/DwarfUtil.ml | 7 ------- 2 files changed, 18 insertions(+), 7 deletions(-) create mode 100644 debug/CtoDwarf.ml (limited to 'debug') diff --git a/debug/CtoDwarf.ml b/debug/CtoDwarf.ml new file mode 100644 index 00000000..0ee0842a --- /dev/null +++ b/debug/CtoDwarf.ml @@ -0,0 +1,18 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Bernhard Schommer, AbsInt Angewandte Informatik GmbH *) +(* *) +(* AbsInt Angewandte Informatik GmbH. All rights reserved. This file *) +(* is distributed under the terms of the INRIA Non-Commercial *) +(* License Agreement. *) +(* *) +(* *********************************************************************) + +(* Functions to translate a C Ast into Dwarf 2 debugging information *) + + +(* Hashtable to from type name to entry id *) +let type_table: (string, int) Hashtbl.t = Hashtbl.create 7 + 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 -- cgit