From 1b58c86d6856339d71bfc124fc8f48fbd2b09fd0 Mon Sep 17 00:00:00 2001 From: Kimplul Date: Mon, 15 Apr 2024 03:09:23 +0300 Subject: initial working struct call tests pass --- src/lower.c | 10 +++++----- src/parser.y | 4 ++-- 2 files changed, 7 insertions(+), 7 deletions(-) (limited to 'src') diff --git a/src/lower.c b/src/lower.c index dba4e5c..1ce91a4 100644 --- a/src/lower.c +++ b/src/lower.c @@ -193,14 +193,14 @@ static char *mangle_idx(struct ast *id, size_t idx) assert(id->scope); assert(id->s); - const char *name = id->s; + char *name = id->s; /* oh wait, I need to do a variable lookup on the ID, not use the ID's * scope number, duh */ - size_t number = get_scope_number(id); - - if (ast_flags(id, AST_FLAG_NOMANGLE)) + struct ast *def = file_scope_find_symbol(id->scope, name); + if (ast_flags(def, AST_FLAG_NOMANGLE)) return strdup(name); + size_t number = get_scope_number(def); return build_str("%s_s%zif%zi", name, number, idx); } @@ -410,7 +410,7 @@ static void do_store(struct lower_state *s, struct retval *from, int64_t addr = strtoll(o.s, 0, 0); /* doesn't really take into account possible padding etc, should * probably fix at some point */ - printf("%s >> %s %s %zi;\n", from->s, retval_type_str(t), t.s, addr); + printf("%s >> %s %s %zi;\n", from->s, retval_type_str(*from), t.s, addr); } static int lower_cast(struct lower_state *s, struct ast *e, diff --git a/src/parser.y b/src/parser.y index 4837a53..b120e1b 100644 --- a/src/parser.y +++ b/src/parser.y @@ -691,11 +691,11 @@ proc NULL, src_loc(@$)); - ast_set_flags($$, AST_FLAG_EXTERN); + ast_set_flags($$, AST_FLAG_EXTERN | AST_FLAG_NOMANGLE); } | "extern" ID "(" opt_decls ")" { $$ = gen_proc($[ID], $[opt_decls], NULL, NULL, src_loc(@$)); - ast_set_flags($$, AST_FLAG_EXTERN); + ast_set_flags($$, AST_FLAG_EXTERN | AST_FLAG_NOMANGLE); } member -- cgit v1.3