absyntax_utils/search_base_type.cc
changeset 377 60b012b7793f
parent 320 4df13059b982
child 412 aad38592bdde
child 417 d48f53715f77
equal deleted inserted replaced
376:7dcbd8418771 377:60b012b7793f
   225   return symbol->array_specification->accept(*this);
   225   return symbol->array_specification->accept(*this);
   226 }
   226 }
   227 
   227 
   228 /* ARRAY '[' array_subrange_list ']' OF non_generic_type_name */
   228 /* ARRAY '[' array_subrange_list ']' OF non_generic_type_name */
   229 void *search_base_type_c::visit(array_specification_c *symbol)	{
   229 void *search_base_type_c::visit(array_specification_c *symbol)	{
   230   if (NULL == this->current_type_name) ERROR;
   230   if (NULL == this->current_type_name)
       
   231 	this->current_type_name = symbol->non_generic_type_name;
   231   return symbol->non_generic_type_name->accept(*this);
   232   return symbol->non_generic_type_name->accept(*this);
   232 }
   233 }
   233 
   234 
   234 /* helper symbol for array_specification */
   235 /* helper symbol for array_specification */
   235 /* array_subrange_list ',' subrange */
   236 /* array_subrange_list ',' subrange */