fact: Definition f_Is_block := {| fn_return := tint; fn_callconv := cc_default; fn_params := ((_x, (talignas 3%N (tptr tvoid))) :: nil); fn_vars := nil; fn_temps := ((_t'1, tint) :: nil); fn_body := (Ssequence (Scall (Some _t'1) (Evar _test_int_or_ptr (Tfunction (Tcons (talignas 3%N (tptr tvoid)) Tnil) tint cc_default)) ((Etempvar _x (talignas 3%N (tptr tvoid))) :: nil)) (Sreturn (Some (Ebinop Oeq (Etempvar _t'1 tint) (Econst_int (Int.repr 0) tint) tint)))) |}.
imports: Coq(String List ZArith) compcert(Coqlib Integers Floats AST Ctypes Cop Clight Clightdefs)