stage4/generate_c/generate_c_typedecl.cc
changeset 587 1ecf916cc397
parent 547 dab341e80664
child 592 99a284cec1f2
equal deleted inserted replaced
586:b602f0459f17 587:1ecf916cc397
   253   int dimension;
   253   int dimension;
   254   switch (current_typedefinition) {
   254   switch (current_typedefinition) {
   255     case array_td:
   255     case array_td:
   256       if (current_basetypedeclaration == arraysubrange_bd) {
   256       if (current_basetypedeclaration == arraysubrange_bd) {
   257         s4o_incl.print("[");
   257         s4o_incl.print("[");
   258         dimension = extract_integer_value(symbol->upper_limit) - extract_integer_value(symbol->lower_limit) + 1;
   258         dimension = extract_int64_value(symbol->upper_limit) - extract_int64_value(symbol->lower_limit) + 1;
   259         print_integer_incl(dimension);
   259         print_integer_incl(dimension);
   260         s4o_incl.print("]");
   260         s4o_incl.print("]");
   261       }
   261       }
   262       else
   262       else
   263         symbol->lower_limit->accept(*this);
   263         symbol->lower_limit->accept(*this);