rdwarf 0.0.1

data/ext/rdwarf/libdwarf/pro_arange.h

@@ -0,0 +1,51 @@
+/*
+
+  Copyright (C) 2000,2004 Silicon Graphics, Inc.  All Rights Reserved.
+
+  This program is free software; you can redistribute it and/or modify it
+  under the terms of version 2.1 of the GNU Lesser General Public License
+  as published by the Free Software Foundation.
+
+  This program is distributed in the hope that it would be useful, but
+  WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+  Further, this software is distributed without any warranty that it is
+  free of the rightful claim of any third person regarding infringement
+  or the like.  Any license provided herein, whether implied or
+  otherwise, applies only to this software file.  Patent licenses, if
+  any, provided herein do not apply to combinations of this program with
+  other software, or any other product whatsoever.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this program; if not, write the Free Software
+  Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston MA 02110-1301,
+  USA.
+
+*/
+
+
+/*
+    If ag_end_symbol_index is zero,
+    ag_length must be known and non-zero.
+
+    Deals with length being known costant or fr
+    assembler output, not known.
+*/
+
+struct Dwarf_P_Arange_s {
+    Dwarf_Addr ag_begin_address; /* known address or for
+        symbolic assem output,
+        offset of symbol */
+    Dwarf_Addr ag_length; /* zero or address or offset */
+    Dwarf_Unsigned ag_symbol_index;
+
+    Dwarf_P_Arange ag_next;
+
+    Dwarf_Unsigned ag_end_symbol_index; /* zero or index/id of end
+symbol */
+    Dwarf_Addr ag_end_symbol_offset; /* known address or for
+        symbolic assem output,
+        offset of end symbol */
+
+};

data/ext/rdwarf/libdwarf/pro_die.c

@@ -0,0 +1,431 @@
+/*
+
+  Copyright (C) 2000,2004 Silicon Graphics, Inc.  All Rights Reserved.
+  Portions Copyright 2002-2010 Sun Microsystems, Inc. All rights reserved.
+  Portions Copyright 2011 David Anderson.  All Rights Reserved.
+
+  This program is free software; you can redistribute it and/or modify it
+  under the terms of version 2.1 of the GNU Lesser General Public License
+  as published by the Free Software Foundation.
+
+  This program is distributed in the hope that it would be useful, but
+  WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+  Further, this software is distributed without any warranty that it is
+  free of the rightful claim of any third person regarding infringement
+  or the like.  Any license provided herein, whether implied or
+  otherwise, applies only to this software file.  Patent licenses, if
+  any, provided herein do not apply to combinations of this program with
+  other software, or any other product whatsoever.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this program; if not, write the Free Software
+  Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston MA 02110-1301,
+  USA.
+
+*/
+
+#include "config.h"
+#include "libdwarfdefs.h"
+#include <stdio.h>
+#include <string.h>
+#include "pro_incl.h"
+#include "pro_die.h"
+
+#ifndef R_MIPS_NONE
+#define R_MIPS_NONE 0
+#endif
+
+/* adds an attribute to a die */
+void _dwarf_pro_add_at_to_die(Dwarf_P_Die die, Dwarf_P_Attribute attr);
+
+/*  This function creates a new die.
+    tag: tag of the new die to be created
+    parent,child,left,right: specify neighbors of the new die. Only
+    one of these may be non-null */
+Dwarf_P_Die
+dwarf_new_die(Dwarf_P_Debug dbg,
+    Dwarf_Tag tag,
+    Dwarf_P_Die parent,
+    Dwarf_P_Die child,
+    Dwarf_P_Die left, Dwarf_P_Die right, Dwarf_Error * error)
+{
+    Dwarf_P_Die ret_die = 0;
+
+    Dwarf_P_Die new_die = (Dwarf_P_Die)
+        _dwarf_p_get_alloc(dbg, sizeof(struct Dwarf_P_Die_s));
+    if (new_die == NULL) {
+        DWARF_P_DBG_ERROR(dbg, DW_DLE_DIE_ALLOC,
+            (Dwarf_P_Die) DW_DLV_BADADDR);
+    }
+    new_die->di_parent = NULL;
+    new_die->di_left = NULL;
+    new_die->di_right = NULL;
+    new_die->di_child = NULL;
+    new_die->di_last_child = NULL;
+    new_die->di_tag = tag;
+    new_die->di_dbg = dbg;
+    new_die->di_marker = 0;
+    ret_die =
+        dwarf_die_link(new_die, parent, child, left, right, error);
+    return ret_die;
+}
+
+/*  This function links up a die to specified neighbors
+    parent,child,left,right: specify neighbors of the new die. Only
+    one of these may be non-null */
+Dwarf_P_Die
+dwarf_die_link(Dwarf_P_Die new_die,
+    Dwarf_P_Die parent,
+    Dwarf_P_Die child,
+    Dwarf_P_Die left, Dwarf_P_Die right, Dwarf_Error * error)
+{
+    /* Count the # of non null neighbors. */
+    int n_nulls = 0;
+
+    if (parent != NULL) {
+        n_nulls++;
+        if (new_die->di_parent != NULL) {
+            DWARF_P_DBG_ERROR(NULL, DW_DLE_LINK_LOOP,
+                (Dwarf_P_Die) DW_DLV_BADADDR);
+        }
+        new_die->di_parent = parent;
+        if (parent->di_child) {
+
+            /*  di_last_child identifies the last sibling, the
+                die we want to attach new_die to. */
+            /*  ASSERT: if di_child is set so is di_last_child. */
+            Dwarf_P_Die former_lastchild = parent->di_last_child;
+            parent->di_last_child = new_die;
+            /* Attach to  the new die to end of the sibling list. */
+            former_lastchild->di_right = new_die;
+            new_die->di_left = former_lastchild;
+        } else {
+            parent->di_child = new_die;
+            parent->di_last_child = new_die;
+        }
+    }
+    if (child != NULL) {
+        n_nulls++;
+        new_die->di_child = child;
+        new_die->di_last_child = child;
+        if (child->di_parent) {
+            DWARF_P_DBG_ERROR(NULL, DW_DLE_PARENT_EXISTS,
+                (Dwarf_P_Die) DW_DLV_BADADDR);
+        } else {
+            child->di_parent = new_die;
+        }
+    }
+    if (left != NULL) {
+        n_nulls++;
+        new_die->di_left = left;
+        if (left->di_right) {
+            /*  There's already a right sibling of left,
+                insert the new die in the list. */
+            new_die->di_right = left->di_right;
+            left->di_right->di_left = new_die;
+        }
+        left->di_right = new_die;
+        if (new_die->di_parent) {
+            DWARF_P_DBG_ERROR(NULL, DW_DLE_PARENT_EXISTS,
+                (Dwarf_P_Die) DW_DLV_BADADDR);
+        } else {
+            new_die->di_parent = left->di_parent;
+        }
+    }
+    if (right != NULL) {
+        n_nulls++;
+        new_die->di_right = right;
+        if (right->di_left) {
+            /*  There is already a left sibling of the right die,
+                insert the new die in the list.  */
+            new_die->di_left = right->di_left;
+            right->di_left->di_right = new_die;
+        }
+        right->di_left = new_die;
+        if (new_die->di_parent) {
+            DWARF_P_DBG_ERROR(NULL, DW_DLE_PARENT_EXISTS,
+                (Dwarf_P_Die) DW_DLV_BADADDR);
+        } else {
+            new_die->di_parent = right->di_parent;
+        }
+    }
+    if (n_nulls > 1) {
+        /* Multiple neighbors! error! */
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_EXTRA_NEIGHBORS,
+            (Dwarf_P_Die) DW_DLV_BADADDR);
+    }
+    return new_die;
+
+}
+
+Dwarf_Unsigned
+dwarf_add_die_marker(Dwarf_P_Debug dbg,
+    Dwarf_P_Die die,
+    Dwarf_Unsigned marker,
+    Dwarf_Error * error)
+{
+    if (die == NULL) {
+        DWARF_P_DBG_ERROR(dbg, DW_DLE_DIE_NULL, DW_DLV_NOCOUNT);
+    }
+    die->di_marker = marker;
+    return 0;
+}
+
+
+Dwarf_Unsigned
+dwarf_get_die_marker(Dwarf_P_Debug dbg,
+    Dwarf_P_Die die,
+    Dwarf_Unsigned * marker,
+    Dwarf_Error * error)
+{
+    if (die == NULL) {
+        DWARF_P_DBG_ERROR(dbg, DW_DLE_DIE_NULL, DW_DLV_NOCOUNT);
+    }
+    *marker = die->di_marker;
+    return 0;
+}
+
+
+/*----------------------------------------------------------------------------
+    This function adds a die to dbg struct. It should be called using
+    the root of all the dies.
+-----------------------------------------------------------------------------*/
+Dwarf_Unsigned
+dwarf_add_die_to_debug(Dwarf_P_Debug dbg,
+    Dwarf_P_Die first_die, Dwarf_Error * error)
+{
+    if (first_die == NULL) {
+        DWARF_P_DBG_ERROR(dbg, DW_DLE_DIE_NULL, DW_DLV_NOCOUNT);
+    }
+    if (first_die->di_tag != DW_TAG_compile_unit) {
+        DWARF_P_DBG_ERROR(dbg, DW_DLE_WRONG_TAG, DW_DLV_NOCOUNT);
+    }
+    dbg->de_dies = first_die;
+    return 0;
+}
+
+int
+_dwarf_pro_add_AT_stmt_list(Dwarf_P_Debug dbg,
+    Dwarf_P_Die first_die, Dwarf_Error * error)
+{
+    Dwarf_P_Attribute new_attr;
+    int uwordb_size = dbg->de_offset_size;
+
+    /* Add AT_stmt_list attribute */
+    new_attr = (Dwarf_P_Attribute)
+        _dwarf_p_get_alloc(dbg, sizeof(struct Dwarf_P_Attribute_s));
+    if (new_attr == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_ATTR_ALLOC, DW_DLV_NOCOUNT);
+    }
+
+    new_attr->ar_attribute = DW_AT_stmt_list;
+    new_attr->ar_attribute_form = dbg->de_ar_data_attribute_form;
+    new_attr->ar_rel_type = dbg->de_offset_reloc;
+
+    new_attr->ar_nbytes = uwordb_size;
+    new_attr->ar_next = NULL;
+    new_attr->ar_reloc_len = uwordb_size;
+    new_attr->ar_data = (char *)
+        _dwarf_p_get_alloc(dbg, uwordb_size);
+    if (new_attr->ar_data == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_ADDR_ALLOC, DW_DLV_NOCOUNT);
+    }
+    {
+        Dwarf_Unsigned du = 0;
+
+        WRITE_UNALIGNED(dbg, (void *) new_attr->ar_data,
+            (const void *) &du, sizeof(du), uwordb_size);
+    }
+
+    _dwarf_pro_add_at_to_die(first_die, new_attr);
+    return 0;
+}
+
+/*-----------------------------------------------------------------------------
+    Add AT_name attribute to die
+------------------------------------------------------------------------------*/
+Dwarf_P_Attribute
+dwarf_add_AT_name(Dwarf_P_Die die, char *name, Dwarf_Error * error)
+{
+    Dwarf_P_Attribute new_attr;
+
+    if (die == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_DIE_NULL,
+            (Dwarf_P_Attribute) DW_DLV_BADADDR);
+    }
+    new_attr = (Dwarf_P_Attribute)
+        _dwarf_p_get_alloc(die->di_dbg,sizeof(struct Dwarf_P_Attribute_s));
+    if (new_attr == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_ATTR_ALLOC,
+            (Dwarf_P_Attribute) DW_DLV_BADADDR);
+    }
+
+    /* fill in the information */
+    new_attr->ar_attribute = DW_AT_name;
+    /* assume that form is string, no debug_str yet */
+    new_attr->ar_attribute_form = DW_FORM_string;
+    new_attr->ar_nbytes = strlen(name) + 1;
+    new_attr->ar_next = NULL;
+    new_attr->ar_reloc_len = 0;
+    new_attr->ar_data = (char *)
+        _dwarf_p_get_alloc(die->di_dbg, strlen(name)+1);
+    if (new_attr->ar_data == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_STRING_ALLOC,
+            (Dwarf_P_Attribute) DW_DLV_BADADDR);
+    }
+    strcpy(new_attr->ar_data, name);
+
+    new_attr->ar_rel_type = R_MIPS_NONE;
+
+    /* add attribute to the die */
+    _dwarf_pro_add_at_to_die(die, new_attr);
+    return new_attr;
+}
+
+
+/*-----------------------------------------------------------------------------
+    Add AT_comp_dir attribute to die
+------------------------------------------------------------------------------*/
+Dwarf_P_Attribute
+dwarf_add_AT_comp_dir(Dwarf_P_Die ownerdie,
+    char *current_working_directory,
+    Dwarf_Error * error)
+{
+    Dwarf_P_Attribute new_attr;
+
+    if (ownerdie == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_DIE_NULL,
+            (Dwarf_P_Attribute) DW_DLV_BADADDR);
+    }
+    new_attr = (Dwarf_P_Attribute)
+        _dwarf_p_get_alloc(ownerdie->di_dbg,
+        sizeof(struct Dwarf_P_Attribute_s));
+    if (new_attr == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_ATTR_ALLOC,
+            (Dwarf_P_Attribute) DW_DLV_BADADDR);
+    }
+
+    /* fill in the information */
+    new_attr->ar_attribute = DW_AT_comp_dir;
+    /* assume that form is string, no debug_str yet */
+    new_attr->ar_attribute_form = DW_FORM_string;
+    new_attr->ar_nbytes = strlen(current_working_directory) + 1;
+    new_attr->ar_next = NULL;
+    new_attr->ar_reloc_len = 0;
+    new_attr->ar_data = (char *)
+        _dwarf_p_get_alloc(ownerdie->di_dbg,
+        strlen(current_working_directory)+1);
+    if (new_attr->ar_data == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_STRING_ALLOC,
+            (Dwarf_P_Attribute) DW_DLV_BADADDR);
+    }
+    strcpy(new_attr->ar_data, current_working_directory);
+
+    new_attr->ar_rel_type = R_MIPS_NONE;
+
+    /* add attribute to the die */
+    _dwarf_pro_add_at_to_die(ownerdie, new_attr);
+    return new_attr;
+}
+
+int
+_dwarf_pro_add_AT_fde(Dwarf_P_Debug dbg,
+    Dwarf_P_Die die,
+    Dwarf_Unsigned offset, Dwarf_Error * error)
+{
+    Dwarf_P_Attribute new_attr;
+    int uwordb_size = dbg->de_offset_size;
+
+    if (die == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_DIE_NULL, -1);
+    }
+    new_attr = (Dwarf_P_Attribute)
+        _dwarf_p_get_alloc(dbg,sizeof(struct Dwarf_P_Attribute_s));
+    if (new_attr == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_ATTR_ALLOC, -1);
+    }
+
+    /* fill in the information */
+    new_attr->ar_attribute = DW_AT_MIPS_fde;
+    new_attr->ar_attribute_form = dbg->de_ar_data_attribute_form;;
+    new_attr->ar_rel_type = dbg->de_offset_reloc;
+    new_attr->ar_nbytes = uwordb_size;
+    new_attr->ar_next = NULL;
+    new_attr->ar_reloc_len = uwordb_size;
+    new_attr->ar_data = (char *)
+        _dwarf_p_get_alloc(dbg, uwordb_size);
+    if (new_attr->ar_data == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_ADDR_ALLOC, DW_DLV_NOCOUNT);
+    }
+    {
+        Dwarf_Unsigned du = offset;
+
+        WRITE_UNALIGNED(dbg, (void *) new_attr->ar_data,
+            (const void *) &du, sizeof(du), uwordb_size);
+    }
+
+    _dwarf_pro_add_at_to_die(die, new_attr);
+
+    return 0;
+}
+
+int
+_dwarf_pro_add_AT_macro_info(Dwarf_P_Debug dbg,
+    Dwarf_P_Die die,
+    Dwarf_Unsigned offset, Dwarf_Error * error)
+{
+    Dwarf_P_Attribute new_attr;
+    int uwordb_size = dbg->de_offset_size;
+
+    if (die == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_DIE_NULL, -1);
+    }
+    new_attr = (Dwarf_P_Attribute)
+        _dwarf_p_get_alloc(dbg,sizeof(struct Dwarf_P_Attribute_s));
+    if (new_attr == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_ATTR_ALLOC, -1);
+    }
+
+    /* fill in the information */
+    new_attr->ar_attribute = DW_AT_macro_info;
+    new_attr->ar_attribute_form = dbg->de_ar_data_attribute_form;
+    new_attr->ar_rel_type = dbg->de_offset_reloc;
+
+    new_attr->ar_nbytes = uwordb_size;
+    new_attr->ar_next = NULL;
+    new_attr->ar_reloc_len = uwordb_size;
+    new_attr->ar_data = (char *)
+        _dwarf_p_get_alloc(dbg, uwordb_size);
+    if (new_attr->ar_data == NULL) {
+        DWARF_P_DBG_ERROR(NULL, DW_DLE_ADDR_ALLOC, DW_DLV_NOCOUNT);
+    }
+    {
+        Dwarf_Unsigned du = offset;
+
+        WRITE_UNALIGNED(dbg, (void *) new_attr->ar_data,
+            (const void *) &du, sizeof(du), uwordb_size);
+    }
+
+    _dwarf_pro_add_at_to_die(die, new_attr);
+
+    return 0;
+}
+
+
+/*  Updates the list of attributes on this Dwarf_P_Die
+*/
+void
+_dwarf_pro_add_at_to_die(Dwarf_P_Die die, Dwarf_P_Attribute attr)
+{
+    if (die->di_last_attr) {
+        /* Inserts new attr at the end */
+        die->di_last_attr->ar_next = attr;
+        die->di_last_attr = attr;
+        die->di_n_attr++;
+    } else {
+        die->di_n_attr = 1;
+        die->di_attrs = die->di_last_attr = attr;
+    }
+}