125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Helper functions for form handling.
225b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Copyright (C) 2003-2009 Red Hat, Inc.
325b3c049e70834cf33790a28643ab058b507b35cBen Cheng   This file is part of Red Hat elfutils.
425b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Written by Ulrich Drepper <drepper@redhat.com>, 2003.
525b3c049e70834cf33790a28643ab058b507b35cBen Cheng
625b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Red Hat elfutils is free software; you can redistribute it and/or modify
725b3c049e70834cf33790a28643ab058b507b35cBen Cheng   it under the terms of the GNU General Public License as published by the
825b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Free Software Foundation; version 2 of the License.
925b3c049e70834cf33790a28643ab058b507b35cBen Cheng
1025b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Red Hat elfutils is distributed in the hope that it will be useful, but
1125b3c049e70834cf33790a28643ab058b507b35cBen Cheng   WITHOUT ANY WARRANTY; without even the implied warranty of
1225b3c049e70834cf33790a28643ab058b507b35cBen Cheng   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
1325b3c049e70834cf33790a28643ab058b507b35cBen Cheng   General Public License for more details.
1425b3c049e70834cf33790a28643ab058b507b35cBen Cheng
1525b3c049e70834cf33790a28643ab058b507b35cBen Cheng   You should have received a copy of the GNU General Public License along
1625b3c049e70834cf33790a28643ab058b507b35cBen Cheng   with Red Hat elfutils; if not, write to the Free Software Foundation,
1725b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA.
1825b3c049e70834cf33790a28643ab058b507b35cBen Cheng
1925b3c049e70834cf33790a28643ab058b507b35cBen Cheng   In addition, as a special exception, Red Hat, Inc. gives You the
2025b3c049e70834cf33790a28643ab058b507b35cBen Cheng   additional right to link the code of Red Hat elfutils with code licensed
2125b3c049e70834cf33790a28643ab058b507b35cBen Cheng   under any Open Source Initiative certified open source license
2225b3c049e70834cf33790a28643ab058b507b35cBen Cheng   (http://www.opensource.org/licenses/index.php) which requires the
2325b3c049e70834cf33790a28643ab058b507b35cBen Cheng   distribution of source code with any binary distribution and to
2425b3c049e70834cf33790a28643ab058b507b35cBen Cheng   distribute linked combinations of the two.  Non-GPL Code permitted under
2525b3c049e70834cf33790a28643ab058b507b35cBen Cheng   this exception must only link to the code of Red Hat elfutils through
2625b3c049e70834cf33790a28643ab058b507b35cBen Cheng   those well defined interfaces identified in the file named EXCEPTION
2725b3c049e70834cf33790a28643ab058b507b35cBen Cheng   found in the source code files (the "Approved Interfaces").  The files
2825b3c049e70834cf33790a28643ab058b507b35cBen Cheng   of Non-GPL Code may instantiate templates or use macros or inline
2925b3c049e70834cf33790a28643ab058b507b35cBen Cheng   functions from the Approved Interfaces without causing the resulting
3025b3c049e70834cf33790a28643ab058b507b35cBen Cheng   work to be covered by the GNU General Public License.  Only Red Hat,
3125b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Inc. may make changes or additions to the list of Approved Interfaces.
3225b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Red Hat's grant of this exception is conditioned upon your not adding
3325b3c049e70834cf33790a28643ab058b507b35cBen Cheng   any new exceptions.  If you wish to add a new Approved Interface or
3425b3c049e70834cf33790a28643ab058b507b35cBen Cheng   exception, please contact Red Hat.  You must obey the GNU General Public
3525b3c049e70834cf33790a28643ab058b507b35cBen Cheng   License in all respects for all of the Red Hat elfutils code and other
3625b3c049e70834cf33790a28643ab058b507b35cBen Cheng   code used in conjunction with Red Hat elfutils except the Non-GPL Code
3725b3c049e70834cf33790a28643ab058b507b35cBen Cheng   covered by this exception.  If you modify this file, you may extend this
3825b3c049e70834cf33790a28643ab058b507b35cBen Cheng   exception to your version of the file, but you are not obligated to do
3925b3c049e70834cf33790a28643ab058b507b35cBen Cheng   so.  If you do not wish to provide this exception without modification,
4025b3c049e70834cf33790a28643ab058b507b35cBen Cheng   you must delete this exception statement from your version and license
4125b3c049e70834cf33790a28643ab058b507b35cBen Cheng   this file solely under the GPL without exception.
4225b3c049e70834cf33790a28643ab058b507b35cBen Cheng
4325b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Red Hat elfutils is an included package of the Open Invention Network.
4425b3c049e70834cf33790a28643ab058b507b35cBen Cheng   An included package of the Open Invention Network is a package for which
4525b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Open Invention Network licensees cross-license their patents.  No patent
4625b3c049e70834cf33790a28643ab058b507b35cBen Cheng   license is granted, either expressly or impliedly, by designation as an
4725b3c049e70834cf33790a28643ab058b507b35cBen Cheng   included package.  Should you wish to participate in the Open Invention
4825b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Network licensing program, please visit www.openinventionnetwork.com
4925b3c049e70834cf33790a28643ab058b507b35cBen Cheng   <http://www.openinventionnetwork.com>.  */
5025b3c049e70834cf33790a28643ab058b507b35cBen Cheng
5125b3c049e70834cf33790a28643ab058b507b35cBen Cheng#ifdef HAVE_CONFIG_H
5225b3c049e70834cf33790a28643ab058b507b35cBen Cheng# include <config.h>
5325b3c049e70834cf33790a28643ab058b507b35cBen Cheng#endif
5425b3c049e70834cf33790a28643ab058b507b35cBen Cheng
5525b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <dwarf.h>
5625b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <string.h>
5725b3c049e70834cf33790a28643ab058b507b35cBen Cheng
5825b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include "libdwP.h"
5925b3c049e70834cf33790a28643ab058b507b35cBen Cheng
6025b3c049e70834cf33790a28643ab058b507b35cBen Cheng
6125b3c049e70834cf33790a28643ab058b507b35cBen Chengsize_t
6225b3c049e70834cf33790a28643ab058b507b35cBen Chenginternal_function
6325b3c049e70834cf33790a28643ab058b507b35cBen Cheng__libdw_form_val_len (Dwarf *dbg, struct Dwarf_CU *cu, unsigned int form,
6425b3c049e70834cf33790a28643ab058b507b35cBen Cheng		      const unsigned char *valp)
6525b3c049e70834cf33790a28643ab058b507b35cBen Cheng{
6625b3c049e70834cf33790a28643ab058b507b35cBen Cheng  const unsigned char *saved;
6725b3c049e70834cf33790a28643ab058b507b35cBen Cheng  Dwarf_Word u128;
6825b3c049e70834cf33790a28643ab058b507b35cBen Cheng  size_t result;
6925b3c049e70834cf33790a28643ab058b507b35cBen Cheng
7025b3c049e70834cf33790a28643ab058b507b35cBen Cheng  switch (form)
7125b3c049e70834cf33790a28643ab058b507b35cBen Cheng    {
7225b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_addr:
7325b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = cu->address_size;
7425b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
7525b3c049e70834cf33790a28643ab058b507b35cBen Cheng
7625b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_ref_addr:
7725b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = cu->version == 2 ? cu->address_size : cu->offset_size;
7825b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
7925b3c049e70834cf33790a28643ab058b507b35cBen Cheng
8025b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_strp:
8125b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_sec_offset:
8225b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = cu->offset_size;
8325b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
8425b3c049e70834cf33790a28643ab058b507b35cBen Cheng
8525b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_block1:
8625b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = *valp + 1;
8725b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
8825b3c049e70834cf33790a28643ab058b507b35cBen Cheng
8925b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_block2:
9025b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = read_2ubyte_unaligned (dbg, valp) + 2;
9125b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
9225b3c049e70834cf33790a28643ab058b507b35cBen Cheng
9325b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_block4:
9425b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = read_4ubyte_unaligned (dbg, valp) + 4;
9525b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
9625b3c049e70834cf33790a28643ab058b507b35cBen Cheng
9725b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_block:
9825b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_exprloc:
9925b3c049e70834cf33790a28643ab058b507b35cBen Cheng      saved = valp;
10025b3c049e70834cf33790a28643ab058b507b35cBen Cheng      get_uleb128 (u128, valp);
10125b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = u128 + (valp - saved);
10225b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
10325b3c049e70834cf33790a28643ab058b507b35cBen Cheng
10425b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_flag_present:
10525b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = 0;
10625b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
10725b3c049e70834cf33790a28643ab058b507b35cBen Cheng
10825b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_ref1:
10925b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_data1:
11025b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_flag:
11125b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = 1;
11225b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
11325b3c049e70834cf33790a28643ab058b507b35cBen Cheng
11425b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_data2:
11525b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_ref2:
11625b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = 2;
11725b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
11825b3c049e70834cf33790a28643ab058b507b35cBen Cheng
11925b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_data4:
12025b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_ref4:
12125b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = 4;
12225b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
12325b3c049e70834cf33790a28643ab058b507b35cBen Cheng
12425b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_data8:
12525b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_ref8:
12625b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_ref_sig8:
12725b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = 8;
12825b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
12925b3c049e70834cf33790a28643ab058b507b35cBen Cheng
13025b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_string:
13125b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = strlen ((char *) valp) + 1;
13225b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
13325b3c049e70834cf33790a28643ab058b507b35cBen Cheng
13425b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_sdata:
13525b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_udata:
13625b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_ref_udata:
13725b3c049e70834cf33790a28643ab058b507b35cBen Cheng      saved = valp;
13825b3c049e70834cf33790a28643ab058b507b35cBen Cheng      get_uleb128 (u128, valp);
13925b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = valp - saved;
14025b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
14125b3c049e70834cf33790a28643ab058b507b35cBen Cheng
14225b3c049e70834cf33790a28643ab058b507b35cBen Cheng    case DW_FORM_indirect:
14325b3c049e70834cf33790a28643ab058b507b35cBen Cheng      saved = valp;
14425b3c049e70834cf33790a28643ab058b507b35cBen Cheng      get_uleb128 (u128, valp);
14525b3c049e70834cf33790a28643ab058b507b35cBen Cheng      // XXX Is this really correct?
14625b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = __libdw_form_val_len (dbg, cu, u128, valp);
14725b3c049e70834cf33790a28643ab058b507b35cBen Cheng      if (result != (size_t) -1)
14825b3c049e70834cf33790a28643ab058b507b35cBen Cheng	result += valp - saved;
14925b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
15025b3c049e70834cf33790a28643ab058b507b35cBen Cheng
15125b3c049e70834cf33790a28643ab058b507b35cBen Cheng    default:
15225b3c049e70834cf33790a28643ab058b507b35cBen Cheng      __libdw_seterrno (DWARF_E_INVALID_DWARF);
15325b3c049e70834cf33790a28643ab058b507b35cBen Cheng      result = (size_t) -1l;
15425b3c049e70834cf33790a28643ab058b507b35cBen Cheng      break;
15525b3c049e70834cf33790a28643ab058b507b35cBen Cheng    }
15625b3c049e70834cf33790a28643ab058b507b35cBen Cheng
15725b3c049e70834cf33790a28643ab058b507b35cBen Cheng  return result;
15825b3c049e70834cf33790a28643ab058b507b35cBen Cheng}
159