c: fix default argument promotion for function types

1 files changed, 1 insertions, 0 deletions

diff --git a/c/c.c b/c/c.c
index a7f48a4..a5ac0b6 100644
--- a/c/c.c
+++ b/c/c.c
@@ -399,6 +399,7 @@ argpromote(union type t)
    if (isint(t)) t.t = intpromote(t.t);
    else if (t.t == TYFLOAT) t.t = TYDOUBLE;
    else if (t.t == TYARRAY) return mkptrtype(typechild(t), t.flag & TFCHLDQUAL);
+   else if (t.t == TYFUNC) return mkptrtype(t, 0);
    return t;
 }