From b87cd563763bff379f9414ceab99f00d616841e2 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Fri, 21 Jul 2017 01:02:17 +0200 Subject: [PATCH] mescc: Tinycc support: ***parameter. * module/language/c99/compiler.mes (.name): Support ***parameter. --- module/language/c99/compiler.mes | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/module/language/c99/compiler.mes b/module/language/c99/compiler.mes index 70ed0054..2a73fa84 100644 --- a/module/language/c99/compiler.mes +++ b/module/language/c99/compiler.mes @@ -121,6 +121,7 @@ ((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)))) @@ -2035,6 +2036,7 @@ ((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) @@ -2064,6 +2066,8 @@ 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)