diff options
Diffstat (limited to 'gdb/stabsread.c')
| -rw-r--r-- | gdb/stabsread.c | 193 |
1 files changed, 98 insertions, 95 deletions
diff --git a/gdb/stabsread.c b/gdb/stabsread.c index 71b9233..b57d92a 100644 --- a/gdb/stabsread.c +++ b/gdb/stabsread.c @@ -23,7 +23,7 @@ the "stabs" format. This format is used with many systems that use the a.out object file format, as well as some systems that use COFF or ELF where the stabs data is placed in a special section. - Avoid placing any object file format specific code in this file. */ + Avoid placing any object file format specific code in this file. */ #include "defs.h" #include "gdb_string.h" @@ -61,7 +61,7 @@ extern void _initialize_stabsread (void); C++ class pass lists of data member fields and lists of member function fields in an instance of a field_info structure, as defined below. This is part of some reorganization of low level C++ support and is - expected to eventually go away... (FIXME) */ + expected to eventually go away... (FIXME) */ struct field_info { @@ -190,7 +190,7 @@ static struct symbol *current_symbol = NULL; /* Make a list of nameless types that are undefined. This happens when another type is referenced by its number - before this type is actually defined. For instance "t(0,1)=k(0,2)" + before this type is actually defined. For instance "t(0,1)=k(0,2)" and type (0,2) is defined only later. */ struct nat @@ -314,7 +314,7 @@ dbx_lookup_type (int typenums[2], struct objfile *objfile) and return the type object. This can create an empty (zeroed) type object. TYPENUMS may be (-1, -1) to return a new type object that is not - put into the type vector, and so may not be referred to by number. */ + put into the type vector, and so may not be referred to by number. */ static struct type * dbx_alloc_type (int typenums[2], struct objfile *objfile) @@ -340,7 +340,7 @@ dbx_alloc_type (int typenums[2], struct objfile *objfile) } /* for all the stabs in a given stab vector, build appropriate types - and fix their symbols in given symbol vector. */ + and fix their symbols in given symbol vector. */ static void patch_block_stabs (struct pending *symbols, struct pending_stabs *stabs, @@ -354,7 +354,7 @@ patch_block_stabs (struct pending *symbols, struct pending_stabs *stabs, if (stabs) { /* for all the stab entries, find their corresponding symbols and - patch their types! */ + patch their types! */ for (ii = 0; ii < stabs->count; ++ii) { @@ -463,7 +463,7 @@ read_type_number (char **pp, int *typenums) #define VISIBILITY_IGNORE '9' /* Optimized out or zero length */ /* Structure for storing pointers to reference definitions for fast lookup - during "process_later". */ + during "process_later". */ struct ref_map { @@ -478,15 +478,15 @@ struct ref_map static struct ref_map *ref_map; -/* Ptr to free cell in chunk's linked list. */ +/* Ptr to free cell in chunk's linked list. */ static int ref_count = 0; -/* Number of chunks malloced. */ +/* Number of chunks malloced. */ static int ref_chunk = 0; /* This file maintains a cache of stabs aliases found in the symbol - table. If the symbol table changes, this cache must be cleared - or we are left holding onto data in invalid obstacks. */ + table. If the symbol table changes, this cache must be cleared + or we are left holding onto data in invalid obstacks. */ void stabsread_clear_cache (void) { @@ -496,8 +496,8 @@ stabsread_clear_cache (void) /* Create array of pointers mapping refids to symbols and stab strings. Add pointers to reference definition symbols and/or their values as we - find them, using their reference numbers as our index. - These will be used later when we resolve references. */ + find them, using their reference numbers as our index. + These will be used later when we resolve references. */ void ref_add (int refnum, struct symbol *sym, char *stabs, CORE_ADDR value) { @@ -545,7 +545,7 @@ process_reference (char **string) /* Advance beyond the initial '#'. */ p = *string + 1; - /* Read number as reference id. */ + /* Read number as reference id. */ while (*p && isdigit (*p)) { refnum = refnum * 10 + *p - '0'; @@ -566,16 +566,16 @@ symbol_reference_defined (char **string) refnum = process_reference (&p); - /* Defining symbols end in '=' */ + /* Defining symbols end in '='. */ if (*p == '=') { - /* Symbol is being defined here. */ + /* Symbol is being defined here. */ *string = p + 1; return refnum; } else { - /* Must be a reference. Either the symbol has already been defined, + /* Must be a reference. Either the symbol has already been defined, or this is a forward reference to it. */ *string = p; return -1; @@ -595,7 +595,7 @@ stab_reg_to_regnum (struct symbol *sym, struct gdbarch *gdbarch) + gdbarch_num_pseudo_regs (gdbarch), SYMBOL_PRINT_NAME (sym)); - regno = gdbarch_sp_regnum (gdbarch); /* Known safe, though useless */ + regno = gdbarch_sp_regnum (gdbarch); /* Known safe, though useless. */ } return regno; @@ -619,8 +619,8 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, /* We would like to eliminate nameless symbols, but keep their types. E.g. stab entry ":t10=*2" should produce a type 10, which is a pointer - to type 2, but, should not create a symbol to address that type. Since - the symbol will be nameless, there is no way any user can refer to it. */ + to type 2, but, should not create a symbol to address that type. Since + the symbol will be nameless, there is no way any user can refer to it. */ int nameless; @@ -628,7 +628,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, if (string[0] == 0) return 0; - /* Ignore old-style symbols from cc -go */ + /* Ignore old-style symbols from cc -go. */ if (p == 0) return 0; @@ -694,12 +694,12 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, /* SunPRO (3.0 at least) static variable encoding. */ if (gdbarch_static_transform_name_p (gdbarch)) goto normal; - /* ... fall through ... */ + /* ... fall through ... */ default: complaint (&symfile_complaints, _("Unknown C++ symbol name `%s'"), string); - goto normal; /* Do *something* with it */ + goto normal; /* Do *something* with it. */ } } else @@ -936,7 +936,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, primarily for promotion when calling the function from GDB. */ TYPE_PROTOTYPED (SYMBOL_TYPE (sym)) = 1; - /* fall into process_prototype_types */ + /* fall into process_prototype_types. */ process_prototype_types: /* Sun acc puts declared types of arguments here. */ @@ -955,7 +955,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, nsemi++; } - /* Allocate parameter information fields and fill them in. */ + /* Allocate parameter information fields and fill them in. */ TYPE_FIELDS (ftype) = (struct field *) TYPE_ALLOC (ftype, nsemi * sizeof (struct field)); while (*p++ == ';') @@ -970,7 +970,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, /* The Sun compilers mark integer arguments, which should be promoted to the width of the calling conventions, with - a type which references itself. This type is turned into + a type which references itself. This type is turned into a TYPE_CODE_VOID type by read_type, and we have to turn it back into builtin_int here. FIXME: Do we need a new builtin_promoted_int_arg ? */ @@ -1153,7 +1153,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, break; case 'S': - /* Static symbol at top level of file */ + /* Static symbol at top level of file. */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_VALUE_ADDRESS (sym) = valu; @@ -1182,7 +1182,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, case 't': /* In Ada, there is no distinction between typedef and non-typedef; any type declaration implicitly has the equivalent of a typedef, - and thus 't' is in fact equivalent to 'Tt'. + and thus 't' is in fact equivalent to 'Tt'. Therefore, for Ada units, we check the character immediately before the 't', and if we do not find a 'T', then make sure to @@ -1200,7 +1200,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, SYMBOL_TYPE (sym) = read_type (&p, objfile); /* For a nameless type, we don't want a create a symbol, thus we - did not use `sym'. Return without further processing. */ + did not use `sym'. Return without further processing. */ if (nameless) return NULL; @@ -1228,7 +1228,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, { /* gcc-2.6 or later (when using -fvtable-thunks) emits a unique named type for a vtable entry. - Some gdb code depends on that specific name. */ + Some gdb code depends on that specific name. */ extern const char vtbl_ptr_name[]; if ((TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR @@ -1253,15 +1253,16 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, Fortunately, this check seems not to be necessary for anything except pointers or functions. */ - /* ezannoni: 2000-10-26. This seems to apply for - versions of gcc older than 2.8. This was the original + /* ezannoni: 2000-10-26. This seems to apply for + versions of gcc older than 2.8. This was the original problem: with the following code gdb would tell that - the type for name1 is caddr_t, and func is char() + the type for name1 is caddr_t, and func is char(). + typedef char *caddr_t; char *name2; struct x { - char *name1; + char *name1; } xx; char *func() { @@ -1269,7 +1270,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, main () {} */ - /* Pascal accepts names for pointer types. */ + /* Pascal accepts names for pointer types. */ if (current_subfile->language == language_pascal) { TYPE_NAME (SYMBOL_TYPE (sym)) = SYMBOL_LINKAGE_NAME (sym); @@ -1312,7 +1313,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, SYMBOL_TYPE (sym) = read_type (&p, objfile); /* For a nameless type, we don't want a create a symbol, thus we - did not use `sym'. Return without further processing. */ + did not use `sym'. Return without further processing. */ if (nameless) return NULL; @@ -1328,7 +1329,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, if (synonym) { - /* Clone the sym and then modify it. */ + /* Clone the sym and then modify it. */ struct symbol *typedef_sym = (struct symbol *) obstack_alloc (&objfile->objfile_obstack, sizeof (struct symbol)); @@ -1346,7 +1347,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, break; case 'V': - /* Static symbol of local scope */ + /* Static symbol of local scope. */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_VALUE_ADDRESS (sym) = valu; @@ -1508,10 +1509,10 @@ read_type (char **pp, struct objfile *objfile) there is no size attribute. */ int type_size = -1; - /* Used to distinguish string and bitstring from char-array and set. */ + /* Used to distinguish string and bitstring from char-array and set. */ int is_string = 0; - /* Used to distinguish vector from array. */ + /* Used to distinguish vector from array. */ int is_vector = 0; /* Read type number if present. The type number may be omitted. @@ -1700,10 +1701,10 @@ again: (*pp)--; /* We deal with something like t(1,2)=(3,4)=... which - the Lucid compiler and recent gcc versions (post 2.7.3) use. */ + the Lucid compiler and recent gcc versions (post 2.7.3) use. */ /* Allocate and enter the typedef type first. - This handles recursive types. */ + This handles recursive types. */ type = dbx_alloc_type (typenums, objfile); TYPE_CODE (type) = TYPE_CODE_TYPEDEF; { @@ -1900,12 +1901,12 @@ again: break; case 'S': /* String attribute */ - /* FIXME: check to see if following type is array? */ + /* FIXME: check to see if following type is array? */ is_string = 1; break; case 'V': /* Vector attribute */ - /* FIXME: check to see if following type is array? */ + /* FIXME: check to see if following type is array? */ is_vector = 1; break; @@ -2028,8 +2029,8 @@ again: break; default: - --*pp; /* Go back to the symbol in error */ - /* Particularly important if it was \0! */ + --*pp; /* Go back to the symbol in error. */ + /* Particularly important if it was \0! */ return error_type (pp, objfile); } @@ -2047,7 +2048,7 @@ again: } /* RS/6000 xlc/dbx combination uses a set of builtin types, starting from -1. - Return the proper type node for a given builtin type number. */ + Return the proper type node for a given builtin type number. */ static const struct objfile_data *rs6000_builtin_type_data; @@ -2289,13 +2290,13 @@ read_member_functions (struct field_info *fip, char **pp, struct type *type, char *p; /* Process each list until we find something that is not a member function - or find the end of the functions. */ + or find the end of the functions. */ while (**pp != ';') { /* We should be positioned at the start of the function name. Scan forward to find the first ':' and if it is not the - first of a "::" delimiter, then this is not a member function. */ + first of a "::" delimiter, then this is not a member function. */ p = *pp; while (*p != ':') { @@ -2360,7 +2361,7 @@ read_member_functions (struct field_info *fip, char **pp, struct type *type, /* Check for and handle cretinous dbx symbol name continuation! */ if (look_ahead_type == NULL) { - /* Normal case. */ + /* Normal case. */ STABS_CONTINUE (pp, objfile); new_sublist->fn_field.type = read_type (pp, objfile); @@ -2384,7 +2385,7 @@ read_member_functions (struct field_info *fip, char **pp, struct type *type, p++; } - /* If this is just a stub, then we don't have the real name here. */ + /* If this is just a stub, then we don't have the real name here. */ if (TYPE_STUB (new_sublist->fn_field.type)) { @@ -2409,28 +2410,28 @@ read_member_functions (struct field_info *fip, char **pp, struct type *type, STABS_CONTINUE (pp, objfile); switch (**pp) { - case 'A': /* Normal functions. */ + case 'A': /* Normal functions. */ new_sublist->fn_field.is_const = 0; new_sublist->fn_field.is_volatile = 0; (*pp)++; break; - case 'B': /* `const' member functions. */ + case 'B': /* `const' member functions. */ new_sublist->fn_field.is_const = 1; new_sublist->fn_field.is_volatile = 0; (*pp)++; break; - case 'C': /* `volatile' member function. */ + case 'C': /* `volatile' member function. */ new_sublist->fn_field.is_const = 0; new_sublist->fn_field.is_volatile = 1; (*pp)++; break; - case 'D': /* `const volatile' member function. */ + case 'D': /* `const volatile' member function. */ new_sublist->fn_field.is_const = 1; new_sublist->fn_field.is_volatile = 1; (*pp)++; break; case '*': /* File compiled with g++ version 1 -- - no info */ + no info. */ case '?': case '.': break; @@ -2472,7 +2473,7 @@ read_member_functions (struct field_info *fip, char **pp, struct type *type, look_ahead_type = read_type (pp, objfile); if (**pp == ':') { - /* g++ version 1 overloaded methods. */ + /* g++ version 1 overloaded methods. */ } else { @@ -2768,7 +2769,7 @@ read_cpp_abbrev (struct field_info *fip, char **pp, struct type *type, /* At this point, *pp points to something like "22:23=*22...", where the type number before the ':' is the "context" and everything after is a regular type definition. Lookup the - type, find it's name, and construct the field name. */ + type, find it's name, and construct the field name. */ context = read_type (pp, objfile); @@ -2807,7 +2808,7 @@ read_cpp_abbrev (struct field_info *fip, char **pp, struct type *type, } /* At this point, *pp points to the ':'. Skip it and read the - field type. */ + field type. */ p = ++(*pp); if (p[-1] != ':') @@ -2854,7 +2855,7 @@ read_one_struct_field (struct field_info *fip, char **pp, char *p, obsavestring (*pp, p - *pp, &objfile->objfile_obstack); *pp = p + 1; - /* This means we have a visibility for a field coming. */ + /* This means we have a visibility for a field coming. */ if (**pp == '/') { (*pp)++; @@ -2871,7 +2872,7 @@ read_one_struct_field (struct field_info *fip, char **pp, char *p, { p = ++(*pp); #if 0 - /* Possible future hook for nested types. */ + /* Possible future hook for nested types. */ if (**pp == '!') { fip->list->field.bitpos = (long) -2; /* nested type */ @@ -2999,9 +3000,9 @@ read_struct_fields (struct field_info *fip, char **pp, struct type *type, /* Read each data member type until we find the terminating ';' at the end of the data member list, or break for some other reason such as finding the - start of the member function list. */ + start of the member function list. */ /* Stab string for structure/union does not end with two ';' in - SUN C compiler 5.3 i.e. F6U2, hence check for end of string. */ + SUN C compiler 5.3 i.e. F6U2, hence check for end of string. */ while (**pp != ';' && **pp != '\0') { @@ -3031,7 +3032,7 @@ read_struct_fields (struct field_info *fip, char **pp, struct type *type, /* Look for the ':' that separates the field name from the field values. Data members are delimited by a single ':', while member functions are delimited by a pair of ':'s. When we hit the member - functions (if any), terminate scan loop and return. */ + functions (if any), terminate scan loop and return. */ while (*p != ':' && *p != '\0') { @@ -3051,7 +3052,7 @@ read_struct_fields (struct field_info *fip, char **pp, struct type *type, { /* (the deleted) chill the list of fields: the last entry (at the head) is a partially constructed entry which we now - scrub. */ + scrub. */ fip->list = fip->list->next; } return 1; @@ -3097,7 +3098,7 @@ read_baseclasses (struct field_info *fip, char **pp, struct type *type, } else { - /* Skip the '!' baseclass information marker. */ + /* Skip the '!' baseclass information marker. */ (*pp)++; } @@ -3134,13 +3135,14 @@ read_baseclasses (struct field_info *fip, char **pp, struct type *type, memset (new, 0, sizeof (struct nextfield)); new->next = fip->list; fip->list = new; - FIELD_BITSIZE (new->field) = 0; /* this should be an unpacked field! */ + FIELD_BITSIZE (new->field) = 0; /* This should be an unpacked + field! */ STABS_CONTINUE (pp, objfile); switch (**pp) { case '0': - /* Nothing to do. */ + /* Nothing to do. */ break; case '1': SET_TYPE_FIELD_VIRTUAL (type, i); @@ -3187,12 +3189,12 @@ read_baseclasses (struct field_info *fip, char **pp, struct type *type, /* The last piece of baseclass information is the type of the base class. Read it, and remember it's type name as this - field's name. */ + field's name. */ new->field.type = read_type (pp, objfile); new->field.name = type_name_no_tag (new->field.type); - /* skip trailing ';' and bump count of number of fields seen */ + /* Skip trailing ';' and bump count of number of fields seen. */ if (**pp == ';') (*pp)++; else @@ -3217,7 +3219,7 @@ read_tilde_fields (struct field_info *fip, char **pp, struct type *type, STABS_CONTINUE (pp, objfile); - /* If we are positioned at a ';', then skip it. */ + /* If we are positioned at a ';', then skip it. */ if (**pp == ';') { (*pp)++; @@ -3230,7 +3232,7 @@ read_tilde_fields (struct field_info *fip, char **pp, struct type *type, if (**pp == '=' || **pp == '+' || **pp == '-') { /* Obsolete flags that used to indicate the presence - of constructors and/or destructors. */ + of constructors and/or destructors. */ (*pp)++; } @@ -3259,7 +3261,7 @@ read_tilde_fields (struct field_info *fip, char **pp, struct type *type, } TYPE_VPTR_BASETYPE (type) = t; - if (type == t) /* Our own class provides vtbl ptr */ + if (type == t) /* Our own class provides vtbl ptr. */ { for (i = TYPE_NFIELDS (t) - 1; i >= TYPE_N_BASECLASSES (t); @@ -3302,7 +3304,7 @@ attach_fn_fields_to_type (struct field_info *fip, struct type *type) fip->fnlist != NULL; fip->fnlist = fip->fnlist->next) { - --n; /* Circumvent Sun3 compiler bug */ + --n; /* Circumvent Sun3 compiler bug. */ TYPE_FN_FIELDLISTS (type)[n] = fip->fnlist->fn_fieldlist; } return 1; @@ -3323,7 +3325,7 @@ attach_fields_to_type (struct field_info *fip, struct type *type, /* Count up the number of fields that we have, as well as taking note of whether or not there are any non-public fields, which requires us to allocate and build the private_field_bits and protected_field_bits - bitfields. */ + bitfields. */ for (scan = fip->list; scan != NULL; scan = scan->next) { @@ -3336,7 +3338,7 @@ attach_fields_to_type (struct field_info *fip, struct type *type, /* Now we know how many fields there are, and whether or not there are any non-public fields. Record the field count, allocate space for the - array of fields, and create blank visibility bitfields if necessary. */ + array of fields, and create blank visibility bitfields if necessary. */ TYPE_NFIELDS (type) = nfields; TYPE_FIELDS (type) = (struct field *) @@ -3360,9 +3362,10 @@ attach_fields_to_type (struct field_info *fip, struct type *type, B_CLRALL (TYPE_FIELD_IGNORE_BITS (type), nfields); } - /* Copy the saved-up fields into the field vector. Start from the head - of the list, adding to the tail of the field array, so that they end - up in the same order in the array in which they were added to the list. */ + /* Copy the saved-up fields into the field vector. Start from the + head of the list, adding to the tail of the field array, so that + they end up in the same order in the array in which they were + added to the list. */ while (nfields-- > 0) { @@ -3788,12 +3791,12 @@ read_sun_builtin_type (char **pp, int typenums[2], struct objfile *objfile) if (nbits != 0) return error_type (pp, objfile); - /* The second number is always 0, so ignore it too. */ + /* The second number is always 0, so ignore it too. */ read_huge_number (pp, ';', &nbits, 0); if (nbits != 0) return error_type (pp, objfile); - /* The third number is the number of bits for this type. */ + /* The third number is the number of bits for this type. */ type_bits = read_huge_number (pp, 0, &nbits, 0); if (nbits != 0) return error_type (pp, objfile); @@ -3831,7 +3834,7 @@ read_sun_floating_type (char **pp, int typenums[2], struct objfile *objfile) if (nbits != 0) return error_type (pp, objfile); - /* The second number is the number of bytes occupied by this type */ + /* The second number is the number of bytes occupied by this type. */ nbytes = read_huge_number (pp, ';', &nbits, 0); if (nbits != 0) return error_type (pp, objfile); @@ -3952,14 +3955,14 @@ read_huge_number (char **pp, int end, int *bits, int twos_complement_bits) { /* unsigned representation */ n *= radix; - n += c - '0'; /* FIXME this overflows anyway */ + n += c - '0'; /* FIXME this overflows anyway. */ } } else overflow = 1; /* This depends on large values being output in octal, which is - what GCC does. */ + what GCC does. */ if (radix == 8) { if (nbits == 0) @@ -4079,7 +4082,7 @@ read_range_type (char **pp, int typenums[2], int type_size, int nbits = 0; /* If a type size attribute has been specified, the bounds of - the range should fit in this size. If the lower bounds needs + the range should fit in this size. If the lower bounds needs more bits than the upper bound, then the type is signed. */ if (n2bits <= type_size && n3bits <= type_size) { @@ -4131,7 +4134,7 @@ read_range_type (char **pp, int typenums[2], int type_size, Also note that for complexes, g77 sets n2 to the size of one of the member floats, not the whole complex beast. My guess is that - this was to work well with pre-COMPLEX versions of gdb. */ + this was to work well with pre-COMPLEX versions of gdb. */ if (n3 == 0 && n2 > 0) { @@ -4251,7 +4254,7 @@ read_args (char **pp, int end, struct objfile *objfile, int *nargsp, int *varargsp) { /* FIXME! Remove this arbitrary limit! */ - struct type *types[1024]; /* allow for fns of 1023 parameters */ + struct type *types[1024]; /* Allow for fns of 1023 parameters. */ int n = 0, i; struct field *rval; @@ -4264,7 +4267,7 @@ read_args (char **pp, int end, struct objfile *objfile, int *nargsp, STABS_CONTINUE (pp, objfile); types[n++] = read_type (pp, objfile); } - (*pp)++; /* get past `end' (the ':' character) */ + (*pp)++; /* get past `end' (the ':' character). */ if (n == 0) { @@ -4350,7 +4353,7 @@ common_block_end (struct objfile *objfile) sym = (struct symbol *) obstack_alloc (&objfile->objfile_obstack, sizeof (struct symbol)); memset (sym, 0, sizeof (struct symbol)); - /* Note: common_block_name already saved on objfile_obstack */ + /* Note: common_block_name already saved on objfile_obstack. */ SYMBOL_SET_LINKAGE_NAME (sym, common_block_name); SYMBOL_CLASS (sym) = LOC_BLOCK; @@ -4542,7 +4545,7 @@ cleanup_undefined_types_1 (void) { struct pending *ppt; int i; - /* Name of the type, without "struct" or "union" */ + /* Name of the type, without "struct" or "union". */ char *typename = TYPE_TAG_NAME (*type); if (typename == NULL) @@ -4647,7 +4650,7 @@ scan_file_globals (struct objfile *objfile) prev = NULL; /* Get the hash index and check all the symbols - under that hash index. */ + under that hash index. */ hash = hashname (SYMBOL_LINKAGE_NAME (msymbol)); @@ -4657,7 +4660,7 @@ scan_file_globals (struct objfile *objfile) SYMBOL_LINKAGE_NAME (sym)) == 0) { /* Splice this symbol out of the hash chain and - assign the value we have to it. */ + assign the value we have to it. */ if (prev) { SYMBOL_VALUE_CHAIN (prev) = SYMBOL_VALUE_CHAIN (sym); @@ -4754,7 +4757,7 @@ stabsread_new_init (void) } /* Initialize anything that needs initializing at the same time as - start_symtab() is called. */ + start_symtab() is called. */ void start_stabs (void) @@ -4769,7 +4772,7 @@ start_stabs (void) common_block_name = NULL; } -/* Call after end_symtab() */ +/* Call after end_symtab(). */ void end_stabs (void) @@ -4821,7 +4824,7 @@ find_name_end (char *name) } } -/* Initializer for this module */ +/* Initializer for this module. */ void _initialize_stabsread (void) |