1 files changed, 73 insertions, 0 deletions
diff --git a/libdwarf/dwarf_getabbrev.c b/libdwarf/dwarf_getabbrev.c
new file mode 100644
index 00000000..2220fc34
--- /dev/null
+++ b/libdwarf/dwarf_getabbrev.c
@@ -0,0 +1,73 @@
+/* Internal abbrev list handling
+   Copyright (C) 2000, 2001, 2002 Red Hat, Inc.
+   Written by Ulrich Drepper <[email protected]>, 2000.
+
+   This program is Open Source software; you can redistribute it and/or
+   modify it under the terms of the Open Software License version 1.0 as
+   published by the Open Source Initiative.
+
+   You should have received a copy of the Open Software License along
+   with this program; if not, you may obtain a copy of the Open Software
+   License version 1.0 from http://www.opensource.org/licenses/osl.php or
+   by writing the Open Source Initiative c/o Lawrence Rosen, Esq.,
+   3001 King Ranch Road, Ukiah, CA 95482.   */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <dwarf.h>
+#include <stdlib.h>
+
+#include <libdwarfP.h>
+
+
+Dwarf_Abbrev
+__libdwarf_get_abbrev (dbg, cu, code, error)
+     Dwarf_Debug dbg;
+     Dwarf_CU_Info cu;
+     Dwarf_Word code;
+     Dwarf_Error *error;
+{
+  Dwarf_Abbrev ent;
+
+  /* See whether the entry is already in the hash table.  */
+  ent = Dwarf_Abbrev_Hash_find (&cu->abbrev_hash, code, NULL);
+  if (ent != NULL)
+    return ent;
+
+  while (1)
+    {
+      Dwarf_Unsigned length;
+      Dwarf_Unsigned attr_count;
+
+      if (dwarf_get_abbrev (dbg, cu->last_abbrev_offset, &ent, &length,
+			    &attr_count, error) != DW_DLV_OK)
+	return NULL;
+
+      if (length == 1)
+	/* This is the end of the list.  */
+	break;
+
+      /* Update the offset to the next record.  */
+      cu->last_abbrev_offset += length;
+
+      /* Insert the new entry into the hashing table.  */
+      if (unlikely (Dwarf_Abbrev_Hash_insert (&cu->abbrev_hash, ent->code, ent)
+		    != 0))
+	{
+	  free (ent);
+	  __libdwarf_error (dbg, error, DW_E_NOMEM);
+	  return NULL;
+	}
+
+      /* Is this the code we are looking for?  */
+      if (ent->code == code)
+	/* Yes!  */
+	return ent;
+    }
+
+  /* If we come here we haven't found anything.  */
+  __libdwarf_error (dbg, error, DW_E_NO_ABBR);
+  return NULL;
+}