diff options
Diffstat (limited to 'gdb/stabsread.c')
| -rw-r--r-- | gdb/stabsread.c | 137 |
1 files changed, 4 insertions, 133 deletions
diff --git a/gdb/stabsread.c b/gdb/stabsread.c index 68a67d5..0e0947d 100644 --- a/gdb/stabsread.c +++ b/gdb/stabsread.c @@ -242,36 +242,6 @@ static struct symbol *current_symbol = NULL; *(pp) = next_symbol_text (objfile); \ } while (0) -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE /* FIXME: These probably should be our own types (like rs6000_builtin_type -// OBSOLETE has its own types) rather than builtin_type_*. */ -// OBSOLETE static struct type **os9k_type_vector[] = -// OBSOLETE { -// OBSOLETE 0, -// OBSOLETE &builtin_type_int, -// OBSOLETE &builtin_type_char, -// OBSOLETE &builtin_type_long, -// OBSOLETE &builtin_type_short, -// OBSOLETE &builtin_type_unsigned_char, -// OBSOLETE &builtin_type_unsigned_short, -// OBSOLETE &builtin_type_unsigned_long, -// OBSOLETE &builtin_type_unsigned_int, -// OBSOLETE &builtin_type_float, -// OBSOLETE &builtin_type_double, -// OBSOLETE &builtin_type_void, -// OBSOLETE &builtin_type_long_double -// OBSOLETE }; -// OBSOLETE -// OBSOLETE static void os9k_init_type_vector (struct type **); -// OBSOLETE -// OBSOLETE static void -// OBSOLETE os9k_init_type_vector (struct type **tv) -// OBSOLETE { -// OBSOLETE unsigned int i; -// OBSOLETE for (i = 0; i < sizeof (os9k_type_vector) / sizeof (struct type **); i++) -// OBSOLETE tv[i] = (os9k_type_vector[i] == 0 ? 0 : *(os9k_type_vector[i])); -// OBSOLETE } -#endif /* OBSOLETE OS9K */ /* Look up a dbx type-number pair. Return the address of the slot where the type for that number-pair is stored. @@ -336,12 +306,6 @@ dbx_lookup_type (int typenums[2]) (type_vector_length * sizeof (struct type *))); memset (&type_vector[old_len], 0, (type_vector_length - old_len) * sizeof (struct type *)); - -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE /* Deal with OS9000 fundamental types. */ -// OBSOLETE os9k_init_type_vector (type_vector); -#endif /* OBSOLETE OS9K */ } return (&type_vector[index]); } @@ -2037,11 +2001,6 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, } #endif SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE add_symbol_to_list (sym, &global_symbols); -// OBSOLETE else -#endif /* OBSOLETE OS9K */ add_symbol_to_list (sym, &local_symbols); break; @@ -2575,24 +2534,6 @@ again: break; case 'f': /* Function returning another type */ -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs && **pp == '(') -// OBSOLETE { -// OBSOLETE /* Function prototype; parse it. -// OBSOLETE We must conditionalize this on os9k_stabs because otherwise -// OBSOLETE it could be confused with a Sun-style (1,3) typenumber -// OBSOLETE (I think). */ -// OBSOLETE struct type *t; -// OBSOLETE ++*pp; -// OBSOLETE while (**pp != ')') -// OBSOLETE { -// OBSOLETE t = read_type (pp, objfile); -// OBSOLETE if (**pp == ',') -// OBSOLETE ++ * pp; -// OBSOLETE } -// OBSOLETE } -#endif /* OBSOLETE OS9K */ - type1 = read_type (pp, objfile); type = make_function_type (type1, dbx_lookup_type (typenums)); break; @@ -2671,36 +2612,12 @@ again: } case 'k': /* Const qualifier on some type (Sun) */ -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE /* ezannoni 2002-07-16: This can be safely deleted, because 'c' -// OBSOLETE means complex type in AIX stabs, while it means const qualifier -// OBSOLETE in os9k stabs. Obviously we were supporting only the os9k meaning. -// OBSOLETE We were erroring out if we were reading AIX stabs. Right now the -// OBSOLETE erroring out will happen in the default clause of the switch. */ -// OBSOLETE case 'c': /* Const qualifier on some type (OS9000) */ -// OBSOLETE /* Because 'c' means other things to AIX and 'k' is perfectly good, -// OBSOLETE only accept 'c' in the os9k_stabs case. */ -// OBSOLETE if (type_descriptor == 'c' && !os9k_stabs) -// OBSOLETE return error_type (pp, objfile); -#endif /* OBSOLETE OS9K */ type = read_type (pp, objfile); type = make_cv_type (1, TYPE_VOLATILE (type), type, dbx_lookup_type (typenums)); break; case 'B': /* Volatile qual on some type (Sun) */ -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE /* ezannoni 2002-07-16: This can be safely deleted, because 'i' -// OBSOLETE means imported type in AIX stabs, while it means volatile qualifier -// OBSOLETE in os9k stabs. Obviously we were supporting only the os9k meaning. -// OBSOLETE We were erroring out if we were reading AIX stabs. Right now the -// OBSOLETE erroring out will happen in the default clause of the switch. */ -// OBSOLETE case 'i': /* Volatile qual on some type (OS9000) */ -// OBSOLETE /* Because 'i' means other things to AIX and 'B' is perfectly good, -// OBSOLETE only accept 'i' in the os9k_stabs case. */ -// OBSOLETE if (type_descriptor == 'i' && !os9k_stabs) -// OBSOLETE return error_type (pp, objfile); -#endif /* OBSOLETE OS9K */ type = read_type (pp, objfile); type = make_cv_type (TYPE_CONST (type), 1, type, dbx_lookup_type (typenums)); @@ -2807,12 +2724,6 @@ again: break; case 'b': -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE /* Const and volatile qualified type. */ -// OBSOLETE type = read_type (pp, objfile); -// OBSOLETE else -#endif /* OBSOLETE OS9K */ { /* Sun ACC builtin int type */ type = read_sun_builtin_type (pp, typenums, objfile); @@ -3853,10 +3764,6 @@ read_struct_fields (struct field_info *fip, char **pp, struct type *type, while (**pp != ';' && **pp != '\0') { -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs && **pp == ',') -// OBSOLETE break; -#endif /* OBSOLETE OS9K */ STABS_CONTINUE (pp, objfile); /* Get space to record the next field's data. */ new = (struct nextfield *) xmalloc (sizeof (struct nextfield)); @@ -3901,9 +3808,9 @@ read_struct_fields (struct field_info *fip, char **pp, struct type *type, } if (p[0] == ':' && p[1] == ':') { - /* (OBSOLETE) chill (OBSOLETE) the list of fields: the last - entry (at the head) is a partially constructed entry which we - now scrub. */ + /* (the deleted) chill the list of fields: the last entry (at + the head) is a partially constructed entry which we now + scrub. */ fip->list = fip->list->next; } return 1; @@ -4510,11 +4417,6 @@ read_array_type (register char **pp, register struct type *type, Fortran adjustable arrays use Adigits or Tdigits for lower or upper; for these, produce a type like float[][]. */ -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE index_type = builtin_type_int; -// OBSOLETE else -#endif /* OBSOLETE OS9K */ { index_type = read_type (pp, objfile); if (**pp != ';') @@ -4528,11 +4430,7 @@ read_array_type (register char **pp, register struct type *type, (*pp)++; adjustable = 1; } -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE lower = read_huge_number (pp, os9k_stabs ? ',' : ';', &nbits); -#else /* OBSOLETE OS9K */ lower = read_huge_number (pp, ';', &nbits); -#endif /* OBSOLETE OS9K */ if (nbits != 0) return error_type (pp, objfile); @@ -4593,18 +4491,6 @@ read_enum_type (register char **pp, register struct type *type, osyms = *symlist; o_nsyms = osyms ? osyms->nsyms : 0; -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE { -// OBSOLETE /* Size. Perhaps this does not have to be conditionalized on -// OBSOLETE os9k_stabs (assuming the name of an enum constant can't start -// OBSOLETE with a digit). */ -// OBSOLETE read_huge_number (pp, 0, &nbits); -// OBSOLETE if (nbits != 0) -// OBSOLETE return error_type (pp, objfile); -// OBSOLETE } -#endif /* OBSOLETE OS9K */ - /* The aix4 compiler emits an extra field before the enum members; my guess is it's a type of some sort. Just ignore it. */ if (**pp == '-') @@ -4842,12 +4728,7 @@ read_huge_number (char **pp, int end, int *bits) p++; } -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE upper_limit = ULONG_MAX / radix; -// OBSOLETE else -#endif /* OBSOLETE OS9K */ - upper_limit = LONG_MAX / radix; + upper_limit = LONG_MAX / radix; while ((c = *p++) >= '0' && c < ('0' + radix)) { @@ -5043,12 +4924,6 @@ read_range_type (char **pp, int typenums[2], struct objfile *objfile) else if (self_subrange && n2 == 0 && n3 == 127) return init_type (TYPE_CODE_INT, 1, 0, NULL, objfile); -#if 0 - /* OBSOLETE else if (current_symbol && SYMBOL_LANGUAGE (current_symbol) == language_chill */ - /* OBSOLETE && !self_subrange) */ - /* OBSOLETE goto handle_true_range; */ -#endif - /* We used to do this only for subrange of self or subrange of int. */ else if (n2 == 0) { @@ -5553,10 +5428,6 @@ start_stabs (void) /* FIXME: If common_block_name is not already NULL, we should complain(). */ common_block_name = NULL; - -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE os9k_stabs = 0; -#endif /* OBSOLETE OS9K */ } /* Call after end_symtab() */ |