Fix overriding procedure information for literals

This commit is contained in:
gingerBill
2023-02-17 13:00:37 +00:00
parent 210f47b8ab
commit 8a2a70a3c2
7 changed files with 33 additions and 11 deletions

View File

@@ -1480,6 +1480,23 @@ gb_internal bool check_proc_body(CheckerContext *ctx_, Token token, DeclInfo *de
ctx->curr_proc_sig = type;
ctx->curr_proc_calling_convention = type->Proc.calling_convention;
if (ctx->proc_name == "sort") {
if (type->Proc.param_count > 0) {
TypeTuple *params = &type->Proc.params->Tuple;
for (Entity *e : params->variables) {
if (e->kind == Entity_Constant) {
Ast *ident = e->identifier.load();
if (ident) {
add_entity(ctx, e->scope, ident, e);
ident->tav.mode = Addressing_Constant;
ident->tav.value = e->Constant.value;
ident->tav.type = e->type;
}
}
}
}
}
if (ctx->pkg->name != "runtime") {
switch (type->Proc.calling_convention) {
case ProcCC_None: