mescc: Tinycc support: remove warnings for foo (void), foo (...).
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 23 Jul 2017 21:40:23 +0000 (23:40 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 26 Jul 2017 09:36:44 +0000 (11:36 +0200)
* module/language/c99/compiler.mes (.name, .type): Expect foo (void), foo (...).

module/language/c99/compiler.mes

index 0be21182fdfab73d4b4deb5a3bc7f8f8a0f70fca..714d32d1c907ebdc58dce393ecd5e5d34fbca7c1 100644 (file)
     ((fctn-defn _ (ftn-declr (ident ,name) _) _) name)
     ((fctn-defn _ (ptr-declr (pointer) (ftn-declr (ident ,name) _)) _) name)
     ((fctn-defn _ (ptr-declr (pointer (pointer)) (ftn-declr (ident ,name) _)) _) name)
     ((fctn-defn _ (ftn-declr (ident ,name) _) _) name)
     ((fctn-defn _ (ptr-declr (pointer) (ftn-declr (ident ,name) _)) _) name)
     ((fctn-defn _ (ptr-declr (pointer (pointer)) (ftn-declr (ident ,name) _)) _) name)
+    ((ellipsis) #f)
+    ((param-decl (decl-spec-list (type-spec (void)))) #f)
     ((param-decl _ (param-declr (ident ,name))) name)
     ((param-decl _ (param-declr (ptr-declr (pointer) (ident ,name)))) name)
     ((param-decl _ (param-declr (ptr-declr (pointer) (array-of (ident ,name))))) name)
     ((param-decl _ (param-declr (ident ,name))) name)
     ((param-decl _ (param-declr (ptr-declr (pointer) (ident ,name)))) name)
     ((param-decl _ (param-declr (ptr-declr (pointer) (array-of (ident ,name))))) name)
 
 (define (.type o)
   (pmatch o
 
 (define (.type o)
   (pmatch o
+    ((ellipsis) #f)
+    ((param-decl (decl-spec-list (type-spec (void)))) #f)
     ((param-decl (decl-spec-list (type-spec ,type)) _) (decl->ast-type type))
     ((param-decl ,type _) type)
     (_
     ((param-decl (decl-spec-list (type-spec ,type)) _) (decl->ast-type type))
     ((param-decl ,type _) type)
     (_