artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Tinycc support: Pointer typedefs.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2018-05-11 18:36:35 +02:00
parent b42ecbd928
commit 8cc406c9ff
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
module/language/c99/compiler.mes
View file

@ -1729,6 +1729,12 @@
(count (expr->number info count))
(type (make-c-array type count)))
(clone info #:types (acons name type (.types info)))))
(((decl-spec-list (stor-spec (typedef)) (type-spec ,type)) (init-declr-list (init-declr (ptr-declr ,pointer (ident ,name)))))
(let* ((info (type->info type name info))
(type (ast->type type info))
(rank (pointer->rank pointer))
(type (rank+= type rank)))
(clone info #:types (acons name type (.types info)))))
(((decl-spec-list (stor-spec (,store)) (type-spec ,type)) (init-declr-list . ,inits))
(let* ((type (ast->type type info))
(function (.function info)))

3
scaffold/tests/t.c
View file

@ -46,6 +46,9 @@ struct here {int and;} there;
typedef int int_array_t[1];
int_array_t bar;
typedef struct foo *foo_pointer_t;
foo_pointer_t foep;
int
test (struct foo* p)
{