diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-06 20:32:55 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-06 20:32:55 +0200 |
commit | 861292a6c5e58b4f78bef207c717b801b3fc1fed (patch) | |
tree | 970be0db2fb62e66b09c4fb90b2e750c255565e0 /debug/CtoDwarf.ml | |
parent | dba05a9f6259c82a350987b511bf1a71f113d0ba (diff) | |
download | compcert-861292a6c5e58b4f78bef207c717b801b3fc1fed.tar.gz compcert-861292a6c5e58b4f78bef207c717b801b3fc1fed.zip |
Startet implementation of new Debug interface.
Added a new file debug/Debug.ml which will be the interface between for
generating and printing the debuging information. Currently it contains
only the code for the line directived.
Diffstat (limited to 'debug/CtoDwarf.ml')
-rw-r--r-- | debug/CtoDwarf.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/debug/CtoDwarf.ml b/debug/CtoDwarf.ml index 063b0823..e37c6043 100644 --- a/debug/CtoDwarf.ml +++ b/debug/CtoDwarf.ml @@ -477,7 +477,7 @@ let union_to_dwarf (n,at,m) env gloc = (* Translate global declarations to there dwarf representation *) let globdecl_to_dwarf env (typs,decls) decl = - PrintAsmaux.add_file (fst decl.gloc); + Debug.add_file (fst decl.gloc); match decl.gdesc with | Gtypedef (n,t) -> let ret = typedef_to_dwarf (Some decl.gloc) (n.name,t) in typs@ret,decls |