|  |  | @ -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 | 
			
				
				
			
		
	
		
		
	
		
		
			
				
					
					|  |  |  | 
 |  |  |  | 
 | 
			
		
	
		
		
			
				
					
					|  |  |  | 
 |  |  |  | 
 | 
			
		
	
		
		
			
				
					
					|  |  |  | (***************) |  |  |  | (***************) | 
			
		
	
	
		
		
			
				
					|  |  | 
 |