--- a/stage4/generate_c/il_code_gen.c Wed Nov 26 09:06:26 2008 +0100
+++ b/stage4/generate_c/il_code_gen.c Wed Nov 26 09:06:52 2008 +0100
@@ -12845,7 +12845,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if(search_expression_type->is_num_type(IN_type_symbol))
+
{
function_name = (symbol_c*)(new pragma_c("__move_"));
--- a/stage4/generate_c/search_type_code.c Wed Nov 26 09:06:26 2008 +0100
+++ b/stage4/generate_c/search_type_code.c Wed Nov 26 09:06:52 2008 +0100
@@ -13389,7 +13389,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if(search_expression_type->is_num_type(IN_type_symbol))
+
{
symbol_c * return_type_symbol = last_type_symbol;
@@ -25641,7 +25641,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if(search_expression_type->is_num_type(IN_type_symbol))
+
{
symbol_c * return_type_symbol = last_type_symbol;
--- a/stage4/generate_c/st_code_gen.c Wed Nov 26 09:06:26 2008 +0100
+++ b/stage4/generate_c/st_code_gen.c Wed Nov 26 09:06:52 2008 +0100
@@ -14417,7 +14417,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if(search_expression_type->is_num_type(IN_type_symbol))
+
{
function_name = (symbol_c*)(new pragma_c("__move_"));