|
|
@ -82,6 +82,7 @@ let print_results tenv actual_pre results =
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let log_call_trace ~caller_name ~callee_name ?callee_attributes ?reason ?dynamic_dispatch loc res =
|
|
|
|
let log_call_trace ~caller_name ~callee_name ?callee_attributes ?reason ?dynamic_dispatch loc res =
|
|
|
|
|
|
|
|
if !Config.footprint then
|
|
|
|
let get_valid_source_file loc =
|
|
|
|
let get_valid_source_file loc =
|
|
|
|
let file = loc.Location.file in
|
|
|
|
let file = loc.Location.file in
|
|
|
|
if SourceFile.is_invalid file then None else Some file
|
|
|
|
if SourceFile.is_invalid file then None else Some file
|
|
|
@ -111,7 +112,7 @@ let log_call_trace ~caller_name ~callee_name ?callee_attributes ?reason ?dynamic
|
|
|
|
; reason
|
|
|
|
; reason
|
|
|
|
; dynamic_dispatch }
|
|
|
|
; dynamic_dispatch }
|
|
|
|
in
|
|
|
|
in
|
|
|
|
if !Config.footprint then EventLogger.log call_trace
|
|
|
|
EventLogger.log call_trace
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(***************)
|
|
|
|
(***************)
|
|
|
|