let aorai_assigns loc =
let mk_from base =
let zone =
if Aorai_option.Deterministic.get () then
Logic_const.term ~loc (TLval base) (Cil.typeOfTermLval base)
else
let intv = TIndex (trange ~loc (None,None), TNoOffset) in
let tlv = Cil.addTermOffsetLval intv base in
Logic_const.term ~loc (TLval tlv) (Cil.typeOfTermLval tlv)
in (Logic_const.new_identified_term zone, FromAny)
in
Writes
[ mk_from (host_state_term ());
(Logic_const.new_identified_term
(Logic_const.tvar ~loc
(Data_for_aorai.get_logic_var Data_for_aorai.curOpStatus)),
FromAny);
(Logic_const.new_identified_term
(Logic_const.tvar ~loc
(Data_for_aorai.get_logic_var Data_for_aorai.curOp)),
FromAny)
]