/** <!--******************************************************************--> * * @fn CHKMcast * * @brief Touched the node and its sons/attributes * * @param arg_node Cast node to process * @param arg_info pointer to info structure * * @return processed node * ***************************************************************************/ node * CHKMcast (node * arg_node, info * arg_info) { DBUG_ENTER ("CHKMcast"); NODE_ERROR (arg_node) = CHKMTRAV (NODE_ERROR (arg_node), arg_info); CAST_L_BRACKET (arg_node) = CHKMTRAV (CAST_L_BRACKET (arg_node), arg_info); CAST_TYPE (arg_node) = CHKMTRAV (CAST_TYPE (arg_node), arg_info); CAST_R_BRACKET (arg_node) = CHKMTRAV (CAST_R_BRACKET (arg_node), arg_info); CAST_EXPR (arg_node) = CHKMTRAV (CAST_EXPR (arg_node), arg_info); DBUG_RETURN (arg_node); }
/** <!--******************************************************************--> * * @fn COPYcast * * @brief Copies the node and its sons/attributes * * @param arg_node Cast node to process * @param arg_info pointer to info structure * * @return processed node * ***************************************************************************/ node * COPYcast (node * arg_node, info * arg_info) { node *result = TBmakeCast (NULL, NULL, NULL, NULL); DBUG_ENTER ("COPYcast"); LUTinsertIntoLutP (INFO_LUT (arg_info), arg_node, result); /* Copy sons */ CAST_L_BRACKET (result) = COPYTRAV (CAST_L_BRACKET (arg_node), arg_info); CAST_TYPE (result) = COPYTRAV (CAST_TYPE (arg_node), arg_info); CAST_R_BRACKET (result) = COPYTRAV (CAST_R_BRACKET (arg_node), arg_info); CAST_EXPR (result) = COPYTRAV (CAST_EXPR (arg_node), arg_info); /* Return value */ DBUG_RETURN (result); }
//rewrite cast and set info_type to cast type node *CTcast(node *arg_node, info *arg_info){ DBUG_ENTER("CTcast"); extern node *CTbinop( node *arg_node, info *arg_info); extern node *CTfunbody( node *arg_node, info *arg_info); CAST_EXPRESSION(arg_node) = TRAVdo(CAST_EXPRESSION(arg_node), arg_info); type exprType = INFO_TYPE(arg_info); type castType = CAST_TYPE(arg_node); //set info type to cast type INFO_TYPE(arg_info) = CAST_TYPE(arg_node); //rewrite cast if(exprType == T_boolean && castType == T_int){ node *expr = CAST_EXPRESSION(arg_node); node *then = TBmakeNum(1); node *other = TBmakeNum(0); node *condexpr = TBmakeConditionexpr(expr, other, then); arg_node = condexpr; } else if(exprType == T_boolean && castType == T_float){ node *expr = CAST_EXPRESSION(arg_node); node *then = TBmakeFloat(1.0); node *other = TBmakeFloat(0.0); node *condexpr = TBmakeConditionexpr(expr, then, other); arg_node = condexpr; } else if(exprType == T_int && castType == T_boolean){ node *expr = TBmakeBinop(BO_gt, CAST_EXPRESSION(arg_node), TBmakeNum(0)); BINOP_OPTYPE(expr) = T_int; node *then = TBmakeBool(true); node *other = TBmakeBool(false); node *condexpr = TBmakeConditionexpr(expr, other, then); arg_node = condexpr; } else if(exprType == T_float && castType == T_boolean){ node *expr = TBmakeBinop(BO_gt, CAST_EXPRESSION(arg_node), TBmakeFloat(0.0)); BINOP_OPTYPE(expr) = T_float; node *then = TBmakeBool(true); node *other = TBmakeBool(false); node *condexpr = TBmakeConditionexpr(expr, other, then); arg_node = condexpr; } DBUG_RETURN(arg_node); }
node* CALCCONSTcast(node *arg_node, info *arg_info){ DBUG_ENTER ("CALCCONSTcast"); CAST_EXPR( arg_node) = TRAVopt( CAST_EXPR( arg_node), NULL); node * ret; switch(NODE_TYPE(CAST_EXPR( arg_node))){ case N_bool: switch(CAST_TYPE(arg_node)){ case VT_bool: //no cast needed ret = CAST_EXPR( arg_node); FREEdoFreeNode(arg_node); DBUG_RETURN(ret ); break; case VT_int: //FREEcast(arg_node); ret = TBmakeInt((int)BOOL_VALUE(CAST_EXPR( arg_node))); FREEdoFreeNode(arg_node); DBUG_RETURN(ret ); break; case VT_float: //FREEcast(arg_node); ret = TBmakeFloat((float)BOOL_VALUE(CAST_EXPR( arg_node))); FREEdoFreeNode(arg_node); DBUG_RETURN(ret ); break; default: DBUG_RETURN(arg_node); } break; case N_int: switch(CAST_TYPE(arg_node)){ case VT_bool: ret =TBmakeBool(INT_VALUE(CAST_EXPR( arg_node))); FREEdoFreeNode(arg_node); DBUG_RETURN(ret ); break; case VT_int: //no cast needed ret = CAST_EXPR( arg_node); FREEdoFreeNode(arg_node); DBUG_RETURN(ret ); break; case VT_float: ret =TBmakeFloat((float)INT_VALUE(CAST_EXPR( arg_node) )); FREEdoFreeNode(arg_node); DBUG_RETURN(ret ); break; default: DBUG_RETURN(arg_node); } break; case N_float: switch(CAST_TYPE(arg_node)){ case VT_bool: ret =TBmakeBool(FLOAT_VALUE(CAST_EXPR( arg_node))); FREEdoFreeNode(arg_node); DBUG_RETURN(ret ); break; case VT_int: ret =TBmakeInt(FLOAT_VALUE(CAST_EXPR( arg_node))); FREEdoFreeNode(arg_node); DBUG_RETURN(ret ); break; case VT_float: //no cast needed ret = CAST_EXPR( arg_node); FREEdoFreeNode(arg_node); DBUG_RETURN(ret ); break; default: DBUG_RETURN(arg_node); } break; default: DBUG_RETURN(arg_node); } }