File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed
Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -522,7 +522,7 @@ struct
522522 | Union (f ,e ) -> reachable_from_value ask e t description
523523 (* For arrays, we ask to read from an unknown index, this will cause it
524524 * join all its values. *)
525- | Array a -> reachable_from_value ask (ValueDomain.CArrays. get (Queries. to_value_domain_ask ask) a (None , ValueDomain.ArrIdxDomain. top () )) t description
525+ | Array a -> reachable_from_value ask (ValueDomain.CArrays. get (Queries. to_value_domain_ask ask) a (None , ValueDomain.ArrIdxDomain. top () ) None ) t description
526526 | Blob (e ,_ ,_ ) -> reachable_from_value ask e t description
527527 | Struct s -> ValueDomain.Structs. fold (fun k v acc -> AD. join (reachable_from_value ask v t description) acc) s empty
528528 | Int _ -> empty
@@ -1398,7 +1398,7 @@ struct
13981398 | Q. MayOverflow e ->
13991399 IntDomain. local_no_overflow := true ;
14001400 if M. tracing then M. trace " apron" " exp %a\n " d_exp e;
1401- ignore(query_evalint ( Analyses. ask_of_ctx ctx) ctx.global ctx. local e);
1401+ ignore(query_evalint ~ ctx ctx.local e);
14021402 ! IntDomain. local_no_overflow ;
14031403 | _ -> Q.Result. top q
14041404
You can’t perform that action at this time.
0 commit comments