mescc: Avoid warnings in recursve functions.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 9 Jul 2017 09:01:30 +0000 (11:01 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 9 Jul 2017 09:01:30 +0000 (11:01 +0200)
* module/language/c99/compiler.mes (expr->accu): Avoid warnings in recursve functions.

module/language/c99/compiler.mes

index 467597c90e745833b9e125e1b3306193a2313cc2..3c9e29861db9a2c7238e932a2f404bd718303dc8 100644 (file)
                (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 '()))