contrib/elftoolchain/libelf/gelf_mips64el.c

   1 /*-
   2  * Copyright (c) 2018 John Baldwin
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  15  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  17  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  18  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  19  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  20  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  21  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  23  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  24  * SUCH DAMAGE.
  25  */
  26
  27 #include <gelf.h>
  28
  29 #include "_libelf.h"
  30
  31 ELFTC_VCSID("$Id$");
  32
  33 int
  34 _libelf_is_mips64el(Elf *e)
  35 {
  36
  37         return (e->e_kind == ELF_K_ELF && e->e_class == ELFCLASS64 &&
  38             e->e_u.e_elf.e_ehdr.e_ehdr64->e_machine == EM_MIPS &&
  39             e->e_u.e_elf.e_ehdr.e_ehdr64->e_ident[EI_DATA] == ELFDATA2LSB);
  40 }
  41
  42 /*
  43  * For MIPS64, the r_info field is actually stored as a 32-bit symbol
  44  * index (r_sym) followed by four single-byte fields (r_ssym, r_type3,
  45  * r_type2, and r_type).  The byte-swap for the little-endian case
  46  * jumbles this incorrectly so compensate.
  47  */
  48 Elf64_Xword
  49 _libelf_mips64el_r_info_tof(Elf64_Xword r_info)
  50 {
  51         Elf64_Xword new_info;
  52         uint8_t ssym, type3, type2, type;
  53
  54         ssym = r_info >> 24;
  55         type3 = r_info >> 16;
  56         type2 = r_info >> 8;
  57         type = r_info;
  58         new_info = r_info >> 32;
  59         new_info |= (Elf64_Xword)ssym << 32;
  60         new_info |= (Elf64_Xword)type3 << 40;
  61         new_info |= (Elf64_Xword)type2 << 48;
  62         new_info |= (Elf64_Xword)type << 56;
  63         return (new_info);
  64 }
  65
  66 Elf64_Xword
  67 _libelf_mips64el_r_info_tom(Elf64_Xword r_info)
  68 {
  69         Elf64_Xword new_info;
  70         uint8_t ssym, type3, type2, type;
  71
  72         ssym = r_info >> 32;
  73         type3 = r_info >> 40;
  74         type2 = r_info >> 48;
  75         type = r_info >> 56;
  76         new_info = (r_info & 0xffffffff) << 32;
  77         new_info |= (Elf64_Xword)ssym << 24;
  78         new_info |= (Elf64_Xword)type3 << 16;
  79         new_info |= (Elf64_Xword)type2 << 8;
  80         new_info |= (Elf64_Xword)type;
  81         return (new_info);
  82 }