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

mescc: Tinycc support: comma operator.

Browse source 
* module/language/c99/compiler.mes (expr->accu): Handle comma operator.
* scaffold/tests/74-multi-line-string.c (test): Test it.
This commit is contained in:
Jan Nieuwenhuizen 2017-07-17 00:29:18 +02:00
parent 3cdfdd7407
commit 59e663021a
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -449,6 +449,13 @@
locals))
(pmatch o
((expr) info)
((comma-expr) info)
((comma-expr ,a . ,rest)
(let ((info ((expr->accu info) a)))
((expr->accu info) `(comma-expr ,@rest))))
((p-expr (string ,string))
(let* ((globals ((globals:add-string globals) string))
(info (clone info #:globals globals)))

4
scaffold/tests/74-multi-line-string.c
View file

@ -31,7 +31,7 @@ char const* help =
int
test ()
{
if (strcmp (help, "All your base are")) return 1;
if (printf ("belong to us"), strcmp (help, "All your base are")) return 1;
return 0;
return 2,1,0;
}