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

[qfcc] Add functions to store and load values 

This makes working with constant expressions much less tedious,
especially when the relevant code needs to work with many types.
This commit is contained in:
Bill Currie 2022-04-27 21:24:46 +09:00
parent 875c9bde7c
commit c120bf2940
2 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tools/qfcc/include/value.h
View File

@ -40,6 +40,7 @@ struct def_s;
struct ex_value_s;
struct tempop_s;
struct type_s;
struct pr_type_s;
struct ex_value_s *new_string_val (const char *string_val);
struct ex_value_s *new_double_val (double double_val);
@ -57,6 +58,10 @@ struct ex_value_s *new_int_val (int int_val);
struct ex_value_s *new_uint_val (int uint_val);
struct ex_value_s *new_short_val (short short_val);
struct ex_value_s *new_nil_val (struct type_s *type);
struct ex_value_s *new_type_value (const struct type_s *type,
const struct pr_type_s *data);
void value_store (pr_type_t *dst, const struct type_s *dstType,
const struct expr_s *src);
struct ex_value_s *convert_value (struct ex_value_s *value,
struct type_s *type);

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

@ -269,6 +269,45 @@ new_nil_val (type_t *type)
return find_value (&val);
}
ex_value_t *
new_type_value (const type_t *type, const pr_type_t *data)
{
size_t typeSize = type_size (type) * sizeof (pr_type_t);
ex_value_t val = {};
set_val_type (&val, (type_t *) type);//FIXME cast
memcpy (&val.v, data, typeSize);
return find_value (&val);
}
void
value_store (pr_type_t *dst, const type_t *dstType, const expr_t *src)
{
size_t dstSize = type_size (dstType) * sizeof (pr_type_t);
if (src->type == ex_nil) {
memset (dst, 0, dstSize);
return;
}
if (src->type == ex_symbol && src->e.symbol->sy_type == sy_var) {
// initialized global def treated as a constant
// from the tests in cast_expr, the def is known to be constant
def_t *def = src->e.symbol->s.def;
memcpy (dst, &D_PACKED (pr_type_t, def), dstSize);
return;
}
ex_value_t *val = 0;
if (src->type == ex_value) {
val = src->e.value;
}
if (src->type == ex_symbol && src->e.symbol->sy_type == sy_const) {
val = src->e.symbol->s.value;
}
if (!val) {
internal_error (src, "unexpected constant expression type");
}
memcpy (dst, &val->v, dstSize);
}
static hashtab_t *string_imm_defs;
static hashtab_t *float_imm_defs;
static hashtab_t *vector_imm_defs;