mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-25 14:34:29 +00:00
334 lines
9.3 KiB
C++
334 lines
9.3 KiB
C++
// arm-reloc-property.cc -- ARM relocation property.
|
|
|
|
// Copyright (C) 2010-2018 Free Software Foundation, Inc.
|
|
// Written by Doug Kwan <dougkwan@google.com>.
|
|
|
|
// This file is part of gold.
|
|
|
|
// This program is free software; you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation; either version 3 of the License, or
|
|
// (at your option) any later version.
|
|
|
|
// This program is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License for more details.
|
|
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with this program; if not, write to the Free Software
|
|
// Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
|
|
// MA 02110-1301, USA.
|
|
|
|
#include "gold.h"
|
|
|
|
#include <cstdio>
|
|
#include <cstring>
|
|
#include <stack>
|
|
#include <string>
|
|
#include <vector>
|
|
|
|
#include "elfcpp.h"
|
|
#include "arm.h"
|
|
#include "arm-reloc-property.h"
|
|
|
|
namespace gold
|
|
{
|
|
|
|
// Arm_reloc_property::Tree_node methods.
|
|
|
|
// Parse an S-expression S and build a tree and return the root node.
|
|
// Caller is responsible for releasing tree after use.
|
|
|
|
Arm_reloc_property::Tree_node*
|
|
Arm_reloc_property::Tree_node::make_tree(const std::string& s)
|
|
{
|
|
std::stack<size_t> size_stack;
|
|
Tree_node_vector node_stack;
|
|
|
|
// strtok needs a non-const string pointer.
|
|
char* buffer = new char[s.size() + 1];
|
|
memcpy(buffer, s.data(), s.size());
|
|
buffer[s.size()] = '\0';
|
|
char* token = strtok(buffer, " ");
|
|
|
|
while (token != NULL)
|
|
{
|
|
if (strcmp(token, "(") == 0)
|
|
// Remember the node stack position for start of a new internal node.
|
|
size_stack.push(node_stack.size());
|
|
else if (strcmp(token, ")") == 0)
|
|
{
|
|
// Pop all tree nodes after the previous '(' and use them as
|
|
// children to build a new internal node. Push internal node back.
|
|
size_t current_size = node_stack.size();
|
|
size_t prev_size = size_stack.top();
|
|
size_stack.pop();
|
|
Tree_node* node =
|
|
new Tree_node(node_stack.begin() + prev_size,
|
|
node_stack.begin() + current_size);
|
|
node_stack.resize(prev_size);
|
|
node_stack.push_back(node);
|
|
}
|
|
else
|
|
// Just push a leaf node to node_stack.
|
|
node_stack.push_back(new Tree_node(token));
|
|
|
|
token = strtok(NULL, " ");
|
|
}
|
|
|
|
delete[] buffer;
|
|
|
|
// At this point, size_stack should be empty and node_stack should only
|
|
// contain the root node.
|
|
gold_assert(size_stack.empty() && node_stack.size() == 1);
|
|
return node_stack[0];
|
|
}
|
|
|
|
// Arm_reloc_property methods.
|
|
|
|
// Constructor.
|
|
|
|
Arm_reloc_property::Arm_reloc_property(
|
|
unsigned int code,
|
|
const char* name,
|
|
Reloc_type rtype,
|
|
bool is_deprecated,
|
|
Reloc_class rclass,
|
|
const std::string& operation,
|
|
bool is_implemented,
|
|
int group_index,
|
|
bool checks_overflow)
|
|
: code_(code), name_(name), reloc_type_(rtype), reloc_class_(rclass),
|
|
group_index_(group_index), size_(0), align_(1),
|
|
relative_address_base_(RAB_NONE), is_deprecated_(is_deprecated),
|
|
is_implemented_(is_implemented), checks_overflow_(checks_overflow),
|
|
uses_got_entry_(false), uses_got_origin_(false), uses_plt_entry_(false),
|
|
uses_thumb_bit_(false), uses_symbol_base_(false), uses_addend_(false),
|
|
uses_symbol_(false)
|
|
{
|
|
// Set size and alignment of static and dynamic relocations.
|
|
if (rtype == RT_STATIC)
|
|
{
|
|
switch (rclass)
|
|
{
|
|
case RC_DATA:
|
|
// Except for R_ARM_ABS16 and R_ARM_ABS8, all static data relocations
|
|
// have size 4. All static data relocations have alignment of 1.
|
|
if (code == elfcpp::R_ARM_ABS8)
|
|
this->size_ = 1;
|
|
else if (code == elfcpp::R_ARM_ABS16)
|
|
this->size_ = 2;
|
|
else
|
|
this->size_ = 4;
|
|
this->align_ = 1;
|
|
break;
|
|
case RC_MISC:
|
|
// R_ARM_V4BX should be treated as an ARM relocation. For all
|
|
// others, just use defaults.
|
|
if (code != elfcpp::R_ARM_V4BX)
|
|
break;
|
|
// Fall through.
|
|
case RC_ARM:
|
|
this->size_ = 4;
|
|
this->align_ = 4;
|
|
break;
|
|
case RC_THM16:
|
|
this->size_ = 2;
|
|
this->align_ = 2;
|
|
break;
|
|
case RC_THM32:
|
|
this->size_ = 4;
|
|
this->align_ = 2;
|
|
break;
|
|
default:
|
|
gold_unreachable();
|
|
}
|
|
}
|
|
else if (rtype == RT_DYNAMIC)
|
|
{
|
|
// With the exception of R_ARM_COPY, all dynamic relocations requires
|
|
// that the place being relocated is a word-aligned 32-bit object.
|
|
if (code != elfcpp::R_ARM_COPY)
|
|
{
|
|
this->size_ = 4;
|
|
this->align_ = 4;
|
|
}
|
|
}
|
|
|
|
// If no relocation operation is specified, we are done.
|
|
if (operation == "NONE")
|
|
return;
|
|
|
|
// Extract information from relocation operation.
|
|
Tree_node* root_node = Tree_node::make_tree(operation);
|
|
Tree_node* node = root_node;
|
|
|
|
// Check for an expression of the form XXX - YYY.
|
|
if (!node->is_leaf()
|
|
&& node->child(0)->is_leaf()
|
|
&& node->child(0)->name() == "-")
|
|
{
|
|
struct RAB_table_entry
|
|
{
|
|
Relative_address_base rab;
|
|
const char* name;
|
|
};
|
|
|
|
static const RAB_table_entry rab_table[] =
|
|
{
|
|
{ RAB_B_S, "( B S )" },
|
|
{ RAB_DELTA_B_S, "( DELTA_B ( S ) )" },
|
|
{ RAB_GOT_ORG, "GOT_ORG" },
|
|
{ RAB_P, "P" },
|
|
{ RAB_Pa, "Pa" },
|
|
{ RAB_TLS, "TLS" },
|
|
{ RAB_tp, "tp" }
|
|
};
|
|
|
|
static size_t rab_table_size = sizeof(rab_table) / sizeof(rab_table[0]);
|
|
const std::string rhs(node->child(2)->s_expression());
|
|
for (size_t i = 0; i < rab_table_size; ++i)
|
|
if (rhs == rab_table[i].name)
|
|
{
|
|
this->relative_address_base_ = rab_table[i].rab;
|
|
break;
|
|
}
|
|
|
|
gold_assert(this->relative_address_base_ != RAB_NONE);
|
|
if (this->relative_address_base_ == RAB_B_S)
|
|
this->uses_symbol_base_ = true;
|
|
node = node->child(1);
|
|
}
|
|
|
|
// Check for an expression of the form XXX | T.
|
|
if (!node->is_leaf()
|
|
&& node->child(0)->is_leaf()
|
|
&& node->child(0)->name() == "|")
|
|
{
|
|
gold_assert(node->number_of_children() == 3
|
|
&& node->child(2)->is_leaf()
|
|
&& node->child(2)->name() == "T");
|
|
this->uses_thumb_bit_ = true;
|
|
node = node->child(1);
|
|
}
|
|
|
|
// Check for an expression of the form XXX + A.
|
|
if (!node->is_leaf()
|
|
&& node->child(0)->is_leaf()
|
|
&& node->child(0)->name() == "+")
|
|
{
|
|
gold_assert(node->number_of_children() == 3
|
|
&& node->child(2)->is_leaf()
|
|
&& node->child(2)->name() == "A");
|
|
this->uses_addend_ = true;
|
|
node = node->child(1);
|
|
}
|
|
|
|
// Check for an expression of the form XXX(S).
|
|
if (!node->is_leaf() && node->child(0)->is_leaf())
|
|
{
|
|
gold_assert(node->number_of_children() == 2
|
|
&& node->child(1)->is_leaf()
|
|
&& node->child(1)->name() == "S");
|
|
const std::string func(node->child(0)->name());
|
|
if (func == "B")
|
|
this->uses_symbol_base_ = true;
|
|
else if (func == "GOT")
|
|
this->uses_got_entry_ = true;
|
|
else if (func == "PLT")
|
|
this->uses_plt_entry_ = true;
|
|
else if (func == "Module" || func == "DELTA_B")
|
|
// These are used in dynamic relocations.
|
|
;
|
|
else
|
|
gold_unreachable();
|
|
node = node->child(1);
|
|
}
|
|
|
|
gold_assert(node->is_leaf() && node->name() == "S");
|
|
this->uses_symbol_ = true;
|
|
|
|
delete root_node;
|
|
}
|
|
|
|
// Arm_reloc_property_table methods.
|
|
|
|
// Constructor. This processing informations in arm-reloc.def to
|
|
// initialize the table.
|
|
|
|
Arm_reloc_property_table::Arm_reloc_property_table()
|
|
{
|
|
// These appear in arm-reloc.def. Do not rename them.
|
|
Parse_expression A("A"), GOT_ORG("GOT_ORG"), NONE("NONE"), P("P"),
|
|
Pa("Pa"), S("S"), T("T"), TLS("TLS"), tp("tp");
|
|
const bool Y(true), N(false);
|
|
|
|
for (unsigned int i = 0; i < Property_table_size; ++i)
|
|
this->table_[i] = NULL;
|
|
|
|
#undef RD
|
|
#define RD(name, type, deprecated, class, operation, is_implemented, \
|
|
group_index, checks_oveflow) \
|
|
do \
|
|
{ \
|
|
unsigned int code = elfcpp::R_ARM_##name; \
|
|
gold_assert(code < Property_table_size); \
|
|
this->table_[code] = \
|
|
new Arm_reloc_property(elfcpp::R_ARM_##name, "R_ARM_" #name, \
|
|
Arm_reloc_property::RT_##type, deprecated, \
|
|
Arm_reloc_property::RC_##class, \
|
|
(operation).s_expression(), is_implemented, \
|
|
group_index, checks_oveflow); \
|
|
} \
|
|
while(0);
|
|
|
|
#include "arm-reloc.def"
|
|
#undef RD
|
|
}
|
|
|
|
// Return a string describing a relocation code that fails to get a
|
|
// relocation property in get_implemented_static_reloc_property().
|
|
|
|
std::string
|
|
Arm_reloc_property_table::reloc_name_in_error_message(unsigned int code)
|
|
{
|
|
gold_assert(code < Property_table_size);
|
|
|
|
const Arm_reloc_property* arp = this->table_[code];
|
|
|
|
if (arp == NULL)
|
|
{
|
|
char buffer[100];
|
|
sprintf(buffer, _("invalid reloc %u"), code);
|
|
return std::string(buffer);
|
|
}
|
|
|
|
// gold only implements static relocation codes.
|
|
Arm_reloc_property::Reloc_type reloc_type = arp->reloc_type();
|
|
gold_assert(reloc_type == Arm_reloc_property::RT_STATIC
|
|
|| !arp->is_implemented());
|
|
|
|
const char* prefix = NULL;
|
|
switch (reloc_type)
|
|
{
|
|
case Arm_reloc_property::RT_STATIC:
|
|
prefix = arp->is_implemented() ? _("reloc ") : _("unimplemented reloc ");
|
|
break;
|
|
case Arm_reloc_property::RT_DYNAMIC:
|
|
prefix = _("dynamic reloc ");
|
|
break;
|
|
case Arm_reloc_property::RT_PRIVATE:
|
|
prefix = _("private reloc ");
|
|
break;
|
|
case Arm_reloc_property::RT_OBSOLETE:
|
|
prefix = _("obsolete reloc ");
|
|
break;
|
|
default:
|
|
gold_unreachable();
|
|
}
|
|
return std::string(prefix) + arp->name();
|
|
}
|
|
|
|
} // End namespace gold.
|