@@ -13,61 +13,61 @@ struct
1313 module D = BoolDomain. MustBool
1414 module C = Printable. Unit
1515
16- let context ctx _ _ = ()
16+ let context man _ _ = ()
1717 let startcontext () = ()
1818
1919 (* transfer functions *)
20- let assign ctx (lval :lval ) (rval :exp ) : D.t =
20+ let assign man (lval :lval ) (rval :exp ) : D.t =
2121 false
2222
23- let branch ctx (exp :exp ) (tv :bool ) : D.t =
24- ctx .local
23+ let branch man (exp :exp ) (tv :bool ) : D.t =
24+ man .local
2525
26- let body ctx (f :fundec ) : D.t =
27- ctx .local
26+ let body man (f :fundec ) : D.t =
27+ man .local
2828
29- let return ctx (exp :exp option ) (f :fundec ) : D.t =
30- if ctx .local then
29+ let return man (exp :exp option ) (f :fundec ) : D.t =
30+ if man .local then
3131 match f.sformals with
3232 | [arg] when isIntegralType arg.vtype ->
33- (match ctx .ask (EvalInt (Lval (Var arg, NoOffset ))) with
33+ (match man .ask (EvalInt (Lval (Var arg, NoOffset ))) with
3434 | v when Queries.ID. is_bot v -> false
3535 | v ->
3636 match Queries.ID. to_bool v with
3737 | Some b -> b
3838 | None -> false )
3939 | _ ->
40- (* should not happen, ctx .local should always be false in this case *)
40+ (* should not happen, man .local should always be false in this case *)
4141 false
4242 else
4343 false
4444
45- let enter ctx (lval : lval option ) (f :fundec ) (args :exp list ) : (D.t * D.t) list =
45+ let enter man (lval : lval option ) (f :fundec ) (args :exp list ) : (D.t * D.t) list =
4646 let candidate = match f.sformals with
4747 | [arg] when isIntegralType arg.vtype -> true
4848 | _ -> false
4949 in
5050 [false , candidate]
5151
52- let combine_env ctx lval fexp f args fc au f_ask =
52+ let combine_env man lval fexp f args fc au f_ask =
5353 if au then (
5454 (* Assert before combine_assign, so if variables in `arg` are assigned to, asserting doesn't unsoundly yield bot *)
5555 (* See test 62/03 *)
5656 match args with
57- | [arg] -> ctx .emit (Events. Assert arg)
57+ | [arg] -> man .emit (Events. Assert arg)
5858 | _ -> ()
5959 );
6060 false
6161
62- let combine_assign ctx (lval :lval option ) fexp (f :fundec ) (args :exp list ) fc (au :D.t ) (f_ask : Queries.ask ) : D.t =
62+ let combine_assign man (lval :lval option ) fexp (f :fundec ) (args :exp list ) fc (au :D.t ) (f_ask : Queries.ask ) : D.t =
6363 false
6464
65- let special ctx (lval : lval option ) (f :varinfo ) (arglist :exp list ) : D.t =
65+ let special man (lval : lval option ) (f :varinfo ) (arglist :exp list ) : D.t =
6666 false
6767
6868 let startstate v = false
69- let threadenter ctx ~multiple lval f args = [false ]
70- let threadspawn ctx ~multiple lval f args fctx = false
69+ let threadenter man ~multiple lval f args = [false ]
70+ let threadspawn man ~multiple lval f args fman = false
7171 let exitstate v = false
7272end
7373
0 commit comments