diff options
| -rw-r--r-- | caml/Cil2Csyntax.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/caml/Cil2Csyntax.ml b/caml/Cil2Csyntax.ml index de0b6165..85f3b186 100644 --- a/caml/Cil2Csyntax.ml +++ b/caml/Cil2Csyntax.ml @@ -491,12 +491,9 @@ let convertExpFuncall e tfun eList = | Econs (Expr (_, ty), rem) -> Tcons (ty, typeOfExprList rem) in let targs = typeOfExprList params in let tres = convertTyp res in - let tfun = Tfunction(targs, tres) in let (stub_fun_name, stub_fun_typ) = register_stub_function fun_name tres targs in - ((Expr(Ecast(tfun, Expr(Evar(intern_string stub_fun_name), - stub_fun_typ)), - tfun)), + (Expr(Evar(intern_string stub_fun_name), stub_fun_typ), params) end | _ -> internal_error "convertExpFuncall: not a function" |