# HG changeset patch
# User laurent
# Date 1259654613 -3600
# Node ID f332b62cd2c1c0549988d303cc51bfac4152d05e
# Parent  9bb38736f126596132b5d0f37e98aa3d8f4dee37
Bug with ULINT correction fixed

diff -r 9bb38736f126 -r f332b62cd2c1 stage4/generate_c/generate_c_il.cc
--- 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++;
diff -r 9bb38736f126 -r f332b62cd2c1 stage4/generate_c/generate_c_st.cc
--- 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++;