diff options
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/buildsym.c | 31 | ||||
| -rw-r--r-- | gdb/stabsread.c | 32 |
3 files changed, 36 insertions, 32 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 8d79c414c90..f90ed16200a 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +Mon Aug 9 16:45:00 1993 Stan Shebs (shebs@rtl.cygnus.com) + + * stabsread.c, buildsym.c (hashname): Moved function to + buildsym.c, as suggested in the sources. + Mon Aug 9 09:53:45 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-udi.c: Make udi_ops extern rather than trying forward diff --git a/gdb/buildsym.c b/gdb/buildsym.c index ba593ca0b3f..a36ef79c41b 100644 --- a/gdb/buildsym.c +++ b/gdb/buildsym.c @@ -855,6 +855,37 @@ push_context (desc, valu) } +/* Compute a small integer hash code for the given name. */ + +int +hashname (name) + char *name; +{ + register char *p = name; + register int total = p[0]; + register int c; + + c = p[1]; + total += c << 2; + if (c) + { + c = p[2]; + total += c << 4; + if (c) + { + total += p[3] << 6; + } + } + + /* Ensure result is positive. */ + if (total < 0) + { + total += (1000 << 6); + } + return (total % HASHSIZE); +} + + /* Initialize anything that needs initializing when starting to read a fresh piece of a symbol file, e.g. reading in the stuff corresponding to a psymtab. */ diff --git a/gdb/stabsread.c b/gdb/stabsread.c index c6864cdcbf6..f57bf8f2601 100644 --- a/gdb/stabsread.c +++ b/gdb/stabsread.c @@ -217,38 +217,6 @@ static int undef_types_length; } while (0) -/* This is used by other symbol readers besides stabs, so for cleanliness - should probably be in buildsym.c. */ - -int -hashname (name) - char *name; -{ - register char *p = name; - register int total = p[0]; - register int c; - - c = p[1]; - total += c << 2; - if (c) - { - c = p[2]; - total += c << 4; - if (c) - { - total += p[3] << 6; - } - } - - /* Ensure result is positive. */ - if (total < 0) - { - total += (1000 << 6); - } - return (total % HASHSIZE); -} - - /* Look up a dbx type-number pair. Return the address of the slot where the type for that number-pair is stored. The number-pair is in TYPENUMS. |