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

allow named constants to be checked for immediate constants. qfcc now produces 

the same number of globals etc as it used to
This commit is contained in:
Bill Currie 2001-04-02 18:43:10 +00:00
parent f517dc6ce6
commit b7aba0b643
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tools/qfcc/source/pr_comp.c
View File

@ -730,6 +730,7 @@ PR_ParseDefs (void)
def->initialized = 1;
memcpy (pr_globals + def->ofs, &pr_immediate,
4 * type_size[pr_immediate_type->type]);
PR_NameImmediate (def);
PR_Lex ();
}

39
tools/qfcc/source/pr_imm.c
View File

@ -119,3 +119,42 @@ PR_ParseImmediate (void)
return cn;
}
void
PR_NameImmediate (def_t *def)
{
char rep[60];
def_t *cn;
hashtab_t *tab;
if (!string_imm_defs) {
string_imm_defs = Hash_NewTable (16381, string_imm_get_key, 0, 0);
float_imm_defs = Hash_NewTable (16381, float_imm_get_key, 0, 0);
vector_imm_defs = Hash_NewTable (16381, vector_imm_get_key, 0, 0);
}
if (def->type == &type_string) {
cn = Hash_Find (string_imm_defs, string_imm_get_key (def, 0));
tab = string_imm_defs;
} else if (def->type == &type_float) {
strcpy (rep, float_imm_get_key (def, 0));
cn = Hash_Find (float_imm_defs, rep);
tab = float_imm_defs;
} else if (def->type == &type_vector) {
strcpy (rep, vector_imm_get_key (def, 0));
cn = Hash_Find (vector_imm_defs, rep);
tab = vector_imm_defs;
} else {
PR_ParseError ("weird immediate type");
return;
}
/*
if (cn) {
if (strcmp (cn->name, "IMMEDIATE") != 0) {
free cn->name;
cn->name = strdup (def->name);
}
return;
}
*/
Hash_Add (tab, def);
}