equal
deleted
inserted
replaced
606 /* If not, get the default value of this variable's type */ |
606 /* If not, get the default value of this variable's type */ |
607 param_value = (symbol_c *)param_type->accept(*type_initial_value_c::instance()); |
607 param_value = (symbol_c *)param_type->accept(*type_initial_value_c::instance()); |
608 } |
608 } |
609 if (param_value == NULL) ERROR; |
609 if (param_value == NULL) ERROR; |
610 s4o.print("("); |
610 s4o.print("("); |
611 if (search_expression_type->is_literal_integer_type(param_type) || |
611 if (search_expression_type->is_literal_integer_type(param_type)) |
612 search_expression_type->is_literal_real_type(param_type)) { |
612 search_expression_type->lint_type_name.accept(*this); |
613 if (function_type_suffix == NULL) ERROR; |
613 else if (search_expression_type->is_literal_real_type(param_type)) |
614 function_type_suffix->accept(*this); |
614 search_expression_type->lreal_type_name.accept(*this); |
615 } |
|
616 else |
615 else |
617 param_type->accept(*this); |
616 param_type->accept(*this); |
618 s4o.print(")"); |
617 s4o.print(")"); |
619 print_check_function(param_type, param_value); |
618 print_check_function(param_type, param_value); |
620 nb_param++; |
619 nb_param++; |
621 break; |
620 break; |
622 case function_param_iterator_c::direction_out: |
621 case function_param_iterator_c::direction_out: |