Bug with ULINT correction fixed
authorlaurent
Tue, 01 Dec 2009 09:03:33 +0100
changeset 220 f332b62cd2c1
parent 219 9bb38736f126
child 221 c6aed7e5f070
Bug with ULINT correction fixed
stage4/generate_c/generate_c_il.cc
stage4/generate_c/generate_c_st.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++;
--- 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++;