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

DRAFT mescc: Hide assign size ERROR as WARNING behind MESCC_DEBUG.

Browse source 
* module/mescc/compile.scm (expr->register): Only output inexplicable
size warning when MESCC_DEBUG environment variable is set.
This commit is contained in:
Janneke Nieuwenhuizen 2023-11-05 10:20:46 +01:00
parent 607f86247d
commit 6f5aeed75a
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
module/mescc/compile.scm
View file

@ -1406,8 +1406,9 @@
(= size-b reg-size))) (= size-b reg-size)))
(not (and (= size reg-size) (not (and (= size reg-size)
(or (= size-b 1) (= size-b 2) (= size-b 4))))) (or (= size-b 1) (= size-b 2) (= size-b 4)))))
(format (current-error-port) "ERROR assign: ~a" (with-output-to-string (lambda () (pretty-print-c99 o)))) (when (getenv ("MESCC_DEBUG"))
(format (current-error-port) " size[~a]:~a != size[~a]:~a\n" rank size rank-b size-b)) (format (current-error-port) "WARNING assign: ~a" (with-output-to-string (lambda () (pretty-print-c99 o))))
(format (current-error-port) " size[~a]:~a != size[~a]:~a\n" rank size rank-b size-b)))
(pmatch a (pmatch a
((p-expr (ident ,name)) ((p-expr (ident ,name))
(if (or (<= size r-size) (if (or (<= size r-size)