--- a/stage4/generate_c/generate_c_il.cc Mon Nov 30 15:36:12 2009 +0100
+++ b/stage4/generate_c/generate_c_il.cc Tue Dec 01 09:03:33 2009 +0100
@@ -826,13 +826,12 @@
}
if (param_value == NULL) ERROR;
s4o.print("(");
- if (search_expression_type->is_literal_integer_type(param_type) ||
- search_expression_type->is_literal_real_type(param_type)) {
- if (function_type_suffix == NULL) ERROR;
- function_type_suffix->accept(*this);
- }
- else
- param_type->accept(*this);
+ if (search_expression_type->is_literal_integer_type(param_type))
+ search_expression_type->lint_type_name.accept(*this);
+ else if (search_expression_type->is_literal_real_type(param_type))
+ search_expression_type->lreal_type_name.accept(*this);
+ else
+ param_type->accept(*this);
s4o.print(")");
print_check_function(param_type, param_value);
nb_param++;
@@ -1208,13 +1207,12 @@
}
if (param_value == NULL) ERROR;
s4o.print("(");
- if (search_expression_type->is_literal_integer_type(param_type) ||
- search_expression_type->is_literal_real_type(param_type)) {
- if (function_type_suffix == NULL) ERROR;
- function_type_suffix->accept(*this);
- }
- else
- param_type->accept(*this);
+ if (search_expression_type->is_literal_integer_type(param_type))
+ search_expression_type->lint_type_name.accept(*this);
+ else if (search_expression_type->is_literal_real_type(param_type))
+ search_expression_type->lreal_type_name.accept(*this);
+ else
+ param_type->accept(*this);
s4o.print(")");
print_check_function(param_type, param_value);
nb_param++;
--- a/stage4/generate_c/generate_c_st.cc Mon Nov 30 15:36:12 2009 +0100
+++ b/stage4/generate_c/generate_c_st.cc Tue Dec 01 09:03:33 2009 +0100
@@ -608,13 +608,12 @@
}
if (param_value == NULL) ERROR;
s4o.print("(");
- if (search_expression_type->is_literal_integer_type(param_type) ||
- search_expression_type->is_literal_real_type(param_type)) {
- if (function_type_suffix == NULL) ERROR;
- function_type_suffix->accept(*this);
- }
+ if (search_expression_type->is_literal_integer_type(param_type))
+ search_expression_type->lint_type_name.accept(*this);
+ else if (search_expression_type->is_literal_real_type(param_type))
+ search_expression_type->lreal_type_name.accept(*this);
else
- param_type->accept(*this);
+ param_type->accept(*this);
s4o.print(")");
print_check_function(param_type, param_value);
nb_param++;