/* oper->children[0] is the base */
/* oper->a_id is the field name */
slang_ir_node *base, *n;
+ GLint size = 4; /* XXX fix? */
base = _slang_gen_operation(A, &oper->children[0]);
n = new_node1(IR_FIELD, base);
if (n) {
n->Target = (char *) oper->a_id;
+ n->Store = _slang_new_ir_storage(base->Store->File,
+ base->Store->Index,
+ size);
}
return n;
/* state variable sub-field */
GLint pos;
GLuint swizzle;
+ assert(n->Children[0]->Opcode == IR_VAR);
pos = _slang_lookup_statevar_field((char *) n->Children[0]->Var->a_name,
n->Target,
prog->Parameters, &swizzle);
if (pos < 0) {
RETURN_ERROR2("Undefined structure member", n->Target, 0);
}
-
- n->Store = _slang_new_ir_storage(PROGRAM_STATE_VAR, pos, 4);/*XXX size*/
- if (n->Store)
- n->Store->Swizzle = swizzle;
+ assert(n->Store);
+ assert(n->Store->File == PROGRAM_STATE_VAR);
+ n->Store->Index = pos;
+ n->Store->Swizzle = swizzle;
}
/*