fact: Definition f_pq_insert := {| fn_return := tuint; fn_callconv := cc_default; fn_params := ((_pq, (tptr (Tstruct _structPQ noattr))) :: (_priority, tint) :: (_data, tint) :: nil); fn_vars := nil; fn_temps := ((_t'1, tuint) :: (_t'3, tuint) :: (_t'2, tuint) :: nil); fn_body := (Ssequence (Ssequence (Sset _t'2 (Efield (Ederef (Etempvar _pq (tptr (Tstruct _structPQ noattr))) (Tstruct _structPQ noattr)) _first_available tuint)) (Ssequence (Sset _t'3 (Efield (Ederef (Etempvar _pq (tptr (Tstruct _structPQ noattr))) (Tstruct _structPQ noattr)) _capacity tuint)) (Sifthenelse (Ebinop Oeq (Etempvar _t'2 tuint) (Etempvar _t'3 tuint) tint) (Sreturn (Some (Econst_int (Int.repr 0) tint))) Sskip))) (Ssequence (Scall (Some _t'1) (Evar _pq_insert_nc (Tfunction (Tcons (tptr (Tstruct _structPQ noattr)) (Tcons tint (Tcons tint Tnil))) tuint cc_default)) ((Etempvar _pq (tptr (Tstruct _structPQ noattr))) :: (Etempvar _priority tint) :: (Etempvar _data tint) :: nil)) (Sreturn (Some (Etempvar _t'1 tuint))))) |}.
imports: Coq(String List ZArith) compcert(Coqlib Integers Floats AST Ctypes Cop Clight Clightdefs)