Use the method's selector rather than its def name in error messages.

This commit is contained in:
Bill Currie 2010-12-31 18:26:42 +09:00
parent a1f36a9944
commit 5627e43465
7 changed files with 31 additions and 16 deletions

View file

@ -56,6 +56,7 @@ typedef struct function_s {
struct scope_s *scope; struct scope_s *scope;
struct reloc_s *refs; struct reloc_s *refs;
struct expr_s *var_init; struct expr_s *var_init;
const char *name;
} function_t; } function_t;
extern function_t *current_func; extern function_t *current_func;
@ -84,7 +85,7 @@ struct def_s *get_function_def (const char *name, struct type_s *type,
int overload, int create); int overload, int create);
struct expr_s *find_function (struct expr_s *fexpr, struct expr_s *params); struct expr_s *find_function (struct expr_s *fexpr, struct expr_s *params);
void build_scope (function_t *f, struct def_s *func, param_t *params); void build_scope (function_t *f, struct def_s *func, param_t *params);
function_t *new_function (struct def_s *func); function_t *new_function (struct def_s *func, const char *nice_name);
void add_function (function_t *f); void add_function (function_t *f);
function_t *build_code_function (function_t *f, struct expr_s *state_expr, function_t *build_code_function (function_t *f, struct expr_s *state_expr,
struct expr_s *statements); struct expr_s *statements);

View file

@ -71,6 +71,7 @@ struct dstring_s;
method_t *new_method (struct type_s *ret_type, param_t *selector, method_t *new_method (struct type_s *ret_type, param_t *selector,
param_t *opt_parms); param_t *opt_parms);
const char *method_name (method_t *method);
method_t *copy_method (method_t *method); method_t *copy_method (method_t *method);
void add_method (methodlist_t *methodlist, method_t *method); void add_method (methodlist_t *methodlist, method_t *method);
struct def_s *method_def (struct class_type_s *class_type, method_t *method); struct def_s *method_def (struct class_type_s *class_type, method_t *method);

View file

@ -825,7 +825,7 @@ class_finish_module (void)
pr.scope, st_extern); pr.scope, st_extern);
init_def = get_def (&type_function, ".ctor", pr.scope, st_static); init_def = get_def (&type_function, ".ctor", pr.scope, st_static);
current_func = init_func = new_function (init_def); current_func = init_func = new_function (init_def, 0);
add_function (init_func); add_function (init_func);
reloc_def_func (init_func, init_def->ofs); reloc_def_func (init_func, init_def->ofs);
init_func->code = pr.code->size; init_func->code = pr.code->size;

View file

@ -2881,7 +2881,7 @@ report_function (expr_t *e)
if (current_func != last_func) { if (current_func != last_func) {
if (current_func) { if (current_func) {
fprintf (stderr, "%s: In function `%s':\n", G_GETSTR (file), fprintf (stderr, "%s: In function `%s':\n", G_GETSTR (file),
current_func->def->name); current_func->name);
} else if (current_class) { } else if (current_class) {
fprintf (stderr, "%s: In class `%s':\n", G_GETSTR (file), fprintf (stderr, "%s: In class `%s':\n", G_GETSTR (file),
get_class_name (current_class, 1)); get_class_name (current_class, 1));

View file

@ -420,7 +420,7 @@ build_scope (function_t *f, def_t *func, param_t *params)
} }
function_t * function_t *
new_function (def_t *func) new_function (def_t *func, const char *nice_name)
{ {
function_t *f; function_t *f;
@ -428,6 +428,8 @@ new_function (def_t *func)
f->s_name = ReuseString (func->name); f->s_name = ReuseString (func->name);
f->s_file = pr.source_file; f->s_file = pr.source_file;
f->def = func; f->def = func;
if (!(f->name = nice_name))
f->name = f->def->name;
return f; return f;
} }
@ -474,7 +476,7 @@ build_builtin_function (def_t *def, expr_t *bi_val)
return 0; return 0;
} }
f = new_function (def); f = new_function (def, 0);
add_function (f); add_function (f);
f->builtin = bi_val->type == ex_integer ? bi_val->e.integer_val f->builtin = bi_val->type == ex_integer ? bi_val->e.integer_val

View file

@ -116,6 +116,12 @@ new_method (type_t *ret_type, param_t *selector, param_t *opt_parms)
return meth; return meth;
} }
const char *
method_name (method_t *method)
{
return nva ("%c%s", method->instance ? '-' : '+', method->name);
}
method_t * method_t *
copy_method (method_t *method) copy_method (method_t *method)
{ {

View file

@ -290,13 +290,15 @@ cfunction
} }
| cfunction_def opt_state_expr | cfunction_def opt_state_expr
{ $<op>$ = current_storage; } { $<op>$ = current_storage; }
{ $<string_val>$ = 0; }
{ $<def>$ = $1; } { $<def>$ = $1; }
begin_function statement_block { $<op>$ = $<op>3; } end_function begin_function statement_block { $<op>$ = $<op>3; } end_function
{ {
build_code_function ($5, $2, $6); build_code_function ($6, $2, $7);
current_func = 0; current_func = 0;
(void) ($<def>4); (void) ($<string_val>4);
(void) ($<op>7); (void) ($<def>5);
(void) ($<op>8);
} }
; ;
@ -559,13 +561,15 @@ non_code_func
code_func code_func
: '=' opt_state_expr : '=' opt_state_expr
{ $<op>$ = current_storage; } { $<op>$ = current_storage; }
{ $<string_val>$ = 0; }
{ $<def>$ = $<def>0; } { $<def>$ = $<def>0; }
begin_function statement_block { $<op>$ = $<op>3; } end_function begin_function statement_block { $<op>$ = $<op>3; } end_function
{ {
build_code_function ($5, $2, $6); build_code_function ($6, $2, $7);
current_func = 0; current_func = 0;
(void) ($<def>4); (void) ($<string_val>4);
(void) ($<op>7); (void) ($<def>5);
(void) ($<op>8);
} }
; ;
@ -727,7 +731,7 @@ begin_function
{ {
if ($<def>0->constant) if ($<def>0->constant)
error (0, "%s redefined", $<def>0->name); error (0, "%s redefined", $<def>0->name);
$$ = current_func = new_function ($<def>0); $$ = current_func = new_function ($<def>0, $<string_val>-1);
if (!$$->def->external) { if (!$$->def->external) {
add_function ($$); add_function ($$);
reloc_def_func ($$, $$->def->ofs); reloc_def_func ($$, $$->def->ofs);
@ -1462,7 +1466,6 @@ ivar_decl_list
{ {
$$ = current_ivars; $$ = current_ivars;
current_ivars = 0; current_ivars = 0;
(void) ($<class>1);
} }
; ;
@ -1506,16 +1509,18 @@ methoddef
} }
opt_state_expr opt_state_expr
{ $<op>$ = current_storage; } { $<op>$ = current_storage; }
{ $<string_val>$ = method_name ($2); }
{ {
$<def>$ = $2->def = method_def (current_class, $2); $<def>$ = $2->def = method_def (current_class, $2);
current_params = $2->params; current_params = $2->params;
} }
begin_function statement_block { $<op>$ = $<op>5; } end_function begin_function statement_block { $<op>$ = $<op>5; } end_function
{ {
$2->func = build_code_function ($7, $4, $8); $2->func = build_code_function ($8, $4, $9);
current_func = 0; current_func = 0;
(void) ($<method>6); (void) ($<string_val>6);
(void) ($<op>9); (void) ($<def>7);
(void) ($<op>10);
} }
| ci methoddecl | ci methoddecl
{ {