|
|
|
@ -59,4 +59,12 @@ let do_source_file (translation_unit_context: CFrontend_config.translation_unit_
|
|
|
|
|
|| Option.is_some Config.icfg_dotty_outfile
|
|
|
|
|
then Dotty.print_icfg_dotty source_file cfg ;
|
|
|
|
|
L.(debug Capture Verbose) "%a" Cfg.pp_proc_signatures cfg ;
|
|
|
|
|
let procedures_translated_summary =
|
|
|
|
|
EventLogger.ProceduresTranslatedSummary
|
|
|
|
|
{ procedures_translated_total= !CFrontend_config.procedures_attempted
|
|
|
|
|
; procedures_translated_failed= !CFrontend_config.procedures_failed
|
|
|
|
|
; lang= CFrontend_config.string_of_clang_lang translation_unit_context.lang
|
|
|
|
|
; source_file= translation_unit_context.source_file }
|
|
|
|
|
in
|
|
|
|
|
EventLogger.log procedures_translated_summary ;
|
|
|
|
|
()
|
|
|
|
|