mescc: Tinycc support: empty for.
authorJan Nieuwenhuizen <janneke@gnu.org>
Thu, 16 Nov 2017 04:52:47 +0000 (05:52 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Thu, 16 Nov 2017 04:52:47 +0000 (05:52 +0100)
* module/language/c99/compiler.mes (test-jump-label->info): Handle
  empty expression.
* make.scm (add-tcc-test "45_empty_for"): Test it.

make.scm
module/language/c99/compiler.mes

index 9d5323b2dee5bcfc5aea62b673dfdf1da5597b3f..915a74dd2a2c7192603447839c4d233d55be02b6 100755 (executable)
--- a/make.scm
+++ b/make.scm
@@ -310,7 +310,7 @@ exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$
    ;;"42_function_pointer"     ; f* functions
    "43_void_param"
    "44_scoped_declarations"
-   ;; "45_empty_for"           ; unsupported
+   "45_empty_for"           ; unsupported
    ;;"46_grep"                 ; f* functions
    "47_switch_return"
    "48_nested_break"
index 3c7be560aab3fc3edd13e4192eedfad06518205f..978dd3b97d4c7e0ddf8b7fca3f002930124c3e09 100644 (file)
                                   jump-text)))))
   (lambda (o)
     (pmatch o
+      ((expr) info)
       ;; unsigned
       ;; ((le ,a ,b) ((jump i386:jump-ncz) o)) ; ja
       ;; ((lt ,a ,b) ((jump i386:jump-nc) o))  ; jae