stage4/generate_c/generate_c_inlinefcall.cc
changeset 653 ea78924a1f60
parent 594 c8092e909886
child 667 bd1360f29f15
equal deleted inserted replaced
652:7fe1533d2260 653:ea78924a1f60
   963       }
   963       }
   964       else {ERROR;}
   964       else {ERROR;}
   965       return NULL;
   965       return NULL;
   966     }
   966     }
   967 
   967 
   968     void *visit(GT_operator_c *symbol)	{
   968     void *visit(GT_operator_c *symbol)	{CMP_operator_result_type(); return NULL;}
   969       if (!search_base_type.type_is_enumerated(this->default_variable_name.current_type) &&
   969     void *visit(GE_operator_c *symbol)	{CMP_operator_result_type(); return NULL;}
   970           search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) {
   970     void *visit(EQ_operator_c *symbol)	{CMP_operator_result_type(); return NULL;}
   971         CMP_operator_result_type();
   971     void *visit(LT_operator_c *symbol)	{CMP_operator_result_type(); return NULL;}
   972       }
   972     void *visit(LE_operator_c *symbol)	{CMP_operator_result_type(); return NULL;}
   973       else {ERROR;}
   973     void *visit(NE_operator_c *symbol)	{CMP_operator_result_type(); return NULL;}
   974       return NULL;
       
   975     }
       
   976 
       
   977     void *visit(GE_operator_c *symbol)	{
       
   978       if (!search_base_type.type_is_enumerated(this->default_variable_name.current_type) &&
       
   979           search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) {
       
   980         CMP_operator_result_type();
       
   981       }
       
   982       else {ERROR;}
       
   983       return NULL;
       
   984     }
       
   985 
       
   986     void *visit(EQ_operator_c *symbol)	{
       
   987       if (search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) {
       
   988         CMP_operator_result_type();
       
   989       }
       
   990       else {ERROR;}
       
   991       return NULL;
       
   992     }
       
   993 
       
   994     void *visit(LT_operator_c *symbol)	{
       
   995       if (!search_base_type.type_is_enumerated(this->default_variable_name.current_type) &&
       
   996           search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) {
       
   997         CMP_operator_result_type();
       
   998       }
       
   999       else {ERROR;}
       
  1000       return NULL;
       
  1001     }
       
  1002 
       
  1003     void *visit(LE_operator_c *symbol)	{
       
  1004       if (!search_base_type.type_is_enumerated(this->default_variable_name.current_type) &&
       
  1005           search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) {
       
  1006         CMP_operator_result_type();
       
  1007       }
       
  1008       else {ERROR;}
       
  1009       return NULL;
       
  1010     }
       
  1011 
       
  1012     void *visit(NE_operator_c *symbol)	{
       
  1013       if (search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) {
       
  1014         CMP_operator_result_type();
       
  1015       }
       
  1016       else {ERROR;}
       
  1017       return NULL;
       
  1018     }
       
  1019 
   974 
  1020     /***************************************/
   975     /***************************************/
  1021     /* B.3 - Language ST (Structured Text) */
   976     /* B.3 - Language ST (Structured Text) */
  1022     /***************************************/
   977     /***************************************/
  1023     /***********************/
   978     /***********************/