EAF_ORIGINATED done right.

This commit is contained in:
Pavel Machek 2000-04-17 11:52:32 +00:00
parent 700bbe60fb
commit 913ce95b08

View file

@ -377,8 +377,8 @@ interpret(struct f_inst *what)
l->flags = EALF_SORTED; l->flags = EALF_SORTED;
l->count = 1; l->count = 1;
l->attrs[0].id = what->a2.i; l->attrs[0].id = what->a2.i;
l->attrs[0].flags = EAF_ORIGINATED; l->attrs[0].flags = 0;
l->attrs[0].type = what->aux; l->attrs[0].type = what->aux | EAF_ORIGINATED;
switch (what->aux & EAF_TYPE_MASK) { switch (what->aux & EAF_TYPE_MASK) {
case EAF_TYPE_INT: case EAF_TYPE_INT:
if (v1.type != T_INT) if (v1.type != T_INT)