stage4/generate_c/generate_var_list.cc
changeset 221 c6aed7e5f070
parent 206 261beef39000
child 229 ca7bc1324540
equal deleted inserted replaced
220:f332b62cd2c1 221:c6aed7e5f070
   278        * current_var_init_symbol private variables...
   278        * current_var_init_symbol private variables...
   279        */
   279        */
   280       update_var_type_symbol(symbol->array_spec_init);
   280       update_var_type_symbol(symbol->array_spec_init);
   281       
   281       
   282       this->current_var_type_category = array_vtc;
   282       this->current_var_type_category = array_vtc;
   283       declare_variables(symbol->var1_list);
   283       //declare_variables(symbol->var1_list);
   284     
   284     
   285       /* Values no longer in scope, and therefore no longer used.
   285       /* Values no longer in scope, and therefore no longer used.
   286        * Make an effort to keep them set to NULL when not in use
   286        * Make an effort to keep them set to NULL when not in use
   287        * in order to catch bugs as soon as possible...
   287        * in order to catch bugs as soon as possible...
   288        */
   288        */
   303        * current_var_init_symbol private variables...
   303        * current_var_init_symbol private variables...
   304        */
   304        */
   305       update_var_type_symbol(symbol->initialized_structure);
   305       update_var_type_symbol(symbol->initialized_structure);
   306     
   306     
   307       /* now to produce the c equivalent... */
   307       /* now to produce the c equivalent... */
   308       declare_variables(symbol->var1_list);
   308       //declare_variables(symbol->var1_list);
   309     
   309     
   310       /* Values no longer in scope, and therefore no longer used.
   310       /* Values no longer in scope, and therefore no longer used.
   311        * Make an effort to keep them set to NULL when not in use
   311        * Make an effort to keep them set to NULL when not in use
   312        * in order to catch bugs as soon as possible...
   312        * in order to catch bugs as soon as possible...
   313        */
   313        */