mescc: Avoid warnings in recursve functions.

* module/language/c99/compiler.mes (expr->accu): Avoid warnings in recursve functions.
This commit is contained in:
Jan Nieuwenhuizen 2017-07-09 11:01:30 +02:00
parent f8865ab276
commit 637c40aeb9
1 changed files with 2 additions and 1 deletions

View File

@ -665,7 +665,8 @@
(if (not (assoc-ref locals name))
(begin
(if (and (not (assoc name (.functions info)))
(not (assoc name globals)))
(not (assoc name globals))
(not (equal? name (.function info))))
(stderr "warning: undeclared function: ~a\n" name))
(append-text args-info (list (i386:call-label name n))))
(let* ((empty (clone info #:text '()))