stage4/generate_c/generate_c_st.cc
changeset 852 efb44e892582
parent 851 2c59c2b8fca4
child 854 13d0b67de111
equal deleted inserted replaced
851:2c59c2b8fca4 852:efb44e892582
   164   s4o.print(")");
   164   s4o.print(")");
   165   wanted_variablegeneration = old_wanted_variablegeneration;
   165   wanted_variablegeneration = old_wanted_variablegeneration;
   166   return NULL;
   166   return NULL;
   167 }
   167 }
   168 
   168 
       
   169 
       
   170 
   169 void *print_setter(symbol_c* symbol,
   171 void *print_setter(symbol_c* symbol,
   170         symbol_c* type,
   172         symbol_c* type,
   171         symbol_c* value,
   173         symbol_c* value,
   172         symbol_c* fb_symbol = NULL,
   174         symbol_c* fb_symbol = NULL,
   173         symbol_c* fb_value = NULL) {
   175         symbol_c* fb_value = NULL) {
   174   
   176   
   175   bool type_is_complex = false;
   177   bool type_is_complex = false;
   176   if (fb_symbol == NULL) {
   178   if (fb_symbol == NULL) {
   177     unsigned int vartype = search_var_instance_decl->get_vartype(symbol);
   179     unsigned int vartype = search_var_instance_decl->get_vartype(symbol);
   178     type_is_complex = search_var_instance_decl->type_is_complex(symbol);
   180     type_is_complex = analyse_variable_c::contains_complex_type(symbol);
   179     if (vartype == search_var_instance_decl_c::external_vt) {
   181     if (vartype == search_var_instance_decl_c::external_vt) {
   180       if (search_var_instance_decl->type_is_fb(symbol))
   182       if (search_var_instance_decl->type_is_fb(symbol))
   181         s4o.print(SET_EXTERNAL_FB);
   183         s4o.print(SET_EXTERNAL_FB);
   182       else
   184       else
   183         s4o.print(SET_EXTERNAL);
   185         s4o.print(SET_EXTERNAL);