mescc: Support Nyacc-0.81.0.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 10 Sep 2017 19:09:23 +0000 (21:09 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 10 Sep 2017 19:09:23 +0000 (21:09 +0200)
* module/language/c99/compiler.mes (ast->info): Handle asm-expr from
  Nyacc 0.81.0.

module/language/c99/compiler.mes

index 28e82726f142a37904a2ef13586958838c1b403e..c243a85d1e6d17175bd7bf49cf73a1a1e05468cf 100644 (file)
 
         ((compd-stmt (block-item-list . ,statements)) ((ast-list->info info) statements))
 
 
         ((compd-stmt (block-item-list . ,statements)) ((ast-list->info info) statements))
 
+        ((asm-expr ,gnuc (,null ,arg0 . string))
+         (append-text info (wrap-as (asm->m1 arg0))))
+
         ((expr-stmt (fctn-call (p-expr (ident ,name)) (expr-list . ,expr-list)))
          (if (equal? name "asm") (let ((arg0 (cadr (cadar expr-list))))
                                    (append-text info (wrap-as (asm->m1 arg0))))
         ((expr-stmt (fctn-call (p-expr (ident ,name)) (expr-list . ,expr-list)))
          (if (equal? name "asm") (let ((arg0 (cadr (cadar expr-list))))
                                    (append-text info (wrap-as (asm->m1 arg0))))