qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-26 22:31:05 +00:00
Code Issues Projects Releases Packages Wiki Activity

functions are now initialized, but no code is yet generated

Browse source
This commit is contained in:
Bill Currie 2001-06-25 18:23:29 +00:00
parent df897255ff
commit 2d87eeb57d
1 changed files with 42 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
tools/qfcc/source/qc-parse.y
View file

@ -20,7 +20,8 @@ void PR_PrintType(type_t*);
type_t *parse_params (def_t *parms); type_t *parse_params (def_t *parms);
function_t *new_function (void); function_t *new_function (void);
void build_scope (def_t *func); void build_function (function_t *f);
void build_scope (function_t *f, def_t *func);
typedef struct { typedef struct {
type_t *type; type_t *type;
@ -41,6 +42,7 @@ typedef struct {
float vector_val[3]; float vector_val[3];
float quaternion_val[4]; float quaternion_val[4];
estatement_t *statement; estatement_t *statement;
function_t *function;
} }
%left OR AND %left OR AND
@ -65,6 +67,7 @@ typedef struct {
%type <def> param param_list def_item def_list def_name %type <def> param param_list def_item def_list def_name
%type <expr> const expr arg_list %type <expr> const expr arg_list
%type <statement> statement statements statement_block %type <statement> statement statements statement_block
%type <function> begin_function
%expect 1 %expect 1
@ -213,24 +216,28 @@ opt_initializer
f->builtin = $3->type == ex_int f->builtin = $3->type == ex_int
? $3->e.int_val : (int)$3->e.float_val; ? $3->e.int_val : (int)$3->e.float_val;
f->def = current_def; f->def = current_def;
f->def->initialized = 1; build_function (f);
G_FUNCTION (f->def->ofs) = numfunctions;
} }
} }
} }
| '=' begin_function statement_block end_function | '=' begin_function statement_block end_function
{ {
build_function ($2);
} }
| '=' begin_function '[' expr ',' expr ']' statement_block end_function | '=' begin_function '[' expr ',' expr ']' statement_block end_function
{ {
build_function ($2);
} }
; ;
begin_function begin_function
: /*empty*/ : /*empty*/
{ {
$$ = new_function ();
$$->def = current_def;
$$->code = numstatements;
pr_scope = current_def; pr_scope = current_def;
build_scope (current_def); build_scope ($$, current_def);
} }
; ;
@ -395,7 +402,7 @@ parse_params (def_t *parms)
} }
void void
build_scope (def_t *func) build_scope (function_t *f, def_t *func)
{ {
int i; int i;
def_t *def; def_t *def;
@ -403,6 +410,9 @@ build_scope (def_t *func)
for (i = 0; i < ftype->num_parms; i++) { for (i = 0; i < ftype->num_parms; i++) {
def = PR_GetDef (ftype->parm_types[i], pr_parm_names[i], func, &func->num_locals); def = PR_GetDef (ftype->parm_types[i], pr_parm_names[i], func, &func->num_locals);
f->parm_ofs[i] = def->ofs;
if (i > 0 && f->parm_ofs[i] < f->parm_ofs[i - 1])
Error ("bad parm order");
} }
} }
@ -417,3 +427,30 @@ new_function (void)
return f; return f;
} }
void
build_function (function_t *f)
{
dfunction_t *df;
int i;
f->def->initialized = 1;
G_FUNCTION (f->def->ofs) = numfunctions;
// fill in the dfunction
df = &functions[numfunctions];
numfunctions++;
f->dfunc = df;
if (f->builtin)
df->first_statement = -f->builtin;
else
df->first_statement = f->code;
df->s_name = ReuseString (f->def->name);
df->s_file = s_file;
df->numparms = f->def->type->num_parms;
df->locals = f->def->num_locals;
df->parm_start = 0;
for (i = 0; i < df->numparms; i++)
df->parm_size[i] = type_size[f->def->type->parm_types[i]->type];
}