method vstmt_aux stmt =
match stmt.skind with
| Return (res,loc) ->
let kf = Extlib.the self#current_kf in
let vi = Kernel_function.get_vi kf in
let current_function = vi.vname in
if not (Data_for_aorai.isIgnoredFunction current_function) then begin
let args = match res with
| None -> []
| Some exp -> [Cil.copy_exp exp]
in
let aux_vi = Kernel_function.Hashtbl.find aux_post_table kf in
let call =
mkStmtOneInstr (Call (None,Cil.evar ~loc aux_vi,args,loc))
in
let new_return = mkStmt ~valid_sid:true stmt.skind in
let new_stmts = [call; new_return] in
stmt.skind<-Block(Cil.mkBlock(new_stmts))
end;
SkipChildren
| _ -> DoChildren