Open64: osprey/cygnus/bfd/elf32-pj.c Source File

00001 /* picoJava specific support for 32-bit ELF
00002    Copyright 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
00003    Contributed by Steve Chamberlan of Transmeta (sac@pobox.com).
00004 
00005 This file is part of BFD, the Binary File Descriptor library.
00006 
00007 This program is free software; you can redistribute it and/or modify
00008 it under the terms of the GNU General Public License as published by
00009 the Free Software Foundation; either version 2 of the License, or
00010 (at your option) any later version.
00011 
00012 This program is distributed in the hope that it will be useful,
00013 but WITHOUT ANY WARRANTY; without even the implied warranty of
00014 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00015 GNU General Public License for more details.
00016 
00017 You should have received a copy of the GNU General Public License
00018 along with this program; if not, write to the Free Software
00019 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
00020 
00021 #include "bfd.h"
00022 #include "sysdep.h"
00023 #include "bfdlink.h"
00024 #include "libbfd.h"
00025 #include "elf-bfd.h"
00026 #include "elf/pj.h"
00027 
00028 static bfd_reloc_status_type pj_elf_reloc
00029   PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
00030 static reloc_howto_type *pj_elf_reloc_type_lookup
00031   PARAMS ((bfd *, bfd_reloc_code_real_type));
00032 static void pj_elf_info_to_howto
00033   PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
00034 static void pj_elf_final_write_processing
00035   PARAMS ((bfd *, bfd_boolean));
00036 
00037 static reloc_howto_type pj_elf_howto_table[] =
00038 {
00039   /* No relocation.  */
00040   HOWTO (R_PJ_NONE,   /* type */
00041    0,     /* rightshift */
00042    0,     /* size (0 = byte, 1 = short, 2 = long) */
00043    0,     /* bitsize */
00044    FALSE,     /* pc_relative */
00045    0,     /* bitpos */
00046    complain_overflow_dont, /* complain_on_overflow */
00047    pj_elf_reloc,    /* special_function */
00048    "R_PJ_NONE",   /* name */
00049    FALSE,     /* partial_inplace */
00050    0,     /* src_mask */
00051    0,     /* dst_mask */
00052    FALSE),    /* pcrel_offset */
00053 
00054   /* 32 bit absolute relocation.  Setting partial_inplace to TRUE and
00055      src_mask to a non-zero value is similar to the COFF toolchain.  */
00056   HOWTO (R_PJ_DATA_DIR32,   /* type */
00057    0,     /* rightshift */
00058    2,     /* size (0 = byte, 1 = short, 2 = long) */
00059    32,      /* bitsize */
00060    FALSE,     /* pc_relative */
00061    0,     /* bitpos */
00062    complain_overflow_bitfield, /* complain_on_overflow */
00063    pj_elf_reloc,    /* special_function */
00064    "R_PJ_DIR32",    /* name */
00065    TRUE,      /* partial_inplace */
00066    0xffffffff,    /* src_mask */
00067    0xffffffff,    /* dst_mask */
00068    FALSE),    /* pcrel_offset */
00069 
00070   /* 32 bit PC relative relocation.  */
00071   HOWTO (R_PJ_CODE_REL32,   /* type */
00072    0,     /* rightshift */
00073    2,     /* size (0 = byte, 1 = short, 2 = long) */
00074    32,      /* bitsize */
00075    TRUE,      /* pc_relative */
00076    0,     /* bitpos */
00077    complain_overflow_signed, /* complain_on_overflow */
00078    pj_elf_reloc,    /* special_function */
00079    "R_PJ_REL32",    /* name */
00080    FALSE,     /* partial_inplace */
00081    0,     /* src_mask */
00082    0xffffffff,    /* dst_mask */
00083    TRUE),     /* pcrel_offset */
00084 
00085 /* 16 bit PC relative relocation.  */
00086   HOWTO (R_PJ_CODE_REL16,   /* type */
00087    0,     /* rightshift */
00088    1,     /* size (0 = byte, 1 = short, 2 = long) */
00089    16,      /* bitsize */
00090    TRUE,      /* pc_relative */
00091    0,     /* bitpos */
00092    complain_overflow_signed, /* complain_on_overf6w */
00093    pj_elf_reloc,    /* special_function */
00094    "R_PJ_REL16",    /* name */
00095    FALSE,     /* partial_inplace */
00096    0xffff,    /* src_mask */
00097    0xffff,    /* dst_mask */
00098    TRUE),     /* pcrel_offset */
00099   EMPTY_HOWTO (4),
00100   EMPTY_HOWTO (5),
00101   HOWTO (R_PJ_CODE_DIR32, /* type */
00102    0,     /* rightshift */
00103    2,     /* size (0 = byte, 1 = short, 2 = long) */
00104    32,      /* bitsize */
00105    FALSE,     /* pc_relative */
00106    0,     /* bitpos */
00107    complain_overflow_bitfield, /* complain_on_overflow */
00108    pj_elf_reloc,    /* special_function */
00109    "R_PJ_CODE_DIR32", /* name */
00110    TRUE,      /* partial_inplace */
00111    0xffffffff,    /* src_mask */
00112    0xffffffff,    /* dst_mask */
00113    FALSE),    /* pcrel_offset */
00114 
00115   EMPTY_HOWTO (7),
00116   EMPTY_HOWTO (8),
00117   EMPTY_HOWTO (9),
00118   EMPTY_HOWTO (10),
00119   EMPTY_HOWTO (11),
00120   EMPTY_HOWTO (12),
00121 
00122   HOWTO (R_PJ_CODE_LO16,  /* type */
00123    0,     /* rightshift */
00124    1,     /* size (0 = byte, 1 = short, 2 = long) */
00125    16,      /* bitsize */
00126    FALSE,     /* pc_relative */
00127    0,     /* bitpos */
00128    complain_overflow_unsigned, /* complain_on_overflow */
00129    pj_elf_reloc,    /* special_function */
00130    "R_PJ_LO16",   /* name */
00131    FALSE,     /* partial_inplace */
00132    0xffff,    /* src_mask */
00133    0xffff,    /* dst_mask */
00134    TRUE),     /* pcrel_offset */
00135 
00136     HOWTO (R_PJ_CODE_HI16,  /* type */
00137    16,      /* rightshift */
00138    1,     /* size (0 = byte, 1 = short, 2 = long) */
00139    16,      /* bitsize */
00140    FALSE,     /* pc_relative */
00141    0,     /* bitpos */
00142    complain_overflow_unsigned, /* complain_on_overflow */
00143    pj_elf_reloc,    /* special_function */
00144    "R_PJ_HI16",   /* name */
00145    FALSE,     /* partial_inplace */
00146    0xffff,    /* src_mask */
00147    0xffff,    /* dst_mask */
00148    TRUE),     /* pcrel_offset */
00149 
00150   /* GNU extension to record C++ vtable hierarchy */
00151   HOWTO (R_PJ_GNU_VTINHERIT,    /* type */
00152          0,                     /* rightshift */
00153          2,                     /* size (0 = byte, 1 = short, 2 = long) */
00154          0,                     /* bitsize */
00155          FALSE,                 /* pc_relative */
00156          0,                     /* bitpos */
00157          complain_overflow_dont, /* complain_on_overflow */
00158          NULL,                  /* special_function */
00159          "R_PJ_GNU_VTINHERIT",  /* name */
00160          FALSE,                 /* partial_inplace */
00161          0,                     /* src_mask */
00162          0,                     /* dst_mask */
00163          FALSE),                /* pcrel_offset */
00164 
00165   /* GNU extension to record C++ vtable member usage */
00166   HOWTO (R_PJ_GNU_VTENTRY,     /* type */
00167          0,                     /* rightshift */
00168          2,                     /* size (0 = byte, 1 = short, 2 = long) */
00169          0,                     /* bitsize */
00170          FALSE,                 /* pc_relative */
00171          0,                     /* bitpos */
00172          complain_overflow_dont, /* complain_on_overflow */
00173          _bfd_elf_rel_vtable_reloc_fn,  /* special_function */
00174          "R_PJ_GNU_VTENTRY",   /* name */
00175          FALSE,                 /* partial_inplace */
00176          0,                     /* src_mask */
00177          0,                     /* dst_mask */
00178          FALSE),                /* pcrel_offset */
00179 };
00180 
00181 /* This function is used for normal relocs.  This is like the COFF
00182    function, and is almost certainly incorrect for other ELF targets.  */
00183 
00184 static bfd_reloc_status_type
00185 pj_elf_reloc (abfd, reloc_entry, symbol_in, data, input_section, output_bfd,
00186     error_message)
00187      bfd *abfd;
00188      arelent *reloc_entry;
00189      asymbol *symbol_in;
00190      PTR data;
00191      asection *input_section;
00192      bfd *output_bfd;
00193      char **error_message ATTRIBUTE_UNUSED;
00194 {
00195   unsigned long insn;
00196   bfd_vma sym_value;
00197   enum elf_pj_reloc_type r_type;
00198   bfd_vma addr = reloc_entry->address;
00199   bfd_byte *hit_data = addr + (bfd_byte *) data;
00200 
00201   r_type = (enum elf_pj_reloc_type) reloc_entry->howto->type;
00202 
00203   if (output_bfd != NULL)
00204     {
00205       /* Partial linking--do nothing.  */
00206       reloc_entry->address += input_section->output_offset;
00207       return bfd_reloc_ok;
00208     }
00209 
00210   if (symbol_in != NULL
00211       && bfd_is_und_section (symbol_in->section))
00212     return bfd_reloc_undefined;
00213 
00214   if (bfd_is_com_section (symbol_in->section))
00215     sym_value = 0;
00216   else
00217     sym_value = (symbol_in->value +
00218      symbol_in->section->output_section->vma +
00219      symbol_in->section->output_offset);
00220 
00221   switch (r_type)
00222     {
00223     case R_PJ_DATA_DIR32:
00224       insn = bfd_get_32 (abfd, hit_data);
00225       insn += sym_value + reloc_entry->addend;
00226       bfd_put_32 (abfd, (bfd_vma) insn, hit_data);
00227       break;
00228 
00229       /* Relocations in code are always bigendian, no matter what the
00230    data endianness is.  */
00231 
00232     case R_PJ_CODE_DIR32:
00233       insn = bfd_getb32 (hit_data);
00234       insn += sym_value + reloc_entry->addend;
00235       bfd_putb32 ((bfd_vma) insn, hit_data);
00236       break;
00237 
00238     case R_PJ_CODE_REL16:
00239       insn = bfd_getb16 (hit_data);
00240       insn += sym_value + reloc_entry->addend
00241         -  (input_section->output_section->vma
00242             + input_section->output_offset);
00243       bfd_putb16 ((bfd_vma) insn, hit_data);
00244       break;
00245     case R_PJ_CODE_LO16:
00246       insn = bfd_getb16 (hit_data);
00247       insn += sym_value + reloc_entry->addend;
00248       bfd_putb16 ((bfd_vma) insn, hit_data);
00249       break;
00250 
00251     case R_PJ_CODE_HI16:
00252       insn = bfd_getb16 (hit_data);
00253       insn += (sym_value + reloc_entry->addend) >> 16;
00254       bfd_putb16 ((bfd_vma) insn, hit_data);
00255       break;
00256 
00257     default:
00258       abort ();
00259       break;
00260     }
00261 
00262   return bfd_reloc_ok;
00263 }
00264 
00265 /* This structure is used to map BFD reloc codes to PJ ELF relocs.  */
00266 
00267 struct elf_reloc_map
00268 {
00269   bfd_reloc_code_real_type bfd_reloc_val;
00270   unsigned char elf_reloc_val;
00271 };
00272 
00273 /* An array mapping BFD reloc codes to PJ ELF relocs.  */
00274 
00275 static const struct elf_reloc_map pj_reloc_map[] =
00276 {
00277     { BFD_RELOC_NONE,     R_PJ_NONE          },
00278     { BFD_RELOC_32,     R_PJ_DATA_DIR32    },
00279     { BFD_RELOC_PJ_CODE_DIR16,  R_PJ_CODE_DIR16    },
00280     { BFD_RELOC_PJ_CODE_DIR32,  R_PJ_CODE_DIR32    },
00281     { BFD_RELOC_PJ_CODE_LO16,   R_PJ_CODE_LO16     },
00282     { BFD_RELOC_PJ_CODE_HI16,   R_PJ_CODE_HI16     },
00283     { BFD_RELOC_PJ_CODE_REL32,  R_PJ_CODE_REL32    },
00284     { BFD_RELOC_PJ_CODE_REL16,  R_PJ_CODE_REL16    },
00285     { BFD_RELOC_VTABLE_INHERIT, R_PJ_GNU_VTINHERIT },
00286     { BFD_RELOC_VTABLE_ENTRY,   R_PJ_GNU_VTENTRY   },
00287 };
00288 
00289 /* Given a BFD reloc code, return the howto structure for the
00290    corresponding PJ ELf reloc.  */
00291 
00292 static reloc_howto_type *
00293 pj_elf_reloc_type_lookup (abfd, code)
00294      bfd *abfd ATTRIBUTE_UNUSED;
00295      bfd_reloc_code_real_type code;
00296 {
00297   unsigned int i;
00298 
00299   for (i = 0; i < sizeof (pj_reloc_map) / sizeof (struct elf_reloc_map); i++)
00300     {
00301       if (pj_reloc_map[i].bfd_reloc_val == code)
00302   return &pj_elf_howto_table[(int) pj_reloc_map[i].elf_reloc_val];
00303     }
00304 
00305   return NULL;
00306 }
00307 
00308 /* Given an ELF reloc, fill in the howto field of a relent.  */
00309 
00310 static void
00311 pj_elf_info_to_howto (abfd, cache_ptr, dst)
00312      bfd *abfd ATTRIBUTE_UNUSED;
00313      arelent *cache_ptr;
00314      Elf_Internal_Rela *dst;
00315 {
00316   unsigned int r;
00317 
00318   r = ELF32_R_TYPE (dst->r_info);
00319 
00320   BFD_ASSERT (r < (unsigned int) R_PJ_max);
00321 
00322   cache_ptr->howto = &pj_elf_howto_table[r];
00323 }
00324 
00325 /* Take this moment to fill in the special picoJava bits in the
00326    e_flags field.  */
00327 
00328 static void
00329 pj_elf_final_write_processing (abfd, linker)
00330      bfd *abfd;
00331      bfd_boolean linker ATTRIBUTE_UNUSED;
00332 {
00333     elf_elfheader (abfd)->e_flags |= EF_PICOJAVA_ARCH;
00334     elf_elfheader (abfd)->e_flags |= EF_PICOJAVA_GNUCALLS;
00335 }
00336 
00337 #define TARGET_BIG_SYM    bfd_elf32_pj_vec
00338 #define TARGET_BIG_NAME   "elf32-pj"
00339 #define TARGET_LITTLE_SYM bfd_elf32_pjl_vec
00340 #define TARGET_LITTLE_NAME  "elf32-pjl"
00341 #define ELF_ARCH    bfd_arch_pj
00342 #define ELF_MACHINE_CODE  EM_PJ
00343 #define ELF_MACHINE_ALT1  EM_PJ_OLD
00344 #define ELF_MAXPAGESIZE   0x1000
00345 #define bfd_elf32_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
00346 #define bfd_elf32_bfd_reloc_type_lookup              pj_elf_reloc_type_lookup
00347 #define elf_backend_final_write_processing           pj_elf_final_write_processing
00348 #define elf_info_to_howto                pj_elf_info_to_howto
00349 #include "elf32-target.h"