libdw/dwarf_formref.c

   1 /* Return reference offset represented by attribute.
   2    Copyright (C) 2003, 2005 Red Hat, Inc.
   3    Written by Ulrich Drepper <drepper@redhat.com>, 2003.
   4
   5    This program is Open Source software; you can redistribute it and/or
   6    modify it under the terms of the Open Software License version 1.0 as
   7    published by the Open Source Initiative.
   8
   9    You should have received a copy of the Open Software License along
  10    with this program; if not, you may obtain a copy of the Open Software
  11    License version 1.0 from http://www.opensource.org/licenses/osl.php or
  12    by writing the Open Source Initiative c/o Lawrence Rosen, Esq.,
  13    3001 King Ranch Road, Ukiah, CA 95482.   */
  14
  15 #ifdef HAVE_CONFIG_H
  16 # include <config.h>
  17 #endif
  18
  19 #include <dwarf.h>
  20 #include "libdwP.h"
  21
  22
  23 int
  24 dwarf_formref (attr, return_offset)
  25      Dwarf_Attribute *attr;
  26      Dwarf_Off *return_offset;
  27 {
  28   if (attr == NULL)
  29     return -1;
  30
  31   const unsigned char *datap;
  32
  33   switch (attr->form)
  34     {
  35     case DW_FORM_ref1:
  36       *return_offset = *attr->valp;
  37       break;
  38
  39     case DW_FORM_ref2:
  40       *return_offset = read_2ubyte_unaligned (attr->cu->dbg, attr->valp);
  41       break;
  42
  43     case DW_FORM_ref4:
  44       *return_offset = read_4ubyte_unaligned (attr->cu->dbg, attr->valp);
  45       break;
  46
  47     case DW_FORM_ref8:
  48       *return_offset = read_8ubyte_unaligned (attr->cu->dbg, attr->valp);
  49       break;
  50
  51     case DW_FORM_ref_udata:
  52       datap = attr->valp;
  53       get_uleb128 (*return_offset, datap);
  54       break;
  55
  56     case DW_FORM_ref_addr:
  57       __libdw_seterrno (DWARF_E_INVALID_REFERENCE);
  58       return -1;
  59
  60     default:
  61       __libdw_seterrno (DWARF_E_NO_REFERENCE);
  62       return -1;
  63     }
  64
  65   return 0;
  66 }
  67 INTDEF(dwarf_formref)