qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-10 23:32:09 +00:00
Code Issues Projects Releases Packages Wiki Activity

Pascal variables need defs too.

Browse source
This commit is contained in:
Bill Currie 2011-01-27 14:17:12 +09:00
parent f532fbc6df
commit 1c3cc571f1
1 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
tools/qfcc/source/qp-parse.y
View file

@ -93,6 +93,7 @@ int yylex (void);
struct struct_s *strct;
struct symtab_s *symtab;
struct symbol_s *symbol;
int storage;
}
// these tokens are common with qc
@ -206,14 +207,8 @@ declarations
{
while ($3) {
symbol_t *next = $3->next;
if ($3->table == current_symtab) {
error (0, "%s redefined", $3->name);
} else {
if ($3->table)
$3 = new_symbol ($3->name);
$3->type = $5;
symtab_addsymbol (current_symtab, $3);
}
initialize_def ($3, $5, 0, current_symtab->space,
current_storage);
$3 = next;
}
}
@ -241,14 +236,15 @@ subprogram_declarations
subprogram_declaration
: subprogram_head ';'
{
$<symtab>$ = current_symtab;
$<storage>$ = current_storage;
current_func = begin_function ($1, 0, current_symtab);
current_symtab = current_func->symtab;
}
declarations compound_statement ';'
{
build_code_function ($1, 0, $5);
current_symtab = $<symtab>3;
current_symtab = current_symtab->parent;
current_storage = $<storage>3;
}
| subprogram_head ASSIGNOP '#' CONST ';'
{