equal
deleted
inserted
replaced
277 print_check_function(type, value, NULL, true); |
277 print_check_function(type, value, NULL, true); |
278 s4o.print(")"); |
278 s4o.print(")"); |
279 wanted_variablegeneration = expression_vg; |
279 wanted_variablegeneration = expression_vg; |
280 return NULL; |
280 return NULL; |
281 } |
281 } |
|
282 |
|
283 /********************/ |
|
284 /* 2.1.6 - Pragmas */ |
|
285 /********************/ |
|
286 //SYM_REF0(disable_code_generation_pragma_c) |
|
287 //SYM_REF0(enable_code_generation_pragma_c) |
|
288 //SYM_TOKEN(pragma_c) |
|
289 void *visit(pragma_c *symbol) {return NULL;} |
|
290 |
282 |
291 |
283 /*************************/ |
292 /*************************/ |
284 /* B.1 - Common elements */ |
293 /* B.1 - Common elements */ |
285 /*************************/ |
294 /*************************/ |
286 /*******************************************/ |
295 /*******************************************/ |
762 DECLARE_PARAM_LIST() |
771 DECLARE_PARAM_LIST() |
763 |
772 |
764 symbol_c *parameter_assignment_list = NULL; |
773 symbol_c *parameter_assignment_list = NULL; |
765 if (NULL != symbol-> formal_param_list) parameter_assignment_list = symbol-> formal_param_list; |
774 if (NULL != symbol-> formal_param_list) parameter_assignment_list = symbol-> formal_param_list; |
766 if (NULL != symbol->nonformal_param_list) parameter_assignment_list = symbol->nonformal_param_list; |
775 if (NULL != symbol->nonformal_param_list) parameter_assignment_list = symbol->nonformal_param_list; |
767 if (NULL == parameter_assignment_list) ERROR; |
776 // NOTE-> We support the non-standard feature of POUS with no in, out and inout parameters, so this is no longer an internal error! |
|
777 // if (NULL == parameter_assignment_list) ERROR; |
768 |
778 |
769 function_call_param_iterator_c function_call_param_iterator(symbol); |
779 function_call_param_iterator_c function_call_param_iterator(symbol); |
770 |
780 |
771 function_declaration_c *f_decl = (function_declaration_c *)symbol->called_function_declaration; |
781 function_declaration_c *f_decl = (function_declaration_c *)symbol->called_function_declaration; |
772 if (f_decl == NULL) ERROR; |
782 if (f_decl == NULL) ERROR; |