stage4/generate_c/generate_c_vardecl.cc
changeset 854 13d0b67de111
parent 810 d9c48ad646f1
child 885 b2604fc6d25c
equal deleted inserted replaced
853:818c4ac5d64d 854:13d0b67de111
  1849   /* Start off by setting the current_var_type_symbol and
  1849   /* Start off by setting the current_var_type_symbol and
  1850    * current_var_init_symbol private variables...
  1850    * current_var_init_symbol private variables...
  1851    */
  1851    */
  1852   this->current_var_type_symbol = symbol->specification;
  1852   this->current_var_type_symbol = symbol->specification;
  1853   this->current_var_init_symbol = NULL;
  1853   this->current_var_init_symbol = NULL;
  1854   bool is_fb = type_is_fb(this->current_var_type_symbol);
  1854   if(!get_datatype_info_c::is_type_valid(this->current_var_type_symbol)) ERROR;
       
  1855   bool is_fb = get_datatype_info_c::is_function_block(this->current_var_type_symbol);
  1855 
  1856 
  1856   /* now to produce the c equivalent... */
  1857   /* now to produce the c equivalent... */
  1857   switch (wanted_varformat) {
  1858   switch (wanted_varformat) {
  1858     case local_vf:
  1859     case local_vf:
  1859     case localinit_vf:
  1860     case localinit_vf:
  2069 /*| global_var_list ',' global_var_name */
  2070 /*| global_var_list ',' global_var_name */
  2070 //SYM_LIST(global_var_list_c)
  2071 //SYM_LIST(global_var_list_c)
  2071 void *visit(global_var_list_c *symbol) {
  2072 void *visit(global_var_list_c *symbol) {
  2072   TRACE("global_var_list_c");
  2073   TRACE("global_var_list_c");
  2073   list_c *list = dynamic_cast<list_c *>(symbol);
  2074   list_c *list = dynamic_cast<list_c *>(symbol);
  2074   bool is_fb = type_is_fb(this->current_var_type_symbol);
  2075   if(!get_datatype_info_c::is_type_valid(this->current_var_type_symbol)) ERROR;
       
  2076   bool is_fb = get_datatype_info_c::is_function_block(this->current_var_type_symbol);
  2075   /* should NEVER EVER occur!! */
  2077   /* should NEVER EVER occur!! */
  2076   if (list == NULL) ERROR;
  2078   if (list == NULL) ERROR;
  2077 
  2079 
  2078   /* now to produce the c equivalent... */
  2080   /* now to produce the c equivalent... */
  2079   switch (wanted_varformat) {
  2081   switch (wanted_varformat) {