From 97a964aa861e7c0066a0bf1f67469fbb93febcad Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 4 Sep 2024 05:05:31 -0400 Subject: Implicit filename for table getting --- builtins/table.h | 4 ++-- compile.c | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/builtins/table.h b/builtins/table.h index da60b3be..5284d1cc 100644 --- a/builtins/table.h +++ b/builtins/table.h @@ -31,11 +31,11 @@ table_t Table$from_entries(array_t entries, const TypeInfo *type); void *Table$get(table_t t, const void *key, const TypeInfo *type); -#define Table$get_value_or_fail(table_expr, key_t, val_t, key_expr, info_expr, filename, start, end) ({ \ +#define Table$get_value_or_fail(table_expr, key_t, val_t, key_expr, info_expr, start, end) ({ \ const table_t t = table_expr; key_t k = key_expr; const TypeInfo* info = info_expr; \ val_t *v = Table$get(t, &k, info); \ if (__builtin_expect(v == NULL, 0)) \ - fail_source(filename, start, end, "The key %r is not in this table\n", generic_as_text(&k, no, info->TableInfo.key)); \ + fail_source(__SOURCE_FILE__, start, end, "The key %r is not in this table\n", generic_as_text(&k, no, info->TableInfo.key)); \ *v; }) #define Table$get_value_or_default(table_expr, key_t, val_t, key_expr, default_val, info_expr) ({ \ const table_t t = table_expr; const key_t k = key_expr; \ diff --git a/compile.c b/compile.c index 7b936829..5cc37116 100644 --- a/compile.c +++ b/compile.c @@ -2469,7 +2469,6 @@ CORD compile(env_t *env, ast_t *ast) file_t *f = ast->file; return CORD_all("Table$get_value_or_fail(", self, ", ", compile_type(table->key_type), ", ", compile_type(table->value_type), ", ", compile_arguments(env, ast, arg_spec, call->args), ", ", compile_type_info(env, self_value_t), ", ", - CORD_quoted(f->filename), ", ", CORD_asprintf("%ld", (int64_t)(ast->start - f->text)), ", ", CORD_asprintf("%ld", (int64_t)(ast->end - f->text)), ")"); -- cgit v1.2.3