module Oneret:sig
..end
typereturns_clause =
Cil_types.stmt * Cil_types.behavior * Cil_types.identified_predicate
typegoto_annot =
Cil_types.stmt * Cil_types.code_annotation
typecallback =
returns_clause -> goto_annot list -> unit
val oneret : ?callback:callback -> Cil_types.fundec -> unit
Make sure that there is only one Return statement in the whole body. Replace all the other returns with Goto. Make sure that there is a return if the function is supposed to return something, and it is not declared to not return.
~callback
, when provided,
is invoked with all the original returns clauses and their associated
annotation on inserted gotos.