stage4/generate_c/generate_c_il.cc
changeset 531 e7d6f28fc882
parent 505 21be0f2f242d
child 563 61410284a9b4
equal deleted inserted replaced
530:1eacd7afcab1 531:e7d6f28fc882
   459       s4o.print("(");
   459       s4o.print("(");
   460 
   460 
   461       variablegeneration_t old_wanted_variablegeneration = wanted_variablegeneration;
   461       variablegeneration_t old_wanted_variablegeneration = wanted_variablegeneration;
   462       wanted_variablegeneration = complextype_base_vg;
   462       wanted_variablegeneration = complextype_base_vg;
   463       symbol->accept(*this);
   463       symbol->accept(*this);
   464       if (search_varfb_instance_type->type_is_complex(symbol))
   464       if (search_var_instance_decl->type_is_complex(symbol))
   465         s4o.print(",");
   465         s4o.print(",");
   466       wanted_variablegeneration = complextype_suffix_vg;
   466       wanted_variablegeneration = complextype_suffix_vg;
   467       symbol->accept(*this);
   467       symbol->accept(*this);
   468       s4o.print(")");
   468       s4o.print(")");
   469       wanted_variablegeneration = old_wanted_variablegeneration;
   469       wanted_variablegeneration = old_wanted_variablegeneration;
   478     		bool negative = false) {
   478     		bool negative = false) {
   479 
   479 
   480       bool type_is_complex = false;
   480       bool type_is_complex = false;
   481       if (fb_symbol == NULL) {
   481       if (fb_symbol == NULL) {
   482         unsigned int vartype = search_var_instance_decl->get_vartype(symbol);
   482         unsigned int vartype = search_var_instance_decl->get_vartype(symbol);
   483         type_is_complex = search_varfb_instance_type->type_is_complex(symbol);
   483         type_is_complex = search_var_instance_decl->type_is_complex(symbol);
   484         if (vartype == search_var_instance_decl_c::external_vt)
   484         if (vartype == search_var_instance_decl_c::external_vt)
   485           s4o.print(SET_EXTERNAL);
   485           s4o.print(SET_EXTERNAL);
   486         else if (vartype == search_var_instance_decl_c::located_vt)
   486         else if (vartype == search_var_instance_decl_c::located_vt)
   487           s4o.print(SET_LOCATED);
   487           s4o.print(SET_LOCATED);
   488         else
   488         else