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 /powerpc/TargetPrinter.ml | |
| parent | 035047ca6c4f62c8481ffa9e4cc0783ea6a1b784 (diff) | |
| download | compcert-kvx-8fa20fb6701a380835eed29770aafd3f087ebad8.tar.gz compcert-kvx-8fa20fb6701a380835eed29770aafd3f087ebad8.zip | |
Print all files ever encountered in the filenum.
Diffstat (limited to 'powerpc/TargetPrinter.ml')
| -rw-r--r-- | powerpc/TargetPrinter.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index 50a00b9e..013eefc2 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -240,17 +240,16 @@ module Diab_System : SYSTEM = end_addr := label_end; fprintf oc "%a:\n" label label_end; fprintf oc " .text\n"; - Hashtbl.iter (fun file _ -> + PrintAnnot.StringSet.iter (fun file -> let label = new_label () in Hashtbl.add filenum file label; - fprintf oc ".L%d: .d2filenum \"%s\"\n" label file) PrintAnnot.filename_info; + fprintf oc ".L%d: .d2filenum \"%s\"\n" label file) !PrintAnnot.all_files; fprintf oc " .d2_line_end\n" end - let print_file_loc oc (file,col) = + let print_file_loc oc (file,col) = fprintf oc " .4byte %a\n" label (Hashtbl.find filenum file); fprintf oc " .uleb128 %d\n" col - end module Target (System : SYSTEM):TARGET = |