132 /* This is a temporary fix. Hopefully, once I clean up stage4 code, and I change the way

   133  * we generate C code, this function will no longer be needed!

   134  */

   135 #include <typeinfo>  /* required for typeid() */

   136 bool search_var_instance_decl_c::type_is_complex(symbol_c *symbol) {

   137   symbol_c *decl;

   138   

   139   decl = this->get_decl(symbol);

   140   if (NULL == decl) ERROR;

   141   decl = search_base_type_c::get_basetype_decl(decl);

   142   if (NULL == decl) ERROR;

   143   

   144   return ((typeid( *(decl) ) == typeid( array_specification_c                )) ||

   145 //        (typeid( *(decl) ) == typeid( array_spec_init_c                    )) ||  /* does not seem to be necessary */

   146           (typeid( *(decl) ) == typeid( structure_type_declaration_c         )) ||  

   147           (typeid( *(decl) ) == typeid( structure_element_declaration_list_c )) ||

   148 //        (typeid( *(decl) ) == typeid( structure_type_declaration_c         )) ||  /* does not seem to be necessary */

   149           (typeid( *(decl) ) == typeid( initialized_structure_c              )) ||

   150           (search_base_type_c::type_is_fb(decl) && current_vartype == external_vt)

   151          );

   152 }

   153 

   154 bool search_var_instance_decl_c::type_is_fb(symbol_c *symbol) {

   155     symbol_c *decl;

   156     search_base_type_c search_base_type;

   157 

   158     decl = this->get_decl(symbol);

   159     if (NULL == decl) ERROR;

   160     return search_base_type.type_is_fb(decl);

   161 }