diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-04-01 12:17:20 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-04-01 12:17:20 +0200 |
commit | 8fa20fb6701a380835eed29770aafd3f087ebad8 (patch) | |
tree | 7629aa3b8721835b298f2aa998dbab9e49171b4e /debug | |
parent | 035047ca6c4f62c8481ffa9e4cc0783ea6a1b784 (diff) | |
download | compcert-8fa20fb6701a380835eed29770aafd3f087ebad8.tar.gz compcert-8fa20fb6701a380835eed29770aafd3f087ebad8.zip |
Print all files ever encountered in the filenum.
Diffstat (limited to 'debug')
-rw-r--r-- | debug/CtoDwarf.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/debug/CtoDwarf.ml b/debug/CtoDwarf.ml index b723a559..b1eea8f3 100644 --- a/debug/CtoDwarf.ml +++ b/debug/CtoDwarf.ml @@ -459,6 +459,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 = + PrintAnnot.add_file (fst decl.gloc); match decl.gdesc with | Gtypedef (n,t) -> let ret = typedef_to_dwarf (n,t) decl.gloc in typs@ret,decls |