stage4/generate_c/generate_c_st.cc
changeset 417 d48f53715f77
parent 392 9b88b8b6bccd
child 495 8c6823fee086
equal deleted inserted replaced
416:0c2ef191b22a 417:d48f53715f77
   340       symbol->subscripted_variable->accept(*this);
   340       symbol->subscripted_variable->accept(*this);
   341       break;
   341       break;
   342     case complextype_suffix_vg:
   342     case complextype_suffix_vg:
   343       symbol->subscripted_variable->accept(*this);
   343       symbol->subscripted_variable->accept(*this);
   344 
   344 
   345       current_array_type = search_varfb_instance_type->get_type_id(symbol->subscripted_variable);
   345       current_array_type = search_varfb_instance_type->get_basetype_decl(symbol->subscripted_variable);
   346       if (current_array_type == NULL) ERROR;
   346       if (current_array_type == NULL) ERROR;
   347 
   347 
   348       s4o.print(".table");
   348       s4o.print(".table");
   349       wanted_variablegeneration = expression_vg;
   349       wanted_variablegeneration = expression_vg;
   350       symbol->subscript_list->accept(*this);
   350       symbol->subscript_list->accept(*this);
   354       break;
   354       break;
   355     default:
   355     default:
   356       if (this->is_variable_prefix_null()) {
   356       if (this->is_variable_prefix_null()) {
   357     	symbol->subscripted_variable->accept(*this);
   357     	symbol->subscripted_variable->accept(*this);
   358 
   358 
   359     	current_array_type = search_varfb_instance_type->get_type_id(symbol->subscripted_variable);
   359     	current_array_type = search_varfb_instance_type->get_basetype_decl(symbol->subscripted_variable);
   360     	if (current_array_type == NULL) ERROR;
   360     	if (current_array_type == NULL) ERROR;
   361 
   361 
   362     	s4o.print(".table");
   362     	s4o.print(".table");
   363         symbol->subscript_list->accept(*this);
   363         symbol->subscript_list->accept(*this);
   364 
   364