qf
/
quakeforge
mirror of https://git.code.sf.net/p/quake/quakeforge
0
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Creation of .ctor now mostly works. 

There seems to be problems with the actual code generation using incorrect
addresses, but a very simple test file compiles successfully.
This commit is contained in:
Bill Currie 2011-02-08 22:38:34 +09:00
parent 1647b1e61d
commit 81125cff3a
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tools/qfcc/source/class.c
View File

@ -1088,7 +1088,6 @@ class_finish_module (void)
pr_module_t *module; pr_module_t *module;
symbol_t *exec_class_sym; symbol_t *exec_class_sym;
symbol_t *init_sym; symbol_t *init_sym;
function_t *init_func;
expr_t *init_expr; expr_t *init_expr;
data.refs = emit_selectors (); data.refs = emit_selectors ();
@ -1113,6 +1112,7 @@ class_finish_module (void)
module_sym = make_symbol ("_OBJ_MODULE", &type_module, pr.near_data, module_sym = make_symbol ("_OBJ_MODULE", &type_module, pr.near_data,
st_static); st_static);
symtab_addsymbol (current_symtab, module_sym);
module = &D_STRUCT (pr_module_t, module_sym->s.def); module = &D_STRUCT (pr_module_t, module_sym->s.def);
module->size = type_size (&type_module); module->size = type_size (&type_module);
EMIT_STRING (module_sym->s.def->space, module->name, EMIT_STRING (module_sym->s.def->space, module->name,
@ -1121,17 +1121,20 @@ class_finish_module (void)
exec_class_sym = new_symbol_type ("__obj_exec_class", exec_class_sym = new_symbol_type ("__obj_exec_class",
&type_obj_exec_class); &type_obj_exec_class);
symtab_addsymbol (current_symtab, exec_class_sym); exec_class_sym = function_symbol (exec_class_sym, 0, 1);
make_function (exec_class_sym, 0, st_extern);
init_sym = new_symbol_type (".ctor", &type_function); init_sym = new_symbol_type (".ctor", &type_function);
symtab_addsymbol (current_symtab, init_sym); init_sym = function_symbol (init_sym, 0, 1);
init_expr = new_block_expr (); init_expr = new_block_expr ();
append_expr (init_expr, append_expr (init_expr,
build_function_call (new_symbol_expr (exec_class_sym), build_function_call (new_symbol_expr (exec_class_sym),
exec_class_sym->type, exec_class_sym->type,
address_expr (new_symbol_expr (module_sym), address_expr (new_symbol_expr (module_sym),
0, 0))); 0, 0)));
current_func = init_func = begin_function (init_sym, 0, current_symtab);
current_func = begin_function (init_sym, 0, current_symtab);
build_code_function (init_sym, 0, init_expr);; build_code_function (init_sym, 0, init_expr);;
current_func = 0; current_func = 0;
} }