Moved the function hashname from stabsread.c to buildsym.c, since
authorStan Shebs <shebs@codesourcery.com>
Mon, 9 Aug 1993 23:49:18 +0000 (23:49 +0000)
committerStan Shebs <shebs@codesourcery.com>
Mon, 9 Aug 1993 23:49:18 +0000 (23:49 +0000)
it's a general-purpose function.

gdb/ChangeLog
gdb/buildsym.c
gdb/stabsread.c

index 8d79c414c9076ec17607305450327553514fa94a..f90ed16200a35f7b06fba08960e6bddf8635abed 100644 (file)
@@ -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
index ba593ca0b3f7fc2f8e4ba56f71ed36e0df5b3017..a36ef79c41bd832373cfba57cbdd88a0556e8354 100644 (file)
@@ -854,6 +854,37 @@ push_context (desc, valu)
   return (new);
 }
 
+\f
+/* 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);
+}
+
 \f
 /* Initialize anything that needs initializing when starting to read
    a fresh piece of a symbol file, e.g. reading in the stuff corresponding
index c6864cdcbf66b61d066a203f2681bef718be00e0..f57bf8f2601032392d877024f2f89c174c4addfe 100644 (file)
@@ -216,38 +216,6 @@ static int undef_types_length;
     if (**(pp) == '\\') *(pp) = next_symbol_text ();   \
   } while (0)
 
-\f
-/* 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);
-}
-
 \f
 /* Look up a dbx type-number pair.  Return the address of the slot
    where the type for that number-pair is stored.