fact: Definition test_iop_sem : extcall_sem := fun _ args m1 trc ret m2 => m1 = m2 /\ trc = nil /\ match args with | [Vint i] => if (Int.eq Int.one (Int.modu i (Int.repr 2))) then ret = Vone else False | [Vptr b ofs] => if (Ptrofs.eq Ptrofs.one (Ptrofs.modu ofs (Ptrofs.repr 2))) then False else if valid_b_o_So_dec m1 b ofs then ret = Vzero else False | _ => False end.
imports: compcert.common.Events compcert.common.Memory compcert.common.Values compcert.common.AST compcert.lib.Integers Coq.ZArith.BinInt Coq.Lists.List Coq.micromega.Lia