bfd/coff-bfd.c

   1 /* BFD COFF interfaces used outside of BFD.
   2    Copyright (C) 1990-2024 Free Software Foundation, Inc.
   3    Written by Cygnus Support.
   4
   5    This file is part of BFD, the Binary File Descriptor library.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  20    MA 02110-1301, USA.  */
  21
  22 #include "sysdep.h"
  23 #include "bfd.h"
  24 #include "libbfd.h"
  25 #include "coff/internal.h"
  26 #include "libcoff.h"
  27
  28 /* Return the COFF syment for a symbol.  */
  29
  30 bool
  31 bfd_coff_get_syment (bfd *abfd,
  32                      asymbol *symbol,
  33                      struct internal_syment *psyment)
  34 {
  35   coff_symbol_type *csym;
  36
  37   csym = coff_symbol_from (symbol);
  38   if (csym == NULL || csym->native == NULL
  39       || ! csym->native->is_sym)
  40     {
  41       bfd_set_error (bfd_error_invalid_operation);
  42       return false;
  43     }
  44
  45   *psyment = csym->native->u.syment;
  46
  47   if (csym->native->fix_value)
  48     {
  49       psyment->n_value =
  50         ((psyment->n_value - (uintptr_t) obj_raw_syments (abfd))
  51          / sizeof (combined_entry_type));
  52       csym->native->fix_value = 0;
  53     }
  54
  55   /* FIXME: We should handle fix_line here.  */
  56
  57   return true;
  58 }
  59
  60 /* Return the COFF auxent for a symbol.  */
  61
  62 bool
  63 bfd_coff_get_auxent (bfd *abfd,
  64                      asymbol *symbol,
  65                      int indx,
  66                      union internal_auxent *pauxent)
  67 {
  68   coff_symbol_type *csym;
  69   combined_entry_type *ent;
  70
  71   csym = coff_symbol_from (symbol);
  72
  73   if (csym == NULL
  74       || csym->native == NULL
  75       || ! csym->native->is_sym
  76       || indx >= csym->native->u.syment.n_numaux)
  77     {
  78       bfd_set_error (bfd_error_invalid_operation);
  79       return false;
  80     }
  81
  82   ent = csym->native + indx + 1;
  83
  84   BFD_ASSERT (! ent->is_sym);
  85   *pauxent = ent->u.auxent;
  86
  87   if (ent->fix_tag)
  88     {
  89       pauxent->x_sym.x_tagndx.u32 =
  90         ((combined_entry_type *) pauxent->x_sym.x_tagndx.p
  91          - obj_raw_syments (abfd));
  92       ent->fix_tag = 0;
  93     }
  94
  95   if (ent->fix_end)
  96     {
  97       pauxent->x_sym.x_fcnary.x_fcn.x_endndx.u32 =
  98         ((combined_entry_type *) pauxent->x_sym.x_fcnary.x_fcn.x_endndx.p
  99          - obj_raw_syments (abfd));
 100       ent->fix_end = 0;
 101     }
 102
 103   if (ent->fix_scnlen)
 104     {
 105       pauxent->x_csect.x_scnlen.u64 =
 106         ((combined_entry_type *) pauxent->x_csect.x_scnlen.p
 107          - obj_raw_syments (abfd));
 108       ent->fix_scnlen = 0;
 109     }
 110
 111   return true;
 112 }