artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Avoid warnings in recursve functions.

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
module/language/c99/compiler.mes
View file

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