diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-11 16:19:12 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-11 16:19:12 +0000 |
| commit | 52c209f09fa266d4b05cccec061954efbd909ee6 (patch) | |
| tree | c86c321d0e4fd559e64690a8f085a24c5c26abdb /caml | |
| parent | ae5429cbc35e0f188839292ff13280bce8fb2b37 (diff) | |
Eviter de caster les fonctions directement dans le cas variadique, gcc dit que c'est interdit
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@96 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml')
| -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 de0b616..85f3b18 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" |