external/bsd/elftoolchain/dist/libdwarf/dwarf_pro_die.c

   1 /*      $NetBSD: dwarf_pro_die.c,v 1.2 2014/03/09 16:58:04 christos Exp $       */
   2
   3 /*-
   4  * Copyright (c) 2009 Kai Wang
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  */
  28
  29 #include "_libdwarf.h"
  30
  31 __RCSID("$NetBSD: dwarf_pro_die.c,v 1.2 2014/03/09 16:58:04 christos Exp $");
  32 ELFTC_VCSID("Id: dwarf_pro_die.c 2074 2011-10-27 03:34:33Z jkoshy ");
  33
  34 Dwarf_Unsigned
  35 dwarf_add_die_to_debug(Dwarf_P_Debug dbg, Dwarf_P_Die first_die,
  36     Dwarf_Error *error)
  37 {
  38
  39         if (dbg == NULL || first_die == NULL) {
  40                 DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
  41                 return (DW_DLV_NOCOUNT);
  42         }
  43
  44         dbg->dbgp_root_die = first_die;
  45
  46         return (DW_DLV_OK);
  47 }
  48
  49 Dwarf_P_Die
  50 dwarf_new_die(Dwarf_P_Debug dbg, Dwarf_Tag new_tag,
  51     Dwarf_P_Die parent, Dwarf_P_Die child, Dwarf_P_Die left_sibling,
  52     Dwarf_P_Die right_sibling, Dwarf_Error *error)
  53 {
  54         Dwarf_P_Die die;
  55         int count;
  56
  57         if (dbg == NULL) {
  58                 DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
  59                 return (DW_DLV_BADADDR);
  60         }
  61
  62         count = _dwarf_die_count_links(parent, child, left_sibling,
  63             right_sibling);
  64
  65         if (count > 1) {
  66                 DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
  67                 return (DW_DLV_BADADDR);
  68         }
  69
  70         if (_dwarf_die_alloc(dbg, &die, error) != DW_DLE_NONE)
  71                 return (DW_DLV_BADADDR);
  72
  73         die->die_dbg = dbg;
  74         die->die_tag = new_tag;
  75
  76         STAILQ_INSERT_TAIL(&dbg->dbgp_dielist, die, die_pro_next);
  77
  78         if (count == 0)
  79                 return (die);
  80
  81         _dwarf_die_link(die, parent, child, left_sibling, right_sibling);
  82
  83         return (die);
  84 }
  85
  86 Dwarf_P_Die
  87 dwarf_die_link(Dwarf_P_Die die, Dwarf_P_Die parent,
  88     Dwarf_P_Die child, Dwarf_P_Die left_sibling, Dwarf_P_Die right_sibling,
  89     Dwarf_Error *error)
  90 {
  91         Dwarf_Debug dbg;
  92         int count;
  93
  94
  95         if (die == NULL) {
  96                 DWARF_SET_ERROR(NULL, error, DW_DLE_ARGUMENT);
  97                 return (DW_DLV_BADADDR);
  98         }
  99
 100         dbg = die->die_dbg;
 101         count = _dwarf_die_count_links(parent, child, left_sibling,
 102             right_sibling);
 103
 104         if (count > 1) {
 105                 DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
 106                 return (DW_DLV_BADADDR);
 107         } else if (count == 0)
 108                 return (die);
 109
 110         _dwarf_die_link(die, parent, child, left_sibling, right_sibling);
 111
 112         return (die);
 113 }