equal
deleted
inserted
replaced
572 |
572 |
573 int nb_param = 1; |
573 int nb_param = 1; |
574 if (symbol->il_operand_list != NULL) |
574 if (symbol->il_operand_list != NULL) |
575 nb_param += ((list_c *)symbol->il_operand_list)->n; |
575 nb_param += ((list_c *)symbol->il_operand_list)->n; |
576 |
576 |
577 #define search(x) search_f(x) |
|
578 #define next() next_nf() |
|
579 // #define search_constant_type_c::constant_int_type_name search_expression_type_c::integer |
|
580 #define constant_int_type_name integer |
|
581 #include "il_code_gen.c" |
577 #include "il_code_gen.c" |
582 #undef constant_int_type_name |
|
583 // #undef search_constant_type_c::constant_int_type_name |
|
584 #undef next |
|
585 #undef search |
|
586 |
578 |
587 } |
579 } |
588 else { |
580 else { |
589 /* determine the base data type returned by the function being called... */ |
581 /* determine the base data type returned by the function being called... */ |
590 search_base_type_c search_base_type; |
582 search_base_type_c search_base_type; |
917 symbol_c *ENO_param_value = function_call_param_iterator.search_f(&eno_param_name); |
909 symbol_c *ENO_param_value = function_call_param_iterator.search_f(&eno_param_name); |
918 if (ENO_param_value != NULL) |
910 if (ENO_param_value != NULL) |
919 nb_param --; |
911 nb_param --; |
920 ADD_PARAM_LIST(ENO_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) |
912 ADD_PARAM_LIST(ENO_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) |
921 |
913 |
922 #define search(x) search_f(x) |
|
923 #define next() next_nf() |
|
924 // #define search_constant_type_c::constant_int_type_name search_expression_type_c::integer |
|
925 #define constant_int_type_name integer |
|
926 #include "st_code_gen.c" |
914 #include "st_code_gen.c" |
927 #undef constant_int_type_name |
|
928 // #undef search_constant_type_c::constant_int_type_name |
|
929 #undef next |
|
930 #undef search |
|
931 |
915 |
932 } |
916 } |
933 else { |
917 else { |
934 /* determine the base data type returned by the function being called... */ |
918 /* determine the base data type returned by the function being called... */ |
935 search_base_type_c search_base_type; |
919 search_base_type_c search_base_type; |