fact: Definition f_printPath := {| fn_return := tvoid; fn_callconv := cc_default; fn_params := ((_curr, tint) :: (_src, tint) :: (_prev, (tptr tint)) :: nil); fn_vars := nil; fn_temps := ((_t'1, tint) :: nil); fn_body := (Sifthenelse (Ebinop Oeq (Etempvar _curr tint) (Etempvar _src tint) tint) (Scall None (Evar _printf (Tfunction (Tcons (tptr tschar) Tnil) tint {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ((Evar ___stringlit_1 (tarray tschar 4)) :: (Etempvar _curr tint) :: nil)) (Ssequence (Ssequence (Sset _t'1 (Ederef (Ebinop Oadd (Etempvar _prev (tptr tint)) (Etempvar _curr tint) (tptr tint)) tint)) (Scall None (Evar _printPath (Tfunction (Tcons tint (Tcons tint (Tcons (tptr tint) Tnil))) tvoid cc_default)) ((Etempvar _t'1 tint) :: (Etempvar _src tint) :: (Etempvar _prev (tptr tint)) :: nil))) (Scall None (Evar _printf (Tfunction (Tcons (tptr tschar) Tnil) tint {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ((Evar ___stringlit_1 (tarray tschar 4)) :: (Etempvar _curr tint) :: nil)))) |}.
imports: Coq(String List ZArith) compcert(Coqlib Integers Floats AST Ctypes Cop Clight Clightdefs)