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

mescc: Tinycc support: empty for.

Browse source 
* module/language/c99/compiler.mes (test-jump-label->info): Handle
  empty expression.
* make.scm (add-tcc-test "45_empty_for"): Test it.
This commit is contained in:
Jan Nieuwenhuizen 2017-11-16 05:52:47 +01:00
parent d393fd3743
commit 67afa2a397
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
make.scm
View file

@ -310,7 +310,7 @@ exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$
;;"42_function_pointer" ; f* functions ;;"42_function_pointer" ; f* functions
"43_void_param" "43_void_param"
"44_scoped_declarations" "44_scoped_declarations"
;; "45_empty_for" ; unsupported "45_empty_for" ; unsupported
;;"46_grep" ; f* functions ;;"46_grep" ; f* functions
"47_switch_return" "47_switch_return"
"48_nested_break" "48_nested_break"

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

@ -1363,6 +1363,7 @@
jump-text))))) jump-text)))))
(lambda (o) (lambda (o)
(pmatch o (pmatch o
((expr) info)
;; unsigned ;; unsigned
;; ((le ,a ,b) ((jump i386:jump-ncz) o)) ; ja ;; ((le ,a ,b) ((jump i386:jump-ncz) o)) ; ja
;; ((lt ,a ,b) ((jump i386:jump-nc) o)) ; jae ;; ((lt ,a ,b) ((jump i386:jump-nc) o)) ; jae