c: for undeclared function calls, put implicit decl in toplevel

To avoid repeated warnings

1 files changed, 5 insertions, 0 deletions

diff --git a/src/c.c b/src/c.c
index c449129..c6b6584 100644
--- a/src/c.c
+++ b/src/c.c
@@ -749,7 +749,12 @@ callexpr(CComp *cm, const Span *span_, const Expr *callee)
       };
       warn(&span, "call to undeclared function '%s'", name);
       ((Expr *)callee)->ty = decl.ty;
+
+      /* put in the top-level to avoid repeated warnings */
+      Env *save = cm->env;
+      for (Env *e = cm->env; e->up; e = e->up) ;
       ((Expr *)callee)->decl = putdecl(cm, &decl);
+      cm->env = save;
    }
 
    if (!builtin) {