if (ilist->type == INIT_NODE)
{
if (IS_PTR (type))
- resultType = RESULT_TYPE_NONE;
+ resultType = RESULT_TYPE_INT;
else
resultType = getResultTypeFromType (getSpec (type));
ilist->init.node = decorateType (resolveSymbols (ilist->init.node),
val = newValue ();
val->type = val->etype = computeType (lval->etype,
rval->etype,
- TRUE);
+ RESULT_TYPE_INT,
+ '*');
SPEC_SCLS (val->etype) = S_LITERAL; /* will remain literal */
if (IS_FLOAT (val->type))
val = newValue ();
val->type = val->etype = computeType (lval->etype,
rval->etype,
- TRUE);
+ RESULT_TYPE_INT,
+ '/');
SPEC_SCLS (val->etype) = S_LITERAL; /* will remain literal */
if (IS_FLOAT (val->type))
val = newValue();
val->type = val->etype = computeType (lval->etype,
rval->etype,
- TRUE);
+ RESULT_TYPE_INT,
+ '%');
SPEC_SCLS (val->etype) = S_LITERAL; /* will remain literal */
if (SPEC_LONG (val->type))
val = newValue();
val->type = val->etype = computeType (lval->etype,
rval->etype,
- TRUE);
+ RESULT_TYPE_INT,
+ '+');
SPEC_SCLS (val->etype) = S_LITERAL; /* will remain literal */
if (IS_FLOAT (val->type))
val = newValue();
val->type = val->etype = computeType (lval->etype,
rval->etype,
- TRUE);
+ RESULT_TYPE_INT,
+ '-');
SPEC_SCLS (val->etype) = S_LITERAL; /* will remain literal */
if (IS_FLOAT (val->type))
val = newValue();
val->type = val->etype = computeType (lval->etype,
NULL,
- /* promote left shift */
- lr ? TRUE : FALSE);
+ RESULT_TYPE_INT,
+ 'S');
SPEC_SCLS (val->etype) = S_LITERAL; /* will remain literal */
if (getSize (val->type) * 8 <= (TYPE_UDWORD) floatFromVal (rval) &&
/* create a new value */
val = newValue ();
- val->type = computeType (lval->etype, rval->etype, FALSE);
+ val->type = computeType (lval->etype, rval->etype, RESULT_TYPE_CHAR, op);
val->etype = getSpec (val->type);
SPEC_SCLS (val->etype) = S_LITERAL;
if (SPEC_NOUN (val->etype) == V_FLOAT)
SPEC_CVAL (val->etype).v_float = fval;
+ else if (SPEC_NOUN (val->etype) == V_BIT ||
+ SPEC_NOUN (val->etype) == V_SBIT)
+ SPEC_CVAL (val->etype).v_uint = l & 1;
+ else if (SPEC_NOUN (val->etype) == V_BITFIELD)
+ SPEC_CVAL (val->etype).v_uint = l &
+ (0xffffu >> (16 - SPEC_BLEN (val->etype)));
else if (SPEC_NOUN (val->etype) == V_CHAR) {
if (SPEC_USIGN (val->etype))
SPEC_CVAL (val->etype).v_uint= (TYPE_UBYTE) l;