mescc: Tinycc support: ***parameter.
authorJan Nieuwenhuizen <janneke@gnu.org>
Thu, 20 Jul 2017 23:02:17 +0000 (01:02 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 26 Jul 2017 09:36:08 +0000 (11:36 +0200)
* module/language/c99/compiler.mes (.name): Support ***parameter.

module/language/c99/compiler.mes

index 70ed005400baee301ed5ad8f2cf911987febd3ee..2a73fa84035f757a1dc00861288666afb77a28e3 100644 (file)
     ((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 (ptr-declr (pointer (pointer)) (ident ,name)))) name)
+    ((param-decl _ (param-declr (ptr-declr (pointer (pointer (pointer))) (ident ,name)))) name)
     (_
      (format (current-error-port) "SKIP: .name =~a\n" o))))
 
     ((fctn-defn _ (ftn-declr _ ,formals) _) formals)
     ((fctn-defn _ (ptr-declr (pointer) (ftn-declr _ ,formals)) _) formals)
     ((fctn-defn _ (ptr-declr (pointer (pointer)) (ftn-declr _ ,formals)) _) formals)
+    ((fctn-defn _ (ptr-declr (pointer (pointer (pointer))) (ftn-declr _ ,formals)) _) formals)
     (_ (error ".formals: " o))))
 
 (define (formal->text n)
      1)
     ((param-decl (decl-spec-list . ,decl) (param-declr (ptr-declr (pointer (pointer)) (ident ,name))))
      2)
+    ((param-decl (decl-spec-list . ,decl) (param-declr (ptr-declr (pointer (pointer (pointer))) (ident ,name))))
+     3)
     (_ 0)))
 
 (define (formals->locals o)