static PTREE addPtIcUnsigned( // DECORATE TREE WITH PT_IC NODE (unsigned)
PTREE tree, // - tree
unsigned opcode, // - opcode
unsigned value ) // - value
{
return addPtIc( tree, NodeIcUnsigned( opcode, value ) );
}
static PTREE insertCDtor( // INSERT CDTOR NODE INTO CALL LIST
PTREE seq, // - argument sequence
PTREE arg ) // - argument
{
PTREE* r_val; // - reference[ arg value ]
PTREE val; // - arg value
if( arg != NULL ) {
r_val = PTreeRefRight( arg );
val = *r_val;
if( val->op == PT_INT_CONSTANT ) {
PTREE new_val = NodeIcUnsigned( IC_CDARG_VAL
, val->u.uint_constant );
new_val->type = val->type;
*r_val = new_val;
PTreeFree( val );
}
}
return insertArg( seq, arg );
}
