1999-05-03 09:29:11 +02:00
|
|
|
|
/* tc-sparc.c -- Assemble for the SPARC
|
2001-03-09 00:24:26 +01:00
|
|
|
|
Copyright 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
|
2008-08-13 01:39:31 +02:00
|
|
|
|
1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
|
2000-07-27 06:05:05 +02:00
|
|
|
|
Free Software Foundation, Inc.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
This file is part of GAS, the GNU Assembler.
|
|
|
|
|
|
|
|
|
|
GAS is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-07-03 13:01:12 +02:00
|
|
|
|
the Free Software Foundation; either version 3, or (at your option)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
GAS 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 GAS; see the file COPYING. If not, write
|
2005-05-05 11:13:19 +02:00
|
|
|
|
to the Free Software Foundation, 51 Franklin Street - Fifth Floor,
|
|
|
|
|
Boston, MA 02110-1301, USA. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#include "as.h"
|
2001-09-19 07:33:36 +02:00
|
|
|
|
#include "safe-ctype.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#include "subsegs.h"
|
|
|
|
|
|
|
|
|
|
#include "opcode/sparc.h"
|
2003-08-29 22:20:18 +02:00
|
|
|
|
#include "dw2gencfi.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
#include "elf/sparc.h"
|
2000-11-21 13:40:14 +01:00
|
|
|
|
#include "dwarf2dbg.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
|
2002-02-11 14:24:06 +01:00
|
|
|
|
/* Some ancient Sun C compilers would not take such hex constants as
|
|
|
|
|
unsigned, and would end up sign-extending them to form an offsetT,
|
|
|
|
|
so use these constants instead. */
|
|
|
|
|
#define U0xffffffff ((((unsigned long) 1 << 16) << 16) - 1)
|
|
|
|
|
#define U0x80000000 ((((unsigned long) 1 << 16) << 15))
|
|
|
|
|
|
2008-08-13 01:39:31 +02:00
|
|
|
|
static int sparc_ip (char *, const struct sparc_opcode **);
|
|
|
|
|
static int parse_keyword_arg (int (*) (const char *), char **, int *);
|
|
|
|
|
static int parse_const_expr_arg (char **, int *);
|
|
|
|
|
static int get_expression (char *);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Default architecture. */
|
|
|
|
|
/* ??? The default value should be V8, but sparclite support was added
|
|
|
|
|
by making it the default. GCC now passes -Asparclite, so maybe sometime in
|
|
|
|
|
the future we can set this to V8. */
|
|
|
|
|
#ifndef DEFAULT_ARCH
|
|
|
|
|
#define DEFAULT_ARCH "sparclite"
|
|
|
|
|
#endif
|
|
|
|
|
static char *default_arch = DEFAULT_ARCH;
|
|
|
|
|
|
|
|
|
|
/* Non-zero if the initial values of `max_architecture' and `sparc_arch_size'
|
|
|
|
|
have been set. */
|
|
|
|
|
static int default_init_p;
|
|
|
|
|
|
|
|
|
|
/* Current architecture. We don't bump up unless necessary. */
|
|
|
|
|
static enum sparc_opcode_arch_val current_architecture = SPARC_OPCODE_ARCH_V6;
|
|
|
|
|
|
|
|
|
|
/* The maximum architecture level we can bump up to.
|
|
|
|
|
In a 32 bit environment, don't allow bumping up to v9 by default.
|
|
|
|
|
The native assembler works this way. The user is required to pass
|
|
|
|
|
an explicit argument before we'll create v9 object files. However, if
|
|
|
|
|
we don't see any v9 insns, a v8plus object file is not created. */
|
|
|
|
|
static enum sparc_opcode_arch_val max_architecture;
|
|
|
|
|
|
|
|
|
|
/* Either 32 or 64, selects file format. */
|
|
|
|
|
static int sparc_arch_size;
|
|
|
|
|
/* Initial (default) value, recorded separately in case a user option
|
|
|
|
|
changes the value before md_show_usage is called. */
|
|
|
|
|
static int default_arch_size;
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* The currently selected v9 memory model. Currently only used for
|
|
|
|
|
ELF. */
|
|
|
|
|
static enum { MM_TSO, MM_PSO, MM_RMO } sparc_memory_model = MM_RMO;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
static int architecture_requested;
|
|
|
|
|
static int warn_on_bump;
|
|
|
|
|
|
|
|
|
|
/* If warn_on_bump and the needed architecture is higher than this
|
|
|
|
|
architecture, issue a warning. */
|
|
|
|
|
static enum sparc_opcode_arch_val warn_after_architecture;
|
|
|
|
|
|
1999-07-30 23:39:53 +02:00
|
|
|
|
/* Non-zero if as should generate error if an undeclared g[23] register
|
|
|
|
|
has been used in -64. */
|
|
|
|
|
static int no_undeclared_regs;
|
|
|
|
|
|
2000-05-26 08:45:55 +02:00
|
|
|
|
/* Non-zero if we should try to relax jumps and calls. */
|
|
|
|
|
static int sparc_relax;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Non-zero if we are generating PIC code. */
|
|
|
|
|
int sparc_pic_code;
|
|
|
|
|
|
|
|
|
|
/* Non-zero if we should give an error when misaligned data is seen. */
|
|
|
|
|
static int enforce_aligned_data;
|
|
|
|
|
|
|
|
|
|
extern int target_big_endian;
|
|
|
|
|
|
|
|
|
|
static int target_little_endian_data;
|
|
|
|
|
|
1999-07-30 23:39:53 +02:00
|
|
|
|
/* Symbols for global registers on v9. */
|
|
|
|
|
static symbolS *globals[8];
|
|
|
|
|
|
2003-08-29 22:20:18 +02:00
|
|
|
|
/* The dwarf2 data alignment, adjusted for 32 or 64 bit. */
|
|
|
|
|
int sparc_cie_data_alignment;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* V9 and 86x have big and little endian data, but instructions are always big
|
|
|
|
|
endian. The sparclet has bi-endian support but both data and insns have
|
|
|
|
|
the same endianness. Global `target_big_endian' is used for data.
|
|
|
|
|
The following macro is used for instructions. */
|
|
|
|
|
#ifndef INSN_BIG_ENDIAN
|
|
|
|
|
#define INSN_BIG_ENDIAN (target_big_endian \
|
|
|
|
|
|| default_arch_type == sparc86x \
|
|
|
|
|
|| SPARC_OPCODE_ARCH_V9_P (max_architecture))
|
|
|
|
|
#endif
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Handle of the OPCODE hash table. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static struct hash_control *op_hash;
|
|
|
|
|
|
2008-08-13 01:39:31 +02:00
|
|
|
|
static void s_data1 (void);
|
|
|
|
|
static void s_seg (int);
|
|
|
|
|
static void s_proc (int);
|
|
|
|
|
static void s_reserve (int);
|
|
|
|
|
static void s_common (int);
|
|
|
|
|
static void s_empty (int);
|
|
|
|
|
static void s_uacons (int);
|
|
|
|
|
static void s_ncons (int);
|
2002-12-12 22:37:36 +01:00
|
|
|
|
#ifdef OBJ_ELF
|
2008-08-13 01:39:31 +02:00
|
|
|
|
static void s_register (int);
|
2002-12-12 22:37:36 +01:00
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
const pseudo_typeS md_pseudo_table[] =
|
|
|
|
|
{
|
2000-07-27 06:05:05 +02:00
|
|
|
|
{"align", s_align_bytes, 0}, /* Defaulting is invalid (0). */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"common", s_common, 0},
|
|
|
|
|
{"empty", s_empty, 0},
|
|
|
|
|
{"global", s_globl, 0},
|
|
|
|
|
{"half", cons, 2},
|
1999-06-07 14:40:36 +02:00
|
|
|
|
{"nword", s_ncons, 0},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"optim", s_ignore, 0},
|
|
|
|
|
{"proc", s_proc, 0},
|
|
|
|
|
{"reserve", s_reserve, 0},
|
|
|
|
|
{"seg", s_seg, 0},
|
|
|
|
|
{"skip", s_space, 0},
|
|
|
|
|
{"word", cons, 4},
|
|
|
|
|
{"xword", cons, 8},
|
|
|
|
|
{"uahalf", s_uacons, 2},
|
|
|
|
|
{"uaword", s_uacons, 4},
|
|
|
|
|
{"uaxword", s_uacons, 8},
|
|
|
|
|
#ifdef OBJ_ELF
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* These are specific to sparc/svr4. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"2byte", s_uacons, 2},
|
|
|
|
|
{"4byte", s_uacons, 4},
|
|
|
|
|
{"8byte", s_uacons, 8},
|
1999-07-30 23:39:53 +02:00
|
|
|
|
{"register", s_register, 0},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
{NULL, 0, 0},
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* This array holds the chars that always start a comment. If the
|
2000-07-27 06:05:05 +02:00
|
|
|
|
pre-processor is disabled, these aren't very useful. */
|
|
|
|
|
const char comment_chars[] = "!"; /* JF removed '|' from
|
|
|
|
|
comment_chars. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* This array holds the chars that only start a comment at the beginning of
|
|
|
|
|
a line. If the line seems to have the form '# 123 filename'
|
2000-07-27 06:05:05 +02:00
|
|
|
|
.line and .file directives will appear in the pre-processed output. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Note that input_file.c hand checks for '#' at the beginning of the
|
|
|
|
|
first line of the input file. This is because the compiler outputs
|
2000-07-27 06:05:05 +02:00
|
|
|
|
#NO_APP at the beginning of its output. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Also note that comments started like this one will always
|
2000-07-27 06:05:05 +02:00
|
|
|
|
work if '/' isn't otherwise defined. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
const char line_comment_chars[] = "#";
|
|
|
|
|
|
2000-06-09 02:00:04 +02:00
|
|
|
|
const char line_separator_chars[] = ";";
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Chars that can be used to separate mant from exp in floating point
|
|
|
|
|
nums. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
const char EXP_CHARS[] = "eE";
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Chars that mean this number is a floating point constant.
|
|
|
|
|
As in 0f12.456
|
|
|
|
|
or 0d1.2345e12 */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
const char FLT_CHARS[] = "rRsSfFdDxXpP";
|
|
|
|
|
|
|
|
|
|
/* Also be aware that MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT may have to be
|
|
|
|
|
changed in read.c. Ideally it shouldn't have to know about it at all,
|
|
|
|
|
but nothing is ideal around here. */
|
|
|
|
|
|
2005-11-08 17:37:56 +01:00
|
|
|
|
#define isoctal(c) ((unsigned) ((c) - '0') < 8)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
struct sparc_it
|
|
|
|
|
{
|
|
|
|
|
char *error;
|
|
|
|
|
unsigned long opcode;
|
|
|
|
|
struct nlist *nlistp;
|
|
|
|
|
expressionS exp;
|
1999-06-07 14:40:36 +02:00
|
|
|
|
expressionS exp2;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int pcrel;
|
|
|
|
|
bfd_reloc_code_real_type reloc;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
struct sparc_it the_insn, set_insn;
|
|
|
|
|
|
2008-08-13 01:39:31 +02:00
|
|
|
|
static void output_insn (const struct sparc_opcode *, struct sparc_it *);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Table of arguments to -A.
|
|
|
|
|
The sparc_opcode_arch table in sparc-opc.c is insufficient and incorrect
|
|
|
|
|
for this use. That table is for opcodes only. This table is for opcodes
|
|
|
|
|
and file formats. */
|
|
|
|
|
|
|
|
|
|
enum sparc_arch_types {v6, v7, v8, sparclet, sparclite, sparc86x, v8plus,
|
2000-10-20 12:38:47 +02:00
|
|
|
|
v8plusa, v9, v9a, v9b, v9_64};
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
static struct sparc_arch {
|
|
|
|
|
char *name;
|
|
|
|
|
char *opcode_arch;
|
|
|
|
|
enum sparc_arch_types arch_type;
|
|
|
|
|
/* Default word size, as specified during configuration.
|
|
|
|
|
A value of zero means can't be used to specify default architecture. */
|
|
|
|
|
int default_arch_size;
|
|
|
|
|
/* Allowable arg to -A? */
|
|
|
|
|
int user_option_p;
|
|
|
|
|
} sparc_arch_table[] = {
|
|
|
|
|
{ "v6", "v6", v6, 0, 1 },
|
|
|
|
|
{ "v7", "v7", v7, 0, 1 },
|
|
|
|
|
{ "v8", "v8", v8, 32, 1 },
|
|
|
|
|
{ "sparclet", "sparclet", sparclet, 32, 1 },
|
|
|
|
|
{ "sparclite", "sparclite", sparclite, 32, 1 },
|
|
|
|
|
{ "sparc86x", "sparclite", sparc86x, 32, 1 },
|
|
|
|
|
{ "v8plus", "v9", v9, 0, 1 },
|
|
|
|
|
{ "v8plusa", "v9a", v9, 0, 1 },
|
2000-10-20 12:38:47 +02:00
|
|
|
|
{ "v8plusb", "v9b", v9, 0, 1 },
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{ "v9", "v9", v9, 0, 1 },
|
|
|
|
|
{ "v9a", "v9a", v9, 0, 1 },
|
2000-10-20 12:38:47 +02:00
|
|
|
|
{ "v9b", "v9b", v9, 0, 1 },
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* This exists to allow configure.in/Makefile.in to pass one
|
|
|
|
|
value to specify both the default machine and default word size. */
|
|
|
|
|
{ "v9-64", "v9", v9, 64, 0 },
|
|
|
|
|
{ NULL, NULL, v8, 0, 0 }
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Variant of default_arch */
|
|
|
|
|
static enum sparc_arch_types default_arch_type;
|
|
|
|
|
|
|
|
|
|
static struct sparc_arch *
|
2008-08-13 01:39:31 +02:00
|
|
|
|
lookup_arch (char *name)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct sparc_arch *sa;
|
|
|
|
|
|
|
|
|
|
for (sa = &sparc_arch_table[0]; sa->name != NULL; sa++)
|
|
|
|
|
if (strcmp (sa->name, name) == 0)
|
|
|
|
|
break;
|
|
|
|
|
if (sa->name == NULL)
|
|
|
|
|
return NULL;
|
|
|
|
|
return sa;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Initialize the default opcode arch and word size from the default
|
|
|
|
|
architecture name. */
|
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
init_default_arch (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct sparc_arch *sa = lookup_arch (default_arch);
|
|
|
|
|
|
|
|
|
|
if (sa == NULL
|
|
|
|
|
|| sa->default_arch_size == 0)
|
|
|
|
|
as_fatal (_("Invalid default architecture, broken assembler."));
|
|
|
|
|
|
|
|
|
|
max_architecture = sparc_opcode_lookup_arch (sa->opcode_arch);
|
|
|
|
|
if (max_architecture == SPARC_OPCODE_ARCH_BAD)
|
|
|
|
|
as_fatal (_("Bad opcode table, broken assembler."));
|
|
|
|
|
default_arch_size = sparc_arch_size = sa->default_arch_size;
|
|
|
|
|
default_init_p = 1;
|
|
|
|
|
default_arch_type = sa->arch_type;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Called by TARGET_FORMAT. */
|
|
|
|
|
|
|
|
|
|
const char *
|
2008-08-13 01:39:31 +02:00
|
|
|
|
sparc_target_format (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* We don't get a chance to initialize anything before we're called,
|
|
|
|
|
so handle that now. */
|
|
|
|
|
if (! default_init_p)
|
|
|
|
|
init_default_arch ();
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_AOUT
|
|
|
|
|
#ifdef TE_NetBSD
|
|
|
|
|
return "a.out-sparc-netbsd";
|
|
|
|
|
#else
|
|
|
|
|
#ifdef TE_SPARCAOUT
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
return "a.out-sunos-big";
|
|
|
|
|
else if (default_arch_type == sparc86x && target_little_endian_data)
|
|
|
|
|
return "a.out-sunos-big";
|
2000-08-04 03:01:32 +02:00
|
|
|
|
else
|
|
|
|
|
return "a.out-sparc-little";
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#else
|
|
|
|
|
return "a.out-sunos-big";
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_BOUT
|
|
|
|
|
return "b.out.big";
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_COFF
|
|
|
|
|
#ifdef TE_LYNX
|
|
|
|
|
return "coff-sparc-lynx";
|
|
|
|
|
#else
|
|
|
|
|
return "coff-sparc";
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
|
bfd/
* config.bfd (sparc-*-vxworks*): New stanza.
* configure.in (bfd_elf32_sparc_vxworks_vec): New stanza.
(bfd_elf32_sparc_vec, bfd_elf64_sparc_vec): Add elf-vxworks.lo.
* configure: Regenerate.
* elf32-sparc.c: Include elf-vxworks.h.
(elf32_sparc_vxworks_link_hash_table_create: New.
(elf32_sparc_vxworks_final_write_processing): New.
(TARGET_BIG_SYM): Override for VxWorks.
(TARGET_BIG_NAME, ELF_MINPAGESIZE): Likewise.
(bfd_elf32_bfd_link_hash_table_create): Likewise.
(elf_backend_want_got_plt, elf_backend_plt_readonly): Likewise.
(elf_backend_got_header_size, elf_backend_add_symbol_hook): Likewise.
(elf_backend_link_output_symbol_hook): Likewise.
(elf_backend_emit_relocs): Likewise.
(elf_backend_final_write_processing, elf32_bed): Likewise.
* elfxx-sparc.c: Include libiberty.h and elf-vxworks.h.
(sparc_vxworks_exec_plt0_entry, sparc_vxworks_exec_plt_entry): New.
(sparc_vxworks_shared_plt0_entry, sparc_vxworks_shared_plt_entry): New.
(_bfd_sparc_elf_link_hash_table_create): Don't initialize
build_plt_entry here.
(create_got_section): Initialize sgotplt for VxWorks.
(_bfd_sparc_elf_create_dynamic_sections): Initialize build_plt_entry,
plt_header_size and plt_entry_size, with new VxWorks-specific settings.
Call elf_vxworks_create_dynamic_sections for VxWorks.
(allocate_dynrelocs): Use plt_header_size and plt_entry_size.
Allocate room for .got.plt and .rela.plt.unloaded entries on VxWorks.
(_bfd_sparc_elf_size_dynamic_sections): Don't allocate a nop in .plt
for VxWorks. Check for the .got.plt section.
(sparc_vxworks_build_plt_entry): New function.
(_bfd_sparc_elf_finish_dynamic_symbol): Add handling of VxWorks PLTs.
Don't make _GLOBAL_OFFSET_TABLE_ and _PROCEDURE_LINKAGE_TABLE_
absolute on VxWorks.
(sparc32_finish_dyn): Add special handling for DT_RELASZ
and DT_PLTGOT on VxWorks.
(sparc_vxworks_finish_exec_plt): New.
(sparc_vxworks_finish_shared_plt): New.
(_bfd_sparc_elf_finish_dynamic_sections): Call them.
Use plt_header_size and plt_entry_size.
* elfxx-sparc.h (_bfd_sparc_elf_link_hash_table): Add is_vxworks,
srelplt2, sgotplt, plt_header_size and plt_entry_size fields.
* Makefile.am (elfxx-sparc.lo): Depend on elf-vxworks.h.
(elf32-sparc.lo): Likewise.
* Makefile.in: Regenerate.
* targets.c (bfd_elf32_sparc_vxworks_vec): Declare.
(_bfd_target_vector): Add a pointer to it.
gas/
* config/tc-sparc.c (sparc_target_format): Handle TE_VXWORKS.
(GOTT_BASE, GOTT_INDEX): New.
(tc_gen_reloc): Don't alter relocations against GOTT_BASE and
GOTT_INDEX when generating VxWorks PIC.
* configure.tgt (sparc*-*-vxworks*): Remove this special case;
use the generic *-*-vxworks* stanza instead.
gas/testsuite/
* gas/sparc/vxworks-pic.s, gas/sparc/vxworks-pic.d: New test.
* gas/sparc/sparc.exp: Run it. Remove sparc*-*-vxworks* XFAILs.
ld/
* configure.tgt (sparc*-*-vxworks*): New stanza.
* emulparams/elf32_sparc_vxworks.sh: New file.
* Makefile.am (ALL_EMULATIONS): Add eelf32_sparc_vxworks.o.
(eelf32_sparc_vxworks.c): New rule.
* Makefile.in: Regenerate.
ld/testsuite/
* ld-sparc/vxworks1.dd, ld-sparc/vxworks1.ld, ld-sparc/vxworks1-lib.dd,
* ld-sparc/vxworks1-lib.nd, ld-sparc/vxworks1-lib.rd,
* ld-sparc/vxworks1-lib.s, ld-sparc/vxworks1.rd, ld-sparc/vxworks1.s,
* ld-sparc/vxworks1-static.d, ld-sparc/vxworks2.s,
* ld-sparc/vxworks2.sd, ld-sparc/vxworks2-static.sd: New tests.
* ld-sparc/sparc.exp: Run them.
2006-04-05 14:41:59 +02:00
|
|
|
|
#ifdef TE_VXWORKS
|
|
|
|
|
return "elf32-sparc-vxworks";
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
2006-10-19 01:58:52 +02:00
|
|
|
|
return sparc_arch_size == 64 ? ELF64_TARGET_FORMAT : ELF_TARGET_FORMAT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* md_parse_option
|
1999-05-03 09:29:11 +02:00
|
|
|
|
* Invocation line includes a switch not recognized by the base assembler.
|
|
|
|
|
* See if it's a processor-specific option. These are:
|
|
|
|
|
*
|
|
|
|
|
* -bump
|
|
|
|
|
* Warn on architecture bumps. See also -A.
|
|
|
|
|
*
|
|
|
|
|
* -Av6, -Av7, -Av8, -Asparclite, -Asparclet
|
|
|
|
|
* Standard 32 bit architectures.
|
2000-10-20 12:38:47 +02:00
|
|
|
|
* -Av9, -Av9a, -Av9b
|
1999-05-03 09:29:11 +02:00
|
|
|
|
* Sparc64 in either a 32 or 64 bit world (-32/-64 says which).
|
|
|
|
|
* This used to only mean 64 bits, but properly specifying it
|
|
|
|
|
* complicated gcc's ASM_SPECs, so now opcode selection is
|
|
|
|
|
* specified orthogonally to word size (except when specifying
|
|
|
|
|
* the default, but that is an internal implementation detail).
|
2000-10-20 12:38:47 +02:00
|
|
|
|
* -Av8plus, -Av8plusa, -Av8plusb
|
|
|
|
|
* Same as -Av9{,a,b}.
|
|
|
|
|
* -xarch=v8plus, -xarch=v8plusa, -xarch=v8plusb
|
|
|
|
|
* Same as -Av8plus{,a,b} -32, for compatibility with Sun's
|
|
|
|
|
* assembler.
|
|
|
|
|
* -xarch=v9, -xarch=v9a, -xarch=v9b
|
|
|
|
|
* Same as -Av9{,a,b} -64, for compatibility with Sun's
|
2000-08-16 19:52:37 +02:00
|
|
|
|
* assembler.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
*
|
|
|
|
|
* Select the architecture and possibly the file format.
|
|
|
|
|
* Instructions or features not supported by the selected
|
|
|
|
|
* architecture cause fatal errors.
|
|
|
|
|
*
|
|
|
|
|
* The default is to start at v6, and bump the architecture up
|
|
|
|
|
* whenever an instruction is seen at a higher level. In 32 bit
|
|
|
|
|
* environments, v9 is not bumped up to, the user must pass
|
2000-10-20 12:38:47 +02:00
|
|
|
|
* -Av8plus{,a,b}.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
*
|
|
|
|
|
* If -bump is specified, a warning is printing when bumping to
|
|
|
|
|
* higher levels.
|
|
|
|
|
*
|
|
|
|
|
* If an architecture is specified, all instructions must match
|
|
|
|
|
* that architecture. Any higher level instructions are flagged
|
|
|
|
|
* as errors. Note that in the 32 bit environment specifying
|
|
|
|
|
* -Av8plus does not automatically create a v8plus object file, a
|
|
|
|
|
* v9 insn must be seen.
|
|
|
|
|
*
|
|
|
|
|
* If both an architecture and -bump are specified, the
|
|
|
|
|
* architecture starts at the specified level, but bumps are
|
|
|
|
|
* warnings. Note that we can't set `current_architecture' to
|
|
|
|
|
* the requested level in this case: in the 32 bit environment,
|
|
|
|
|
* we still must avoid creating v8plus object files unless v9
|
|
|
|
|
* insns are seen.
|
|
|
|
|
*
|
|
|
|
|
* Note:
|
|
|
|
|
* Bumping between incompatible architectures is always an
|
|
|
|
|
* error. For example, from sparclite to v9.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
2002-06-08 09:37:16 +02:00
|
|
|
|
const char *md_shortopts = "A:K:VQ:sq";
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#else
|
|
|
|
|
#ifdef OBJ_AOUT
|
2002-06-08 09:37:16 +02:00
|
|
|
|
const char *md_shortopts = "A:k";
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#else
|
2002-06-08 09:37:16 +02:00
|
|
|
|
const char *md_shortopts = "A:";
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
struct option md_longopts[] = {
|
|
|
|
|
#define OPTION_BUMP (OPTION_MD_BASE)
|
|
|
|
|
{"bump", no_argument, NULL, OPTION_BUMP},
|
|
|
|
|
#define OPTION_SPARC (OPTION_MD_BASE + 1)
|
|
|
|
|
{"sparc", no_argument, NULL, OPTION_SPARC},
|
|
|
|
|
#define OPTION_XARCH (OPTION_MD_BASE + 2)
|
|
|
|
|
{"xarch", required_argument, NULL, OPTION_XARCH},
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
#define OPTION_32 (OPTION_MD_BASE + 3)
|
|
|
|
|
{"32", no_argument, NULL, OPTION_32},
|
|
|
|
|
#define OPTION_64 (OPTION_MD_BASE + 4)
|
|
|
|
|
{"64", no_argument, NULL, OPTION_64},
|
|
|
|
|
#define OPTION_TSO (OPTION_MD_BASE + 5)
|
|
|
|
|
{"TSO", no_argument, NULL, OPTION_TSO},
|
|
|
|
|
#define OPTION_PSO (OPTION_MD_BASE + 6)
|
|
|
|
|
{"PSO", no_argument, NULL, OPTION_PSO},
|
|
|
|
|
#define OPTION_RMO (OPTION_MD_BASE + 7)
|
|
|
|
|
{"RMO", no_argument, NULL, OPTION_RMO},
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef SPARC_BIENDIAN
|
|
|
|
|
#define OPTION_LITTLE_ENDIAN (OPTION_MD_BASE + 8)
|
|
|
|
|
{"EL", no_argument, NULL, OPTION_LITTLE_ENDIAN},
|
|
|
|
|
#define OPTION_BIG_ENDIAN (OPTION_MD_BASE + 9)
|
|
|
|
|
{"EB", no_argument, NULL, OPTION_BIG_ENDIAN},
|
|
|
|
|
#endif
|
|
|
|
|
#define OPTION_ENFORCE_ALIGNED_DATA (OPTION_MD_BASE + 10)
|
|
|
|
|
{"enforce-aligned-data", no_argument, NULL, OPTION_ENFORCE_ALIGNED_DATA},
|
|
|
|
|
#define OPTION_LITTLE_ENDIAN_DATA (OPTION_MD_BASE + 11)
|
|
|
|
|
{"little-endian-data", no_argument, NULL, OPTION_LITTLE_ENDIAN_DATA},
|
1999-07-30 23:39:53 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
#define OPTION_NO_UNDECLARED_REGS (OPTION_MD_BASE + 12)
|
|
|
|
|
{"no-undeclared-regs", no_argument, NULL, OPTION_NO_UNDECLARED_REGS},
|
2000-02-28 04:51:32 +01:00
|
|
|
|
#define OPTION_UNDECLARED_REGS (OPTION_MD_BASE + 13)
|
|
|
|
|
{"undeclared-regs", no_argument, NULL, OPTION_UNDECLARED_REGS},
|
1999-07-30 23:39:53 +02:00
|
|
|
|
#endif
|
2000-05-26 08:45:55 +02:00
|
|
|
|
#define OPTION_RELAX (OPTION_MD_BASE + 14)
|
|
|
|
|
{"relax", no_argument, NULL, OPTION_RELAX},
|
|
|
|
|
#define OPTION_NO_RELAX (OPTION_MD_BASE + 15)
|
|
|
|
|
{"no-relax", no_argument, NULL, OPTION_NO_RELAX},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{NULL, no_argument, NULL, 0}
|
|
|
|
|
};
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
|
|
|
|
size_t md_longopts_size = sizeof (md_longopts);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
int
|
2008-08-13 01:39:31 +02:00
|
|
|
|
md_parse_option (int c, char *arg)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* We don't get a chance to initialize anything before we're called,
|
|
|
|
|
so handle that now. */
|
|
|
|
|
if (! default_init_p)
|
|
|
|
|
init_default_arch ();
|
|
|
|
|
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case OPTION_BUMP:
|
|
|
|
|
warn_on_bump = 1;
|
|
|
|
|
warn_after_architecture = SPARC_OPCODE_ARCH_V6;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_XARCH:
|
2000-08-16 19:52:37 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
if (strncmp (arg, "v9", 2) != 0)
|
|
|
|
|
md_parse_option (OPTION_32, NULL);
|
|
|
|
|
else
|
|
|
|
|
md_parse_option (OPTION_64, NULL);
|
|
|
|
|
#endif
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Fall through. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
case 'A':
|
|
|
|
|
{
|
|
|
|
|
struct sparc_arch *sa;
|
|
|
|
|
enum sparc_opcode_arch_val opcode_arch;
|
|
|
|
|
|
|
|
|
|
sa = lookup_arch (arg);
|
|
|
|
|
if (sa == NULL
|
|
|
|
|
|| ! sa->user_option_p)
|
|
|
|
|
{
|
2000-08-16 19:52:37 +02:00
|
|
|
|
if (c == OPTION_XARCH)
|
|
|
|
|
as_bad (_("invalid architecture -xarch=%s"), arg);
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("invalid architecture -A%s"), arg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
opcode_arch = sparc_opcode_lookup_arch (sa->opcode_arch);
|
|
|
|
|
if (opcode_arch == SPARC_OPCODE_ARCH_BAD)
|
|
|
|
|
as_fatal (_("Bad opcode table, broken assembler."));
|
|
|
|
|
|
|
|
|
|
max_architecture = opcode_arch;
|
|
|
|
|
architecture_requested = 1;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_SPARC:
|
|
|
|
|
/* Ignore -sparc, used by SunOS make default .s.o rule. */
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_ENFORCE_ALIGNED_DATA:
|
|
|
|
|
enforce_aligned_data = 1;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
#ifdef SPARC_BIENDIAN
|
|
|
|
|
case OPTION_LITTLE_ENDIAN:
|
|
|
|
|
target_big_endian = 0;
|
|
|
|
|
if (default_arch_type != sparclet)
|
|
|
|
|
as_fatal ("This target does not support -EL");
|
|
|
|
|
break;
|
|
|
|
|
case OPTION_LITTLE_ENDIAN_DATA:
|
|
|
|
|
target_little_endian_data = 1;
|
|
|
|
|
target_big_endian = 0;
|
|
|
|
|
if (default_arch_type != sparc86x
|
|
|
|
|
&& default_arch_type != v9)
|
|
|
|
|
as_fatal ("This target does not support --little-endian-data");
|
|
|
|
|
break;
|
|
|
|
|
case OPTION_BIG_ENDIAN:
|
|
|
|
|
target_big_endian = 1;
|
|
|
|
|
break;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_AOUT
|
|
|
|
|
case 'k':
|
|
|
|
|
sparc_pic_code = 1;
|
|
|
|
|
break;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
case OPTION_32:
|
|
|
|
|
case OPTION_64:
|
|
|
|
|
{
|
|
|
|
|
const char **list, **l;
|
|
|
|
|
|
|
|
|
|
sparc_arch_size = c == OPTION_32 ? 32 : 64;
|
|
|
|
|
list = bfd_target_list ();
|
|
|
|
|
for (l = list; *l != NULL; l++)
|
|
|
|
|
{
|
|
|
|
|
if (sparc_arch_size == 32)
|
|
|
|
|
{
|
2006-10-19 01:58:52 +02:00
|
|
|
|
if (CONST_STRNEQ (*l, "elf32-sparc"))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2006-10-19 01:58:52 +02:00
|
|
|
|
if (CONST_STRNEQ (*l, "elf64-sparc"))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (*l == NULL)
|
|
|
|
|
as_fatal (_("No compiled in support for %d bit object file format"),
|
|
|
|
|
sparc_arch_size);
|
|
|
|
|
free (list);
|
2009-03-19 11:41:46 +01:00
|
|
|
|
|
|
|
|
|
if (sparc_arch_size == 64
|
|
|
|
|
&& max_architecture < SPARC_OPCODE_ARCH_V9)
|
|
|
|
|
max_architecture = SPARC_OPCODE_ARCH_V9;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_TSO:
|
|
|
|
|
sparc_memory_model = MM_TSO;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_PSO:
|
|
|
|
|
sparc_memory_model = MM_PSO;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_RMO:
|
|
|
|
|
sparc_memory_model = MM_RMO;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'V':
|
|
|
|
|
print_version_id ();
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'Q':
|
|
|
|
|
/* Qy - do emit .comment
|
2000-07-27 06:05:05 +02:00
|
|
|
|
Qn - do not emit .comment. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 's':
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Use .stab instead of .stab.excl. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'q':
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* quick -- Native assembler does fewer checks. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'K':
|
|
|
|
|
if (strcmp (arg, "PIC") != 0)
|
|
|
|
|
as_warn (_("Unrecognized option following -K"));
|
|
|
|
|
else
|
|
|
|
|
sparc_pic_code = 1;
|
|
|
|
|
break;
|
1999-07-30 23:39:53 +02:00
|
|
|
|
|
|
|
|
|
case OPTION_NO_UNDECLARED_REGS:
|
|
|
|
|
no_undeclared_regs = 1;
|
|
|
|
|
break;
|
2000-02-28 04:51:32 +01:00
|
|
|
|
|
|
|
|
|
case OPTION_UNDECLARED_REGS:
|
|
|
|
|
no_undeclared_regs = 0;
|
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
|
2000-05-26 08:45:55 +02:00
|
|
|
|
case OPTION_RELAX:
|
|
|
|
|
sparc_relax = 1;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_NO_RELAX:
|
|
|
|
|
sparc_relax = 0;
|
|
|
|
|
break;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
default:
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
md_show_usage (FILE *stream)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
const struct sparc_arch *arch;
|
2000-08-16 19:52:37 +02:00
|
|
|
|
int column;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* We don't get a chance to initialize anything before we're called,
|
|
|
|
|
so handle that now. */
|
|
|
|
|
if (! default_init_p)
|
|
|
|
|
init_default_arch ();
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
fprintf (stream, _("SPARC options:\n"));
|
2000-08-16 19:52:37 +02:00
|
|
|
|
column = 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
for (arch = &sparc_arch_table[0]; arch->name; arch++)
|
|
|
|
|
{
|
2000-08-16 19:52:37 +02:00
|
|
|
|
if (!arch->user_option_p)
|
|
|
|
|
continue;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (arch != &sparc_arch_table[0])
|
|
|
|
|
fprintf (stream, " | ");
|
2001-07-23 16:02:13 +02:00
|
|
|
|
if (column + strlen (arch->name) > 70)
|
2000-08-16 19:52:37 +02:00
|
|
|
|
{
|
|
|
|
|
column = 0;
|
|
|
|
|
fputc ('\n', stream);
|
|
|
|
|
}
|
2001-07-23 16:02:13 +02:00
|
|
|
|
column += 5 + 2 + strlen (arch->name);
|
2000-08-16 19:52:37 +02:00
|
|
|
|
fprintf (stream, "-A%s", arch->name);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2000-08-16 19:52:37 +02:00
|
|
|
|
for (arch = &sparc_arch_table[0]; arch->name; arch++)
|
|
|
|
|
{
|
|
|
|
|
if (!arch->user_option_p)
|
|
|
|
|
continue;
|
|
|
|
|
fprintf (stream, " | ");
|
2001-07-23 16:02:13 +02:00
|
|
|
|
if (column + strlen (arch->name) > 65)
|
2000-08-16 19:52:37 +02:00
|
|
|
|
{
|
|
|
|
|
column = 0;
|
|
|
|
|
fputc ('\n', stream);
|
|
|
|
|
}
|
2001-07-23 16:02:13 +02:00
|
|
|
|
column += 5 + 7 + strlen (arch->name);
|
2000-08-16 19:52:37 +02:00
|
|
|
|
fprintf (stream, "-xarch=%s", arch->name);
|
|
|
|
|
}
|
|
|
|
|
fprintf (stream, _("\n\
|
1999-05-03 09:29:11 +02:00
|
|
|
|
specify variant of SPARC architecture\n\
|
|
|
|
|
-bump warn when assembler switches architectures\n\
|
|
|
|
|
-sparc ignored\n\
|
2000-05-26 08:45:55 +02:00
|
|
|
|
--enforce-aligned-data force .long, etc., to be aligned correctly\n\
|
|
|
|
|
-relax relax jumps and branches (default)\n\
|
|
|
|
|
-no-relax avoid changing any jumps and branches\n"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#ifdef OBJ_AOUT
|
|
|
|
|
fprintf (stream, _("\
|
|
|
|
|
-k generate PIC\n"));
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
fprintf (stream, _("\
|
|
|
|
|
-32 create 32 bit object file\n\
|
|
|
|
|
-64 create 64 bit object file\n"));
|
|
|
|
|
fprintf (stream, _("\
|
|
|
|
|
[default is %d]\n"), default_arch_size);
|
|
|
|
|
fprintf (stream, _("\
|
|
|
|
|
-TSO use Total Store Ordering\n\
|
|
|
|
|
-PSO use Partial Store Ordering\n\
|
|
|
|
|
-RMO use Relaxed Memory Ordering\n"));
|
|
|
|
|
fprintf (stream, _("\
|
|
|
|
|
[default is %s]\n"), (default_arch_size == 64) ? "RMO" : "TSO");
|
|
|
|
|
fprintf (stream, _("\
|
|
|
|
|
-KPIC generate PIC\n\
|
|
|
|
|
-V print assembler version number\n\
|
2000-02-28 04:51:32 +01:00
|
|
|
|
-undeclared-regs ignore application global register usage without\n\
|
|
|
|
|
appropriate .register directive (default)\n\
|
|
|
|
|
-no-undeclared-regs force error on application global register usage\n\
|
|
|
|
|
without appropriate .register directive\n\
|
1999-05-03 09:29:11 +02:00
|
|
|
|
-q ignored\n\
|
|
|
|
|
-Qy, -Qn ignored\n\
|
|
|
|
|
-s ignored\n"));
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef SPARC_BIENDIAN
|
|
|
|
|
fprintf (stream, _("\
|
|
|
|
|
-EL generate code for a little endian machine\n\
|
|
|
|
|
-EB generate code for a big endian machine\n\
|
|
|
|
|
--little-endian-data generate code for a machine having big endian\n\
|
2000-04-03 16:10:05 +02:00
|
|
|
|
instructions and little endian data.\n"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Native operand size opcode translation. */
|
1999-06-07 14:40:36 +02:00
|
|
|
|
struct
|
|
|
|
|
{
|
|
|
|
|
char *name;
|
|
|
|
|
char *name32;
|
|
|
|
|
char *name64;
|
|
|
|
|
} native_op_table[] =
|
|
|
|
|
{
|
|
|
|
|
{"ldn", "ld", "ldx"},
|
|
|
|
|
{"ldna", "lda", "ldxa"},
|
|
|
|
|
{"stn", "st", "stx"},
|
|
|
|
|
{"stna", "sta", "stxa"},
|
|
|
|
|
{"slln", "sll", "sllx"},
|
|
|
|
|
{"srln", "srl", "srlx"},
|
|
|
|
|
{"sran", "sra", "srax"},
|
|
|
|
|
{"casn", "cas", "casx"},
|
|
|
|
|
{"casna", "casa", "casxa"},
|
|
|
|
|
{"clrn", "clr", "clrx"},
|
|
|
|
|
{NULL, NULL, NULL},
|
|
|
|
|
};
|
|
|
|
|
|
2006-02-25 02:34:09 +01:00
|
|
|
|
/* sparc64 privileged and hyperprivileged registers. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
struct priv_reg_entry
|
2000-08-04 03:01:32 +02:00
|
|
|
|
{
|
|
|
|
|
char *name;
|
|
|
|
|
int regnum;
|
|
|
|
|
};
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
struct priv_reg_entry priv_reg_table[] =
|
|
|
|
|
{
|
|
|
|
|
{"tpc", 0},
|
|
|
|
|
{"tnpc", 1},
|
|
|
|
|
{"tstate", 2},
|
|
|
|
|
{"tt", 3},
|
|
|
|
|
{"tick", 4},
|
|
|
|
|
{"tba", 5},
|
|
|
|
|
{"pstate", 6},
|
|
|
|
|
{"tl", 7},
|
|
|
|
|
{"pil", 8},
|
|
|
|
|
{"cwp", 9},
|
|
|
|
|
{"cansave", 10},
|
|
|
|
|
{"canrestore", 11},
|
|
|
|
|
{"cleanwin", 12},
|
|
|
|
|
{"otherwin", 13},
|
|
|
|
|
{"wstate", 14},
|
|
|
|
|
{"fq", 15},
|
2006-02-25 02:34:09 +01:00
|
|
|
|
{"gl", 16},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"ver", 31},
|
2000-07-27 06:05:05 +02:00
|
|
|
|
{"", -1}, /* End marker. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
};
|
|
|
|
|
|
2006-02-25 02:34:09 +01:00
|
|
|
|
struct priv_reg_entry hpriv_reg_table[] =
|
|
|
|
|
{
|
|
|
|
|
{"hpstate", 0},
|
|
|
|
|
{"htstate", 1},
|
|
|
|
|
{"hintp", 3},
|
|
|
|
|
{"htba", 5},
|
|
|
|
|
{"hver", 6},
|
|
|
|
|
{"hstick_cmpr", 31},
|
|
|
|
|
{"", -1}, /* End marker. */
|
|
|
|
|
};
|
|
|
|
|
|
2008-04-23 09:49:33 +02:00
|
|
|
|
/* v9a specific asrs. This table is ordered by initial
|
|
|
|
|
letter, in reverse. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
struct priv_reg_entry v9a_asr_table[] =
|
|
|
|
|
{
|
|
|
|
|
{"tick_cmpr", 23},
|
2000-10-20 12:38:47 +02:00
|
|
|
|
{"sys_tick_cmpr", 25},
|
|
|
|
|
{"sys_tick", 24},
|
2008-04-23 09:49:33 +02:00
|
|
|
|
{"stick_cmpr", 25},
|
|
|
|
|
{"stick", 24},
|
2008-04-25 21:58:03 +02:00
|
|
|
|
{"softint_clear", 21},
|
|
|
|
|
{"softint_set", 20},
|
2008-04-30 05:50:39 +02:00
|
|
|
|
{"softint", 22},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"set_softint", 20},
|
|
|
|
|
{"pic", 17},
|
|
|
|
|
{"pcr", 16},
|
|
|
|
|
{"gsr", 19},
|
|
|
|
|
{"dcr", 18},
|
|
|
|
|
{"clear_softint", 21},
|
2000-07-27 06:05:05 +02:00
|
|
|
|
{"", -1}, /* End marker. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static int
|
2008-08-13 01:39:31 +02:00
|
|
|
|
cmp_reg_entry (const void *parg, const void *qarg)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
const struct priv_reg_entry *p = (const struct priv_reg_entry *) parg;
|
|
|
|
|
const struct priv_reg_entry *q = (const struct priv_reg_entry *) qarg;
|
|
|
|
|
|
|
|
|
|
return strcmp (q->name, p->name);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This function is called once, at assembler startup time. It should
|
2000-07-27 06:05:05 +02:00
|
|
|
|
set up all the tables, etc. that the MD part of the assembler will
|
|
|
|
|
need. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
md_begin (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
register const char *retval = NULL;
|
|
|
|
|
int lose = 0;
|
|
|
|
|
register unsigned int i = 0;
|
|
|
|
|
|
|
|
|
|
/* We don't get a chance to initialize anything before md_parse_option
|
|
|
|
|
is called, and it may not be called, so handle default initialization
|
|
|
|
|
now if not already done. */
|
|
|
|
|
if (! default_init_p)
|
|
|
|
|
init_default_arch ();
|
|
|
|
|
|
2003-08-29 22:20:18 +02:00
|
|
|
|
sparc_cie_data_alignment = sparc_arch_size == 64 ? -8 : -4;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
op_hash = hash_new ();
|
|
|
|
|
|
|
|
|
|
while (i < (unsigned int) sparc_num_opcodes)
|
|
|
|
|
{
|
|
|
|
|
const char *name = sparc_opcodes[i].name;
|
2008-08-13 01:39:31 +02:00
|
|
|
|
retval = hash_insert (op_hash, name, (void *) &sparc_opcodes[i]);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (retval != NULL)
|
|
|
|
|
{
|
1999-06-07 14:40:36 +02:00
|
|
|
|
as_bad (_("Internal error: can't hash `%s': %s\n"),
|
|
|
|
|
sparc_opcodes[i].name, retval);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
lose = 1;
|
|
|
|
|
}
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (sparc_opcodes[i].match & sparc_opcodes[i].lose)
|
|
|
|
|
{
|
1999-06-07 14:40:36 +02:00
|
|
|
|
as_bad (_("Internal error: losing opcode: `%s' \"%s\"\n"),
|
|
|
|
|
sparc_opcodes[i].name, sparc_opcodes[i].args);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
lose = 1;
|
|
|
|
|
}
|
|
|
|
|
++i;
|
|
|
|
|
}
|
|
|
|
|
while (i < (unsigned int) sparc_num_opcodes
|
|
|
|
|
&& !strcmp (sparc_opcodes[i].name, name));
|
|
|
|
|
}
|
|
|
|
|
|
1999-06-07 14:40:36 +02:00
|
|
|
|
for (i = 0; native_op_table[i].name; i++)
|
|
|
|
|
{
|
|
|
|
|
const struct sparc_opcode *insn;
|
2000-08-05 00:23:32 +02:00
|
|
|
|
char *name = ((sparc_arch_size == 32)
|
|
|
|
|
? native_op_table[i].name32
|
|
|
|
|
: native_op_table[i].name64);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
insn = (struct sparc_opcode *) hash_find (op_hash, name);
|
1999-06-07 14:40:36 +02:00
|
|
|
|
if (insn == NULL)
|
2000-07-27 06:05:05 +02:00
|
|
|
|
{
|
|
|
|
|
as_bad (_("Internal error: can't find opcode `%s' for `%s'\n"),
|
|
|
|
|
name, native_op_table[i].name);
|
|
|
|
|
lose = 1;
|
|
|
|
|
}
|
1999-06-07 14:40:36 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
2008-08-13 01:39:31 +02:00
|
|
|
|
retval = hash_insert (op_hash, native_op_table[i].name,
|
|
|
|
|
(void *) insn);
|
1999-06-07 14:40:36 +02:00
|
|
|
|
if (retval != NULL)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Internal error: can't hash `%s': %s\n"),
|
|
|
|
|
sparc_opcodes[i].name, retval);
|
|
|
|
|
lose = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (lose)
|
|
|
|
|
as_fatal (_("Broken assembler. No assembly attempted."));
|
|
|
|
|
|
|
|
|
|
qsort (priv_reg_table, sizeof (priv_reg_table) / sizeof (priv_reg_table[0]),
|
|
|
|
|
sizeof (priv_reg_table[0]), cmp_reg_entry);
|
|
|
|
|
|
|
|
|
|
/* If -bump, record the architecture level at which we start issuing
|
|
|
|
|
warnings. The behaviour is different depending upon whether an
|
|
|
|
|
architecture was explicitly specified. If it wasn't, we issue warnings
|
|
|
|
|
for all upwards bumps. If it was, we don't start issuing warnings until
|
|
|
|
|
we need to bump beyond the requested architecture or when we bump between
|
|
|
|
|
conflicting architectures. */
|
|
|
|
|
|
|
|
|
|
if (warn_on_bump
|
|
|
|
|
&& architecture_requested)
|
|
|
|
|
{
|
|
|
|
|
/* `max_architecture' records the requested architecture.
|
|
|
|
|
Issue warnings if we go above it. */
|
|
|
|
|
warn_after_architecture = max_architecture;
|
|
|
|
|
|
|
|
|
|
/* Find the highest architecture level that doesn't conflict with
|
|
|
|
|
the requested one. */
|
|
|
|
|
for (max_architecture = SPARC_OPCODE_ARCH_MAX;
|
|
|
|
|
max_architecture > warn_after_architecture;
|
|
|
|
|
--max_architecture)
|
|
|
|
|
if (! SPARC_OPCODE_CONFLICT_P (max_architecture,
|
|
|
|
|
warn_after_architecture))
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Called after all assembly has been done. */
|
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
sparc_md_end (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2000-10-20 12:38:47 +02:00
|
|
|
|
unsigned long mach = bfd_mach_sparc;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (sparc_arch_size == 64)
|
2000-10-20 12:38:47 +02:00
|
|
|
|
switch (current_architecture)
|
|
|
|
|
{
|
|
|
|
|
case SPARC_OPCODE_ARCH_V9A: mach = bfd_mach_sparc_v9a; break;
|
|
|
|
|
case SPARC_OPCODE_ARCH_V9B: mach = bfd_mach_sparc_v9b; break;
|
|
|
|
|
default: mach = bfd_mach_sparc_v9; break;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2000-10-20 12:38:47 +02:00
|
|
|
|
switch (current_architecture)
|
|
|
|
|
{
|
|
|
|
|
case SPARC_OPCODE_ARCH_SPARCLET: mach = bfd_mach_sparc_sparclet; break;
|
|
|
|
|
case SPARC_OPCODE_ARCH_V9: mach = bfd_mach_sparc_v8plus; break;
|
|
|
|
|
case SPARC_OPCODE_ARCH_V9A: mach = bfd_mach_sparc_v8plusa; break;
|
|
|
|
|
case SPARC_OPCODE_ARCH_V9B: mach = bfd_mach_sparc_v8plusb; break;
|
|
|
|
|
/* The sparclite is treated like a normal sparc. Perhaps it shouldn't
|
|
|
|
|
be but for now it is (since that's the way it's always been
|
|
|
|
|
treated). */
|
|
|
|
|
default: break;
|
|
|
|
|
}
|
|
|
|
|
bfd_set_arch_mach (stdoutput, bfd_arch_sparc, mach);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return non-zero if VAL is in the range -(MAX+1) to MAX. */
|
|
|
|
|
|
2008-08-13 01:39:31 +02:00
|
|
|
|
static inline int
|
|
|
|
|
in_signed_range (bfd_signed_vma val, bfd_signed_vma max)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (max <= 0)
|
|
|
|
|
abort ();
|
|
|
|
|
/* Sign-extend the value from the architecture word size, so that
|
|
|
|
|
0xffffffff is always considered -1 on sparc32. */
|
|
|
|
|
if (sparc_arch_size == 32)
|
|
|
|
|
{
|
2000-07-27 06:05:05 +02:00
|
|
|
|
bfd_signed_vma sign = (bfd_signed_vma) 1 << 31;
|
2002-02-11 14:24:06 +01:00
|
|
|
|
val = ((val & U0xffffffff) ^ sign) - sign;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
if (val > max)
|
|
|
|
|
return 0;
|
|
|
|
|
if (val < ~max)
|
|
|
|
|
return 0;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return non-zero if VAL is in the range 0 to MAX. */
|
|
|
|
|
|
2008-08-13 01:39:31 +02:00
|
|
|
|
static inline int
|
|
|
|
|
in_unsigned_range (bfd_vma val, bfd_vma max)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (val > max)
|
|
|
|
|
return 0;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return non-zero if VAL is in the range -(MAX/2+1) to MAX.
|
|
|
|
|
(e.g. -15 to +31). */
|
|
|
|
|
|
2008-08-13 01:39:31 +02:00
|
|
|
|
static inline int
|
|
|
|
|
in_bitfield_range (bfd_signed_vma val, bfd_signed_vma max)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (max <= 0)
|
|
|
|
|
abort ();
|
|
|
|
|
if (val > max)
|
|
|
|
|
return 0;
|
|
|
|
|
if (val < ~(max >> 1))
|
|
|
|
|
return 0;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
2008-08-13 01:39:31 +02:00
|
|
|
|
sparc_ffs (unsigned int mask)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
if (mask == 0)
|
|
|
|
|
return -1;
|
|
|
|
|
|
|
|
|
|
for (i = 0; (mask & 1) == 0; ++i)
|
|
|
|
|
mask >>= 1;
|
|
|
|
|
return i;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Implement big shift right. */
|
|
|
|
|
static bfd_vma
|
2008-08-13 01:39:31 +02:00
|
|
|
|
BSR (bfd_vma val, int amount)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (sizeof (bfd_vma) <= 4 && amount >= 32)
|
|
|
|
|
as_fatal (_("Support for 64-bit arithmetic not compiled in."));
|
|
|
|
|
return val >> amount;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* For communication between sparc_ip and get_expression. */
|
|
|
|
|
static char *expr_end;
|
|
|
|
|
|
|
|
|
|
/* Values for `special_case'.
|
|
|
|
|
Instructions that require wierd handling because they're longer than
|
|
|
|
|
4 bytes. */
|
|
|
|
|
#define SPECIAL_CASE_NONE 0
|
|
|
|
|
#define SPECIAL_CASE_SET 1
|
|
|
|
|
#define SPECIAL_CASE_SETSW 2
|
|
|
|
|
#define SPECIAL_CASE_SETX 3
|
|
|
|
|
/* FIXME: sparc-opc.c doesn't have necessary "S" trigger to enable this. */
|
|
|
|
|
#define SPECIAL_CASE_FDIV 4
|
|
|
|
|
|
|
|
|
|
/* Bit masks of various insns. */
|
|
|
|
|
#define NOP_INSN 0x01000000
|
|
|
|
|
#define OR_INSN 0x80100000
|
1999-06-07 14:53:56 +02:00
|
|
|
|
#define XOR_INSN 0x80180000
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#define FMOVS_INSN 0x81A00020
|
|
|
|
|
#define SETHI_INSN 0x01000000
|
|
|
|
|
#define SLLX_INSN 0x81281000
|
|
|
|
|
#define SRA_INSN 0x81380000
|
|
|
|
|
|
|
|
|
|
/* The last instruction to be assembled. */
|
|
|
|
|
static const struct sparc_opcode *last_insn;
|
|
|
|
|
/* The assembled opcode of `last_insn'. */
|
|
|
|
|
static unsigned long last_opcode;
|
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
/* Handle the set and setuw synthetic instructions. */
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
synthetize_setuw (const struct sparc_opcode *insn)
|
1999-06-10 23:11:39 +02:00
|
|
|
|
{
|
|
|
|
|
int need_hi22_p = 0;
|
|
|
|
|
int rd = (the_insn.opcode & RD (~0)) >> 25;
|
|
|
|
|
|
|
|
|
|
if (the_insn.exp.X_op == O_constant)
|
|
|
|
|
{
|
|
|
|
|
if (SPARC_OPCODE_ARCH_V9_P (max_architecture))
|
|
|
|
|
{
|
2000-07-27 06:05:05 +02:00
|
|
|
|
if (sizeof (offsetT) > 4
|
1999-06-10 23:11:39 +02:00
|
|
|
|
&& (the_insn.exp.X_add_number < 0
|
2002-02-11 14:24:06 +01:00
|
|
|
|
|| the_insn.exp.X_add_number > (offsetT) U0xffffffff))
|
1999-06-10 23:11:39 +02:00
|
|
|
|
as_warn (_("set: number not in 0..4294967295 range"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2000-07-27 06:05:05 +02:00
|
|
|
|
if (sizeof (offsetT) > 4
|
2002-02-11 14:24:06 +01:00
|
|
|
|
&& (the_insn.exp.X_add_number < -(offsetT) U0x80000000
|
|
|
|
|
|| the_insn.exp.X_add_number > (offsetT) U0xffffffff))
|
1999-06-10 23:11:39 +02:00
|
|
|
|
as_warn (_("set: number not in -2147483648..4294967295 range"));
|
2000-07-27 06:05:05 +02:00
|
|
|
|
the_insn.exp.X_add_number = (int) the_insn.exp.X_add_number;
|
1999-06-10 23:11:39 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* See if operand is absolute and small; skip sethi if so. */
|
|
|
|
|
if (the_insn.exp.X_op != O_constant
|
|
|
|
|
|| the_insn.exp.X_add_number >= (1 << 12)
|
|
|
|
|
|| the_insn.exp.X_add_number < -(1 << 12))
|
|
|
|
|
{
|
|
|
|
|
the_insn.opcode = (SETHI_INSN | RD (rd)
|
|
|
|
|
| ((the_insn.exp.X_add_number >> 10)
|
2000-08-04 03:01:32 +02:00
|
|
|
|
& (the_insn.exp.X_op == O_constant
|
|
|
|
|
? 0x3fffff : 0)));
|
1999-06-10 23:11:39 +02:00
|
|
|
|
the_insn.reloc = (the_insn.exp.X_op != O_constant
|
2000-08-04 03:01:32 +02:00
|
|
|
|
? BFD_RELOC_HI22 : BFD_RELOC_NONE);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
need_hi22_p = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* See if operand has no low-order bits; skip OR if so. */
|
|
|
|
|
if (the_insn.exp.X_op != O_constant
|
|
|
|
|
|| (need_hi22_p && (the_insn.exp.X_add_number & 0x3FF) != 0)
|
|
|
|
|
|| ! need_hi22_p)
|
|
|
|
|
{
|
|
|
|
|
the_insn.opcode = (OR_INSN | (need_hi22_p ? RS1 (rd) : 0)
|
|
|
|
|
| RD (rd) | IMMED
|
|
|
|
|
| (the_insn.exp.X_add_number
|
2000-08-04 03:01:32 +02:00
|
|
|
|
& (the_insn.exp.X_op != O_constant
|
|
|
|
|
? 0 : need_hi22_p ? 0x3ff : 0x1fff)));
|
1999-06-10 23:11:39 +02:00
|
|
|
|
the_insn.reloc = (the_insn.exp.X_op != O_constant
|
2000-08-04 03:01:32 +02:00
|
|
|
|
? BFD_RELOC_LO10 : BFD_RELOC_NONE);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
}
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
/* Handle the setsw synthetic instruction. */
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
synthetize_setsw (const struct sparc_opcode *insn)
|
1999-06-10 23:11:39 +02:00
|
|
|
|
{
|
|
|
|
|
int low32, rd, opc;
|
|
|
|
|
|
|
|
|
|
rd = (the_insn.opcode & RD (~0)) >> 25;
|
|
|
|
|
|
|
|
|
|
if (the_insn.exp.X_op != O_constant)
|
|
|
|
|
{
|
|
|
|
|
synthetize_setuw (insn);
|
|
|
|
|
|
|
|
|
|
/* Need to sign extend it. */
|
|
|
|
|
the_insn.opcode = (SRA_INSN | RS1 (rd) | RD (rd));
|
|
|
|
|
the_insn.reloc = BFD_RELOC_NONE;
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
if (sizeof (offsetT) > 4
|
2002-02-11 14:24:06 +01:00
|
|
|
|
&& (the_insn.exp.X_add_number < -(offsetT) U0x80000000
|
|
|
|
|
|| the_insn.exp.X_add_number > (offsetT) U0xffffffff))
|
1999-06-10 23:11:39 +02:00
|
|
|
|
as_warn (_("setsw: number not in -2147483648..4294967295 range"));
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
low32 = the_insn.exp.X_add_number;
|
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
if (low32 >= 0)
|
|
|
|
|
{
|
|
|
|
|
synthetize_setuw (insn);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
opc = OR_INSN;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
the_insn.reloc = BFD_RELOC_NONE;
|
|
|
|
|
/* See if operand is absolute and small; skip sethi if so. */
|
|
|
|
|
if (low32 < -(1 << 12))
|
|
|
|
|
{
|
|
|
|
|
the_insn.opcode = (SETHI_INSN | RD (rd)
|
|
|
|
|
| (((~the_insn.exp.X_add_number) >> 10) & 0x3fffff));
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
low32 = 0x1c00 | (low32 & 0x3ff);
|
|
|
|
|
opc = RS1 (rd) | XOR_INSN;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
the_insn.opcode = (opc | RD (rd) | IMMED
|
|
|
|
|
| (low32 & 0x1fff));
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle the setsw synthetic instruction. */
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
synthetize_setx (const struct sparc_opcode *insn)
|
1999-06-10 23:11:39 +02:00
|
|
|
|
{
|
|
|
|
|
int upper32, lower32;
|
|
|
|
|
int tmpreg = (the_insn.opcode & RS1 (~0)) >> 14;
|
|
|
|
|
int dstreg = (the_insn.opcode & RD (~0)) >> 25;
|
|
|
|
|
int upper_dstreg;
|
|
|
|
|
int need_hh22_p = 0, need_hm10_p = 0, need_hi22_p = 0, need_lo10_p = 0;
|
|
|
|
|
int need_xor10_p = 0;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
2002-02-11 14:24:06 +01:00
|
|
|
|
#define SIGNEXT32(x) ((((x) & U0xffffffff) ^ U0x80000000) - U0x80000000)
|
1999-06-10 23:11:39 +02:00
|
|
|
|
lower32 = SIGNEXT32 (the_insn.exp.X_add_number);
|
|
|
|
|
upper32 = SIGNEXT32 (BSR (the_insn.exp.X_add_number, 32));
|
|
|
|
|
#undef SIGNEXT32
|
|
|
|
|
|
|
|
|
|
upper_dstreg = tmpreg;
|
|
|
|
|
/* The tmp reg should not be the dst reg. */
|
|
|
|
|
if (tmpreg == dstreg)
|
|
|
|
|
as_warn (_("setx: temporary register same as destination register"));
|
|
|
|
|
|
|
|
|
|
/* ??? Obviously there are other optimizations we can do
|
|
|
|
|
(e.g. sethi+shift for 0x1f0000000) and perhaps we shouldn't be
|
|
|
|
|
doing some of these. Later. If you do change things, try to
|
|
|
|
|
change all of this to be table driven as well. */
|
|
|
|
|
/* What to output depends on the number if it's constant.
|
|
|
|
|
Compute that first, then output what we've decided upon. */
|
|
|
|
|
if (the_insn.exp.X_op != O_constant)
|
|
|
|
|
{
|
|
|
|
|
if (sparc_arch_size == 32)
|
|
|
|
|
{
|
|
|
|
|
/* When arch size is 32, we want setx to be equivalent
|
|
|
|
|
to setuw for anything but constants. */
|
|
|
|
|
the_insn.exp.X_add_number &= 0xffffffff;
|
|
|
|
|
synthetize_setuw (insn);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
need_hh22_p = need_hm10_p = need_hi22_p = need_lo10_p = 1;
|
2000-08-04 03:01:32 +02:00
|
|
|
|
lower32 = 0;
|
|
|
|
|
upper32 = 0;
|
1999-06-10 23:11:39 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Reset X_add_number, we've extracted it as upper32/lower32.
|
|
|
|
|
Otherwise fixup_segment will complain about not being able to
|
|
|
|
|
write an 8 byte number in a 4 byte field. */
|
|
|
|
|
the_insn.exp.X_add_number = 0;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
/* Only need hh22 if `or' insn can't handle constant. */
|
|
|
|
|
if (upper32 < -(1 << 12) || upper32 >= (1 << 12))
|
|
|
|
|
need_hh22_p = 1;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
/* Does bottom part (after sethi) have bits? */
|
|
|
|
|
if ((need_hh22_p && (upper32 & 0x3ff) != 0)
|
|
|
|
|
/* No hh22, but does upper32 still have bits we can't set
|
|
|
|
|
from lower32? */
|
|
|
|
|
|| (! need_hh22_p && upper32 != 0 && upper32 != -1))
|
|
|
|
|
need_hm10_p = 1;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
/* If the lower half is all zero, we build the upper half directly
|
|
|
|
|
into the dst reg. */
|
|
|
|
|
if (lower32 != 0
|
|
|
|
|
/* Need lower half if number is zero or 0xffffffff00000000. */
|
|
|
|
|
|| (! need_hh22_p && ! need_hm10_p))
|
|
|
|
|
{
|
|
|
|
|
/* No need for sethi if `or' insn can handle constant. */
|
|
|
|
|
if (lower32 < -(1 << 12) || lower32 >= (1 << 12)
|
|
|
|
|
/* Note that we can't use a negative constant in the `or'
|
|
|
|
|
insn unless the upper 32 bits are all ones. */
|
|
|
|
|
|| (lower32 < 0 && upper32 != -1)
|
|
|
|
|
|| (lower32 >= 0 && upper32 == -1))
|
|
|
|
|
need_hi22_p = 1;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
if (need_hi22_p && upper32 == -1)
|
|
|
|
|
need_xor10_p = 1;
|
|
|
|
|
|
|
|
|
|
/* Does bottom part (after sethi) have bits? */
|
|
|
|
|
else if ((need_hi22_p && (lower32 & 0x3ff) != 0)
|
|
|
|
|
/* No sethi. */
|
|
|
|
|
|| (! need_hi22_p && (lower32 & 0x1fff) != 0)
|
|
|
|
|
/* Need `or' if we didn't set anything else. */
|
|
|
|
|
|| (! need_hi22_p && ! need_hh22_p && ! need_hm10_p))
|
|
|
|
|
need_lo10_p = 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
/* Output directly to dst reg if lower 32 bits are all zero. */
|
|
|
|
|
upper_dstreg = dstreg;
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
if (!upper_dstreg && dstreg)
|
|
|
|
|
as_warn (_("setx: illegal temporary register g0"));
|
|
|
|
|
|
|
|
|
|
if (need_hh22_p)
|
|
|
|
|
{
|
|
|
|
|
the_insn.opcode = (SETHI_INSN | RD (upper_dstreg)
|
|
|
|
|
| ((upper32 >> 10) & 0x3fffff));
|
|
|
|
|
the_insn.reloc = (the_insn.exp.X_op != O_constant
|
|
|
|
|
? BFD_RELOC_SPARC_HH22 : BFD_RELOC_NONE);
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
if (need_hi22_p)
|
|
|
|
|
{
|
|
|
|
|
the_insn.opcode = (SETHI_INSN | RD (dstreg)
|
|
|
|
|
| (((need_xor10_p ? ~lower32 : lower32)
|
2000-08-04 03:01:32 +02:00
|
|
|
|
>> 10) & 0x3fffff));
|
1999-06-10 23:11:39 +02:00
|
|
|
|
the_insn.reloc = (the_insn.exp.X_op != O_constant
|
|
|
|
|
? BFD_RELOC_SPARC_LM22 : BFD_RELOC_NONE);
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (need_hm10_p)
|
|
|
|
|
{
|
|
|
|
|
the_insn.opcode = (OR_INSN
|
|
|
|
|
| (need_hh22_p ? RS1 (upper_dstreg) : 0)
|
|
|
|
|
| RD (upper_dstreg)
|
|
|
|
|
| IMMED
|
|
|
|
|
| (upper32 & (need_hh22_p ? 0x3ff : 0x1fff)));
|
|
|
|
|
the_insn.reloc = (the_insn.exp.X_op != O_constant
|
|
|
|
|
? BFD_RELOC_SPARC_HM10 : BFD_RELOC_NONE);
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
if (need_lo10_p)
|
|
|
|
|
{
|
|
|
|
|
/* FIXME: One nice optimization to do here is to OR the low part
|
|
|
|
|
with the highpart if hi22 isn't needed and the low part is
|
|
|
|
|
positive. */
|
|
|
|
|
the_insn.opcode = (OR_INSN | (need_hi22_p ? RS1 (dstreg) : 0)
|
|
|
|
|
| RD (dstreg)
|
|
|
|
|
| IMMED
|
|
|
|
|
| (lower32 & (need_hi22_p ? 0x3ff : 0x1fff)));
|
|
|
|
|
the_insn.reloc = (the_insn.exp.X_op != O_constant
|
|
|
|
|
? BFD_RELOC_LO10 : BFD_RELOC_NONE);
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
/* If we needed to build the upper part, shift it into place. */
|
|
|
|
|
if (need_hh22_p || need_hm10_p)
|
|
|
|
|
{
|
|
|
|
|
the_insn.opcode = (SLLX_INSN | RS1 (upper_dstreg) | RD (upper_dstreg)
|
|
|
|
|
| IMMED | 32);
|
|
|
|
|
the_insn.reloc = BFD_RELOC_NONE;
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
/* To get -1 in upper32, we do sethi %hi(~x), r; xor r, -0x400 | x, r. */
|
|
|
|
|
if (need_xor10_p)
|
|
|
|
|
{
|
|
|
|
|
the_insn.opcode = (XOR_INSN | RS1 (dstreg) | RD (dstreg) | IMMED
|
|
|
|
|
| 0x1c00 | (lower32 & 0x3ff));
|
|
|
|
|
the_insn.reloc = BFD_RELOC_NONE;
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If we needed to build both upper and lower parts, OR them together. */
|
|
|
|
|
else if ((need_hh22_p || need_hm10_p) && (need_hi22_p || need_lo10_p))
|
|
|
|
|
{
|
|
|
|
|
the_insn.opcode = (OR_INSN | RS1 (dstreg) | RS2 (upper_dstreg)
|
|
|
|
|
| RD (dstreg));
|
|
|
|
|
the_insn.reloc = BFD_RELOC_NONE;
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Main entry point to assemble one instruction. */
|
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
md_assemble (char *str)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
const struct sparc_opcode *insn;
|
1999-06-10 23:11:39 +02:00
|
|
|
|
int special_case;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
know (str);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
special_case = sparc_ip (str, &insn);
|
2005-04-19 21:45:10 +02:00
|
|
|
|
if (insn == NULL)
|
|
|
|
|
return;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* We warn about attempts to put a floating point branch in a delay slot,
|
|
|
|
|
unless the delay slot has been annulled. */
|
2005-04-19 21:45:10 +02:00
|
|
|
|
if (last_insn != NULL
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (insn->flags & F_FBR) != 0
|
|
|
|
|
&& (last_insn->flags & F_DELAYED) != 0
|
|
|
|
|
/* ??? This test isn't completely accurate. We assume anything with
|
|
|
|
|
F_{UNBR,CONDBR,FBR} set is annullable. */
|
|
|
|
|
&& ((last_insn->flags & (F_UNBR | F_CONDBR | F_FBR)) == 0
|
|
|
|
|
|| (last_opcode & ANNUL) == 0))
|
|
|
|
|
as_warn (_("FP branch in delay slot"));
|
|
|
|
|
|
|
|
|
|
/* SPARC before v9 requires a nop instruction between a floating
|
|
|
|
|
point instruction and a floating point branch. We insert one
|
|
|
|
|
automatically, with a warning. */
|
|
|
|
|
if (max_architecture < SPARC_OPCODE_ARCH_V9
|
|
|
|
|
&& last_insn != NULL
|
|
|
|
|
&& (insn->flags & F_FBR) != 0
|
|
|
|
|
&& (last_insn->flags & F_FLOAT) != 0)
|
|
|
|
|
{
|
|
|
|
|
struct sparc_it nop_insn;
|
|
|
|
|
|
|
|
|
|
nop_insn.opcode = NOP_INSN;
|
|
|
|
|
nop_insn.reloc = BFD_RELOC_NONE;
|
|
|
|
|
output_insn (insn, &nop_insn);
|
|
|
|
|
as_warn (_("FP branch preceded by FP instruction; NOP inserted"));
|
|
|
|
|
}
|
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
switch (special_case)
|
|
|
|
|
{
|
|
|
|
|
case SPECIAL_CASE_NONE:
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Normal insn. */
|
1999-06-10 23:11:39 +02:00
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
case SPECIAL_CASE_SETSW:
|
|
|
|
|
synthetize_setsw (insn);
|
|
|
|
|
break;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
case SPECIAL_CASE_SET:
|
|
|
|
|
synthetize_setuw (insn);
|
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
case SPECIAL_CASE_SETX:
|
|
|
|
|
synthetize_setx (insn);
|
|
|
|
|
break;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
case SPECIAL_CASE_FDIV:
|
|
|
|
|
{
|
|
|
|
|
int rd = (the_insn.opcode >> 25) & 0x1f;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
output_insn (insn, &the_insn);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
/* According to information leaked from Sun, the "fdiv" instructions
|
|
|
|
|
on early SPARC machines would produce incorrect results sometimes.
|
|
|
|
|
The workaround is to add an fmovs of the destination register to
|
|
|
|
|
itself just after the instruction. This was true on machines
|
2000-07-27 06:05:05 +02:00
|
|
|
|
with Weitek 1165 float chips, such as the Sun-4/260 and /280. */
|
* gas/app, gas/as.c, gas/as.h, gas/atof-generic.c, gas/cgen.c,
gas/config/atof-ieee.c, gas/config/obj-aout.c,
gas/config/obj-coff.c, gas/config/obj-ecoff.c,
gas/config/obj-elf.c, gas/config/obj-som.c, gas/config/tc-alpha.c,
gas/config/tc-arc.c, gas/config/tc-arm.c, gas/config/tc-cr16.c,
gas/config/tc-cris.c, gas/config/tc-crx.c, gas/config/tc-d30v.c,
gas/config/tc-dlx.c, gas/config/tc-hppa.c, gas/config/tc-i370.c,
gas/config/tc-i386-intel.c, gas/config/tc-i386.c,
gas/config/tc-i860.c, gas/config/tc-i960.c, gas/config/tc-ia64.c,
gas/config/tc-iq2000.c, gas/config/tc-m32c.c,
gas/config/tc-m32r.c, gas/config/tc-m68hc11.c,
gas/config/tc-m68k.c, gas/config/tc-maxq.c, gas/config/tc-mcore.c,
gas/config/tc-mep.c, gas/config/tc-mips.c, gas/config/tc-mmix.c,
gas/config/tc-mn10300.c, gas/config/tc-moxie.c,
gas/config/tc-ns32k.c, gas/config/tc-pj.c, gas/config/tc-ppc.c,
gas/config/tc-s390.c, gas/config/tc-score.c,
gas/config/tc-score7.c, gas/config/tc-sh.c, gas/config/tc-sparc.c,
gas/config/tc-spu.c, gas/config/tc-tic30.c, gas/config/tc-vax.c,
gas/config/tc-xtensa.c, gas/config/xtensa-relax.c,
gas/dw2gencfi.c, gas/dwarf2dbg.c, gas/ehopt.c, gas/expr.c,
gas/frags.c, gas/input-file.c, gas/read.c, gas/sb.c,
gas/subsegs.c, gas/symbols.c, gas/write.c: Change the name of the
gas macro `assert' to `gas_assert'.
2009-06-22 19:56:02 +02:00
|
|
|
|
gas_assert (the_insn.reloc == BFD_RELOC_NONE);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
the_insn.opcode = FMOVS_INSN | rd | RD (rd);
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
return;
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
default:
|
|
|
|
|
as_fatal (_("failed special case insn sanity check"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Subroutine of md_assemble to do the actual parsing. */
|
|
|
|
|
|
1999-06-10 23:11:39 +02:00
|
|
|
|
static int
|
2008-08-13 01:39:31 +02:00
|
|
|
|
sparc_ip (char *str, const struct sparc_opcode **pinsn)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *error_message = "";
|
|
|
|
|
char *s;
|
|
|
|
|
const char *args;
|
|
|
|
|
char c;
|
|
|
|
|
const struct sparc_opcode *insn;
|
|
|
|
|
char *argsStart;
|
|
|
|
|
unsigned long opcode;
|
|
|
|
|
unsigned int mask = 0;
|
|
|
|
|
int match = 0;
|
|
|
|
|
int comma = 0;
|
|
|
|
|
int v9_arg_p;
|
1999-06-10 23:11:39 +02:00
|
|
|
|
int special_case = SPECIAL_CASE_NONE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
s = str;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (ISLOWER (*s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
do
|
|
|
|
|
++s;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISLOWER (*s) || ISDIGIT (*s));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (*s)
|
|
|
|
|
{
|
|
|
|
|
case '\0':
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ',':
|
|
|
|
|
comma = 1;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Fall through. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
case ' ':
|
|
|
|
|
*s++ = '\0';
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
2005-04-19 21:45:10 +02:00
|
|
|
|
as_bad (_("Unknown opcode: `%s'"), str);
|
|
|
|
|
*pinsn = NULL;
|
|
|
|
|
return special_case;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
insn = (struct sparc_opcode *) hash_find (op_hash, str);
|
|
|
|
|
*pinsn = insn;
|
|
|
|
|
if (insn == NULL)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Unknown opcode: `%s'"), str);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
return special_case;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
if (comma)
|
|
|
|
|
{
|
|
|
|
|
*--s = ',';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
argsStart = s;
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
opcode = insn->match;
|
|
|
|
|
memset (&the_insn, '\0', sizeof (the_insn));
|
|
|
|
|
the_insn.reloc = BFD_RELOC_NONE;
|
|
|
|
|
v9_arg_p = 0;
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Build the opcode, checking as we go to make sure that the
|
|
|
|
|
operands match. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
for (args = insn->args;; ++args)
|
|
|
|
|
{
|
|
|
|
|
switch (*args)
|
|
|
|
|
{
|
|
|
|
|
case 'K':
|
|
|
|
|
{
|
|
|
|
|
int kmask = 0;
|
|
|
|
|
|
|
|
|
|
/* Parse a series of masks. */
|
|
|
|
|
if (*s == '#')
|
|
|
|
|
{
|
|
|
|
|
while (*s == '#')
|
|
|
|
|
{
|
|
|
|
|
int mask;
|
|
|
|
|
|
|
|
|
|
if (! parse_keyword_arg (sparc_encode_membar, &s,
|
|
|
|
|
&mask))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid membar mask name");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
kmask |= mask;
|
2000-08-04 20:43:45 +02:00
|
|
|
|
while (*s == ' ')
|
|
|
|
|
++s;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (*s == '|' || *s == '+')
|
|
|
|
|
++s;
|
2000-08-04 20:43:45 +02:00
|
|
|
|
while (*s == ' ')
|
|
|
|
|
++s;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (! parse_const_expr_arg (&s, &kmask))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid membar mask expression");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (kmask < 0 || kmask > 127)
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid membar mask number");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
opcode |= MEMBAR (kmask);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
2000-10-20 12:38:47 +02:00
|
|
|
|
case '3':
|
|
|
|
|
{
|
|
|
|
|
int smask = 0;
|
|
|
|
|
|
|
|
|
|
if (! parse_const_expr_arg (&s, &smask))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid siam mode expression");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (smask < 0 || smask > 7)
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid siam mode number");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
opcode |= smask;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case '*':
|
|
|
|
|
{
|
|
|
|
|
int fcn = 0;
|
|
|
|
|
|
|
|
|
|
/* Parse a prefetch function. */
|
|
|
|
|
if (*s == '#')
|
|
|
|
|
{
|
|
|
|
|
if (! parse_keyword_arg (sparc_encode_prefetch, &s, &fcn))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid prefetch function name");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (! parse_const_expr_arg (&s, &fcn))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid prefetch function expression");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (fcn < 0 || fcn > 31)
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid prefetch function number");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
opcode |= RD (fcn);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
case '!':
|
|
|
|
|
case '?':
|
|
|
|
|
/* Parse a sparc64 privileged register. */
|
|
|
|
|
if (*s == '%')
|
|
|
|
|
{
|
|
|
|
|
struct priv_reg_entry *p = priv_reg_table;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
unsigned int len = 9999999; /* Init to make gcc happy. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
s += 1;
|
|
|
|
|
while (p->name[0] > s[0])
|
|
|
|
|
p++;
|
|
|
|
|
while (p->name[0] == s[0])
|
|
|
|
|
{
|
|
|
|
|
len = strlen (p->name);
|
|
|
|
|
if (strncmp (p->name, s, len) == 0)
|
|
|
|
|
break;
|
|
|
|
|
p++;
|
|
|
|
|
}
|
|
|
|
|
if (p->name[0] != s[0])
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": unrecognizable privileged register");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (*args == '?')
|
|
|
|
|
opcode |= (p->regnum << 14);
|
|
|
|
|
else
|
|
|
|
|
opcode |= (p->regnum << 25);
|
|
|
|
|
s += len;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": unrecognizable privileged register");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
2006-02-25 02:34:09 +01:00
|
|
|
|
case '$':
|
|
|
|
|
case '%':
|
|
|
|
|
/* Parse a sparc64 hyperprivileged register. */
|
|
|
|
|
if (*s == '%')
|
|
|
|
|
{
|
|
|
|
|
struct priv_reg_entry *p = hpriv_reg_table;
|
|
|
|
|
unsigned int len = 9999999; /* Init to make gcc happy. */
|
|
|
|
|
|
|
|
|
|
s += 1;
|
|
|
|
|
while (p->name[0] > s[0])
|
|
|
|
|
p++;
|
|
|
|
|
while (p->name[0] == s[0])
|
|
|
|
|
{
|
|
|
|
|
len = strlen (p->name);
|
|
|
|
|
if (strncmp (p->name, s, len) == 0)
|
|
|
|
|
break;
|
|
|
|
|
p++;
|
|
|
|
|
}
|
|
|
|
|
if (p->name[0] != s[0])
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": unrecognizable hyperprivileged register");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (*args == '$')
|
|
|
|
|
opcode |= (p->regnum << 14);
|
|
|
|
|
else
|
|
|
|
|
opcode |= (p->regnum << 25);
|
|
|
|
|
s += len;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": unrecognizable hyperprivileged register");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case '_':
|
|
|
|
|
case '/':
|
2000-10-20 12:38:47 +02:00
|
|
|
|
/* Parse a v9a/v9b ancillary state register. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (*s == '%')
|
|
|
|
|
{
|
|
|
|
|
struct priv_reg_entry *p = v9a_asr_table;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
unsigned int len = 9999999; /* Init to make gcc happy. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
s += 1;
|
|
|
|
|
while (p->name[0] > s[0])
|
|
|
|
|
p++;
|
|
|
|
|
while (p->name[0] == s[0])
|
|
|
|
|
{
|
|
|
|
|
len = strlen (p->name);
|
|
|
|
|
if (strncmp (p->name, s, len) == 0)
|
|
|
|
|
break;
|
|
|
|
|
p++;
|
|
|
|
|
}
|
|
|
|
|
if (p->name[0] != s[0])
|
|
|
|
|
{
|
2000-10-20 12:38:47 +02:00
|
|
|
|
error_message = _(": unrecognizable v9a or v9b ancillary state register");
|
1999-05-03 09:29:11 +02:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (*args == '/' && (p->regnum == 20 || p->regnum == 21))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": rd on write only ancillary state register");
|
|
|
|
|
goto error;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
}
|
2000-10-20 12:38:47 +02:00
|
|
|
|
if (p->regnum >= 24
|
|
|
|
|
&& (insn->architecture
|
|
|
|
|
& SPARC_OPCODE_ARCH_MASK (SPARC_OPCODE_ARCH_V9A)))
|
|
|
|
|
{
|
|
|
|
|
/* %sys_tick and %sys_tick_cmpr are v9bnotv9a */
|
|
|
|
|
error_message = _(": unrecognizable v9a ancillary state register");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (*args == '/')
|
|
|
|
|
opcode |= (p->regnum << 14);
|
|
|
|
|
else
|
|
|
|
|
opcode |= (p->regnum << 25);
|
|
|
|
|
s += len;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2000-10-20 12:38:47 +02:00
|
|
|
|
error_message = _(": unrecognizable v9a or v9b ancillary state register");
|
1999-05-03 09:29:11 +02:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
case 'M':
|
|
|
|
|
case 'm':
|
|
|
|
|
if (strncmp (s, "%asr", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (ISDIGIT (*s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
long num = 0;
|
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
num = num * 10 + *s - '0';
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (current_architecture >= SPARC_OPCODE_ARCH_V9)
|
|
|
|
|
{
|
|
|
|
|
if (num < 16 || 31 < num)
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": asr number must be between 16 and 31");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (num < 0 || 31 < num)
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": asr number must be between 0 and 31");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
opcode |= (*args == 'M' ? RS1 (num) : RD (num));
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": expecting %asrN");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
} /* if %asr */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'I':
|
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC_11;
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
|
|
|
|
case 'j':
|
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC_10;
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
|
|
|
|
case 'X':
|
|
|
|
|
/* V8 systems don't understand BFD_RELOC_SPARC_5. */
|
|
|
|
|
if (SPARC_OPCODE_ARCH_V9_P (max_architecture))
|
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC_5;
|
|
|
|
|
else
|
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC13;
|
|
|
|
|
/* These fields are unsigned, but for upward compatibility,
|
|
|
|
|
allow negative values as well. */
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
|
|
|
|
case 'Y':
|
|
|
|
|
/* V8 systems don't understand BFD_RELOC_SPARC_6. */
|
|
|
|
|
if (SPARC_OPCODE_ARCH_V9_P (max_architecture))
|
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC_6;
|
|
|
|
|
else
|
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC13;
|
|
|
|
|
/* These fields are unsigned, but for upward compatibility,
|
|
|
|
|
allow negative values as well. */
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
|
|
|
|
case 'k':
|
|
|
|
|
the_insn.reloc = /* RELOC_WDISP2_14 */ BFD_RELOC_SPARC_WDISP16;
|
|
|
|
|
the_insn.pcrel = 1;
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
|
|
|
|
case 'G':
|
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC_WDISP19;
|
|
|
|
|
the_insn.pcrel = 1;
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
|
|
|
|
case 'N':
|
|
|
|
|
if (*s == 'p' && s[1] == 'n')
|
|
|
|
|
{
|
|
|
|
|
s += 2;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'T':
|
|
|
|
|
if (*s == 'p' && s[1] == 't')
|
|
|
|
|
{
|
|
|
|
|
s += 2;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'z':
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
if (strncmp (s, "%icc", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'Z':
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
if (strncmp (s, "%xcc", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '6':
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
if (strncmp (s, "%fcc0", 5) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 5;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '7':
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
if (strncmp (s, "%fcc1", 5) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 5;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '8':
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
if (strncmp (s, "%fcc2", 5) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 5;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '9':
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
if (strncmp (s, "%fcc3", 5) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 5;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'P':
|
|
|
|
|
if (strncmp (s, "%pc", 3) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'W':
|
|
|
|
|
if (strncmp (s, "%tick", 5) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 5;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
case '\0': /* End of args. */
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
if (s[0] == ',' && s[1] == '%')
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2008-04-16 10:51:18 +02:00
|
|
|
|
static const struct ops
|
2007-06-05 19:00:33 +02:00
|
|
|
|
{
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
/* The name as it appears in assembler. */
|
|
|
|
|
char *name;
|
|
|
|
|
/* strlen (name), precomputed for speed */
|
|
|
|
|
int len;
|
|
|
|
|
/* The reloc this pseudo-op translates to. */
|
|
|
|
|
int reloc;
|
2008-04-16 10:51:18 +02:00
|
|
|
|
/* 1 if tls call. */
|
|
|
|
|
int tls_call;
|
2007-06-05 19:00:33 +02:00
|
|
|
|
}
|
2008-04-16 10:51:18 +02:00
|
|
|
|
ops[] =
|
2007-06-05 19:00:33 +02:00
|
|
|
|
{
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
{ "tgd_add", 7, BFD_RELOC_SPARC_TLS_GD_ADD, 0 },
|
|
|
|
|
{ "tgd_call", 8, BFD_RELOC_SPARC_TLS_GD_CALL, 1 },
|
|
|
|
|
{ "tldm_add", 8, BFD_RELOC_SPARC_TLS_LDM_ADD, 0 },
|
|
|
|
|
{ "tldm_call", 9, BFD_RELOC_SPARC_TLS_LDM_CALL, 1 },
|
|
|
|
|
{ "tldo_add", 8, BFD_RELOC_SPARC_TLS_LDO_ADD, 0 },
|
|
|
|
|
{ "tie_ldx", 7, BFD_RELOC_SPARC_TLS_IE_LDX, 0 },
|
|
|
|
|
{ "tie_ld", 6, BFD_RELOC_SPARC_TLS_IE_LD, 0 },
|
2007-06-05 19:00:33 +02:00
|
|
|
|
{ "tie_add", 7, BFD_RELOC_SPARC_TLS_IE_ADD, 0 },
|
2008-04-16 10:51:18 +02:00
|
|
|
|
{ "gdop", 4, BFD_RELOC_SPARC_GOTDATA_OP, 0 },
|
2007-06-05 19:00:33 +02:00
|
|
|
|
{ NULL, 0, 0, 0 }
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
};
|
2008-04-16 10:51:18 +02:00
|
|
|
|
const struct ops *o;
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
char *s1;
|
|
|
|
|
int npar = 0;
|
|
|
|
|
|
2008-04-16 10:51:18 +02:00
|
|
|
|
for (o = ops; o->name; o++)
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
if (strncmp (s + 2, o->name, o->len) == 0)
|
|
|
|
|
break;
|
|
|
|
|
if (o->name == NULL)
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
if (s[o->len + 2] != '(')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: %%%s requires arguments in ()"), o->name);
|
|
|
|
|
return special_case;
|
|
|
|
|
}
|
|
|
|
|
|
2008-04-16 10:51:18 +02:00
|
|
|
|
if (! o->tls_call && the_insn.reloc != BFD_RELOC_NONE)
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: %%%s cannot be used together with other relocs in the insn ()"),
|
|
|
|
|
o->name);
|
|
|
|
|
return special_case;
|
|
|
|
|
}
|
|
|
|
|
|
2008-04-16 10:51:18 +02:00
|
|
|
|
if (o->tls_call
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
&& (the_insn.reloc != BFD_RELOC_32_PCREL_S2
|
|
|
|
|
|| the_insn.exp.X_add_number != 0
|
|
|
|
|
|| the_insn.exp.X_add_symbol
|
|
|
|
|
!= symbol_find_or_make ("__tls_get_addr")))
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: %%%s can be only used with call __tls_get_addr"),
|
|
|
|
|
o->name);
|
|
|
|
|
return special_case;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
the_insn.reloc = o->reloc;
|
|
|
|
|
memset (&the_insn.exp, 0, sizeof (the_insn.exp));
|
|
|
|
|
s += o->len + 3;
|
|
|
|
|
|
|
|
|
|
for (s1 = s; *s1 && *s1 != ',' && *s1 != ']'; s1++)
|
|
|
|
|
if (*s1 == '(')
|
|
|
|
|
npar++;
|
|
|
|
|
else if (*s1 == ')')
|
|
|
|
|
{
|
|
|
|
|
if (!npar)
|
|
|
|
|
break;
|
|
|
|
|
npar--;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (*s1 != ')')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: %%%s requires arguments in ()"), o->name);
|
|
|
|
|
return special_case;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
*s1 = '\0';
|
|
|
|
|
(void) get_expression (s);
|
|
|
|
|
*s1 = ')';
|
|
|
|
|
s = s1 + 1;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
if (*s == '\0')
|
|
|
|
|
match = 1;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '+':
|
|
|
|
|
if (*s == '+')
|
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
if (*s == '-')
|
|
|
|
|
{
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
case '[': /* These must match exactly. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case ']':
|
|
|
|
|
case ',':
|
|
|
|
|
case ' ':
|
|
|
|
|
if (*s++ == *args)
|
|
|
|
|
continue;
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
case '#': /* Must be at least one digit. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (ISDIGIT (*s++))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
case 'C': /* Coprocessor state register. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (strncmp (s, "%csr", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
case 'b': /* Next operand is a coprocessor register. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'c':
|
|
|
|
|
case 'D':
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (*s++ == '%' && *s++ == 'c' && ISDIGIT (*s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
mask = *s++;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (ISDIGIT (*s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
mask = 10 * (mask - '0') + (*s++ - '0');
|
|
|
|
|
if (mask >= 32)
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
mask -= '0';
|
|
|
|
|
}
|
|
|
|
|
switch (*args)
|
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
case 'b':
|
|
|
|
|
opcode |= mask << 14;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'c':
|
|
|
|
|
opcode |= mask;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'D':
|
|
|
|
|
opcode |= mask << 25;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'r': /* next operand must be a register */
|
|
|
|
|
case 'O':
|
|
|
|
|
case '1':
|
|
|
|
|
case '2':
|
|
|
|
|
case 'd':
|
|
|
|
|
if (*s++ == '%')
|
|
|
|
|
{
|
|
|
|
|
switch (c = *s++)
|
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
case 'f': /* frame pointer */
|
|
|
|
|
if (*s++ == 'p')
|
|
|
|
|
{
|
|
|
|
|
mask = 0x1e;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 'g': /* global register */
|
1999-06-10 23:11:39 +02:00
|
|
|
|
c = *s++;
|
|
|
|
|
if (isoctal (c))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
mask = c - '0';
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 'i': /* in register */
|
1999-06-10 23:11:39 +02:00
|
|
|
|
c = *s++;
|
|
|
|
|
if (isoctal (c))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
mask = c - '0' + 24;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 'l': /* local register */
|
1999-06-10 23:11:39 +02:00
|
|
|
|
c = *s++;
|
|
|
|
|
if (isoctal (c))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
mask = (c - '0' + 16);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 'o': /* out register */
|
1999-06-10 23:11:39 +02:00
|
|
|
|
c = *s++;
|
|
|
|
|
if (isoctal (c))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
mask = (c - '0' + 8);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 's': /* stack pointer */
|
|
|
|
|
if (*s++ == 'p')
|
|
|
|
|
{
|
|
|
|
|
mask = 0xe;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 'r': /* any register */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (!ISDIGIT ((c = *s++)))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
/* FALLTHROUGH */
|
|
|
|
|
case '0':
|
|
|
|
|
case '1':
|
|
|
|
|
case '2':
|
|
|
|
|
case '3':
|
|
|
|
|
case '4':
|
|
|
|
|
case '5':
|
|
|
|
|
case '6':
|
|
|
|
|
case '7':
|
|
|
|
|
case '8':
|
|
|
|
|
case '9':
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (ISDIGIT (*s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if ((c = 10 * (c - '0') + (*s++ - '0')) >= 32)
|
|
|
|
|
{
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
c -= '0';
|
|
|
|
|
}
|
|
|
|
|
mask = c;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
1999-07-30 23:39:53 +02:00
|
|
|
|
if ((mask & ~1) == 2 && sparc_arch_size == 64
|
2000-07-27 06:05:05 +02:00
|
|
|
|
&& no_undeclared_regs && ! globals[mask])
|
2000-04-05 11:38:43 +02:00
|
|
|
|
as_bad (_("detected global register use not covered by .register pseudo-op"));
|
1999-07-30 23:39:53 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Got the register, now figure out where
|
|
|
|
|
it goes in the opcode. */
|
|
|
|
|
switch (*args)
|
|
|
|
|
{
|
|
|
|
|
case '1':
|
|
|
|
|
opcode |= mask << 14;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case '2':
|
|
|
|
|
opcode |= mask;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'd':
|
|
|
|
|
opcode |= mask << 25;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'r':
|
|
|
|
|
opcode |= (mask << 25) | (mask << 14);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'O':
|
|
|
|
|
opcode |= (mask << 25) | (mask << 0);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'e': /* next operand is a floating point register */
|
|
|
|
|
case 'v':
|
|
|
|
|
case 'V':
|
|
|
|
|
|
|
|
|
|
case 'f':
|
|
|
|
|
case 'B':
|
|
|
|
|
case 'R':
|
|
|
|
|
|
|
|
|
|
case 'g':
|
|
|
|
|
case 'H':
|
|
|
|
|
case 'J':
|
|
|
|
|
{
|
|
|
|
|
char format;
|
|
|
|
|
|
|
|
|
|
if (*s++ == '%'
|
|
|
|
|
&& ((format = *s) == 'f')
|
2001-09-19 07:33:36 +02:00
|
|
|
|
&& ISDIGIT (*++s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-09-19 07:33:36 +02:00
|
|
|
|
for (mask = 0; ISDIGIT (*s); ++s)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
mask = 10 * mask + (*s - '0');
|
|
|
|
|
} /* read the number */
|
|
|
|
|
|
|
|
|
|
if ((*args == 'v'
|
|
|
|
|
|| *args == 'B'
|
|
|
|
|
|| *args == 'H')
|
|
|
|
|
&& (mask & 1))
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
} /* register must be even numbered */
|
|
|
|
|
|
|
|
|
|
if ((*args == 'V'
|
|
|
|
|
|| *args == 'R'
|
|
|
|
|
|| *args == 'J')
|
|
|
|
|
&& (mask & 3))
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
} /* register must be multiple of 4 */
|
|
|
|
|
|
|
|
|
|
if (mask >= 64)
|
|
|
|
|
{
|
|
|
|
|
if (SPARC_OPCODE_ARCH_V9_P (max_architecture))
|
|
|
|
|
error_message = _(": There are only 64 f registers; [0-63]");
|
|
|
|
|
else
|
|
|
|
|
error_message = _(": There are only 32 f registers; [0-31]");
|
|
|
|
|
goto error;
|
|
|
|
|
} /* on error */
|
|
|
|
|
else if (mask >= 32)
|
|
|
|
|
{
|
|
|
|
|
if (SPARC_OPCODE_ARCH_V9_P (max_architecture))
|
|
|
|
|
{
|
2004-01-19 00:47:03 +01:00
|
|
|
|
if (*args == 'e' || *args == 'f' || *args == 'g')
|
|
|
|
|
{
|
|
|
|
|
error_message
|
|
|
|
|
= _(": There are only 32 single precision f registers; [0-31]");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
v9_arg_p = 1;
|
|
|
|
|
mask -= 31; /* wrap high bit */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": There are only 32 f registers; [0-31]");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
break;
|
2000-08-04 03:01:32 +02:00
|
|
|
|
} /* if not an 'f' register. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
switch (*args)
|
|
|
|
|
{
|
|
|
|
|
case 'v':
|
|
|
|
|
case 'V':
|
|
|
|
|
case 'e':
|
|
|
|
|
opcode |= RS1 (mask);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'f':
|
|
|
|
|
case 'B':
|
|
|
|
|
case 'R':
|
|
|
|
|
opcode |= RS2 (mask);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'g':
|
|
|
|
|
case 'H':
|
|
|
|
|
case 'J':
|
|
|
|
|
opcode |= RD (mask);
|
|
|
|
|
continue;
|
2000-08-04 03:01:32 +02:00
|
|
|
|
} /* Pack it in. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
know (0);
|
|
|
|
|
break;
|
2000-08-04 03:01:32 +02:00
|
|
|
|
} /* float arg */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
case 'F':
|
|
|
|
|
if (strncmp (s, "%fsr", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-08-04 03:01:32 +02:00
|
|
|
|
case '0': /* 64 bit immediate (set, setsw, setx insn) */
|
|
|
|
|
the_insn.reloc = BFD_RELOC_NONE; /* reloc handled elsewhere */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
goto immediate;
|
|
|
|
|
|
2000-08-04 03:01:32 +02:00
|
|
|
|
case 'l': /* 22 bit PC relative immediate */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC_WDISP22;
|
|
|
|
|
the_insn.pcrel = 1;
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
2000-08-04 03:01:32 +02:00
|
|
|
|
case 'L': /* 30 bit immediate */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
the_insn.reloc = BFD_RELOC_32_PCREL_S2;
|
|
|
|
|
the_insn.pcrel = 1;
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
1999-06-07 14:53:56 +02:00
|
|
|
|
case 'h':
|
2000-08-04 03:01:32 +02:00
|
|
|
|
case 'n': /* 22 bit immediate */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC22;
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
2000-08-04 03:01:32 +02:00
|
|
|
|
case 'i': /* 13 bit immediate */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC13;
|
|
|
|
|
|
|
|
|
|
/* fallthrough */
|
|
|
|
|
|
|
|
|
|
immediate:
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
s++;
|
|
|
|
|
|
1999-06-07 14:40:36 +02:00
|
|
|
|
{
|
|
|
|
|
char *s1;
|
|
|
|
|
char *op_arg = NULL;
|
2005-02-18 01:49:03 +01:00
|
|
|
|
static expressionS op_exp;
|
1999-06-07 14:40:36 +02:00
|
|
|
|
bfd_reloc_code_real_type old_reloc = the_insn.reloc;
|
|
|
|
|
|
|
|
|
|
/* Check for %hi, etc. */
|
|
|
|
|
if (*s == '%')
|
|
|
|
|
{
|
|
|
|
|
static const struct ops {
|
|
|
|
|
/* The name as it appears in assembler. */
|
|
|
|
|
char *name;
|
|
|
|
|
/* strlen (name), precomputed for speed */
|
|
|
|
|
int len;
|
|
|
|
|
/* The reloc this pseudo-op translates to. */
|
|
|
|
|
int reloc;
|
|
|
|
|
/* Non-zero if for v9 only. */
|
|
|
|
|
int v9_p;
|
|
|
|
|
/* Non-zero if can be used in pc-relative contexts. */
|
|
|
|
|
int pcrel_p;/*FIXME:wip*/
|
|
|
|
|
} ops[] = {
|
|
|
|
|
/* hix/lox must appear before hi/lo so %hix won't be
|
|
|
|
|
mistaken for %hi. */
|
|
|
|
|
{ "hix", 3, BFD_RELOC_SPARC_HIX22, 1, 0 },
|
|
|
|
|
{ "lox", 3, BFD_RELOC_SPARC_LOX10, 1, 0 },
|
|
|
|
|
{ "hi", 2, BFD_RELOC_HI22, 0, 1 },
|
|
|
|
|
{ "lo", 2, BFD_RELOC_LO10, 0, 1 },
|
2008-04-18 10:47:35 +02:00
|
|
|
|
{ "pc22", 4, BFD_RELOC_SPARC_PC22, 0, 1 },
|
|
|
|
|
{ "pc10", 4, BFD_RELOC_SPARC_PC10, 0, 1 },
|
1999-06-07 14:40:36 +02:00
|
|
|
|
{ "hh", 2, BFD_RELOC_SPARC_HH22, 1, 1 },
|
|
|
|
|
{ "hm", 2, BFD_RELOC_SPARC_HM10, 1, 1 },
|
|
|
|
|
{ "lm", 2, BFD_RELOC_SPARC_LM22, 1, 1 },
|
|
|
|
|
{ "h44", 3, BFD_RELOC_SPARC_H44, 1, 0 },
|
|
|
|
|
{ "m44", 3, BFD_RELOC_SPARC_M44, 1, 0 },
|
|
|
|
|
{ "l44", 3, BFD_RELOC_SPARC_L44, 1, 0 },
|
|
|
|
|
{ "uhi", 3, BFD_RELOC_SPARC_HH22, 1, 0 },
|
|
|
|
|
{ "ulo", 3, BFD_RELOC_SPARC_HM10, 1, 0 },
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
{ "tgd_hi22", 8, BFD_RELOC_SPARC_TLS_GD_HI22, 0, 0 },
|
|
|
|
|
{ "tgd_lo10", 8, BFD_RELOC_SPARC_TLS_GD_LO10, 0, 0 },
|
|
|
|
|
{ "tldm_hi22", 9, BFD_RELOC_SPARC_TLS_LDM_HI22, 0, 0 },
|
|
|
|
|
{ "tldm_lo10", 9, BFD_RELOC_SPARC_TLS_LDM_LO10, 0, 0 },
|
|
|
|
|
{ "tldo_hix22", 10, BFD_RELOC_SPARC_TLS_LDO_HIX22, 0,
|
|
|
|
|
0 },
|
|
|
|
|
{ "tldo_lox10", 10, BFD_RELOC_SPARC_TLS_LDO_LOX10, 0,
|
|
|
|
|
0 },
|
|
|
|
|
{ "tie_hi22", 8, BFD_RELOC_SPARC_TLS_IE_HI22, 0, 0 },
|
|
|
|
|
{ "tie_lo10", 8, BFD_RELOC_SPARC_TLS_IE_LO10, 0, 0 },
|
|
|
|
|
{ "tle_hix22", 9, BFD_RELOC_SPARC_TLS_LE_HIX22, 0, 0 },
|
|
|
|
|
{ "tle_lox10", 9, BFD_RELOC_SPARC_TLS_LE_LOX10, 0, 0 },
|
2008-04-16 10:51:18 +02:00
|
|
|
|
{ "gdop_hix22", 10, BFD_RELOC_SPARC_GOTDATA_OP_HIX22,
|
|
|
|
|
0, 0 },
|
|
|
|
|
{ "gdop_lox10", 10, BFD_RELOC_SPARC_GOTDATA_OP_LOX10,
|
|
|
|
|
0, 0 },
|
2000-08-16 19:52:37 +02:00
|
|
|
|
{ NULL, 0, 0, 0, 0 }
|
1999-06-07 14:40:36 +02:00
|
|
|
|
};
|
|
|
|
|
const struct ops *o;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-07 14:40:36 +02:00
|
|
|
|
for (o = ops; o->name; o++)
|
|
|
|
|
if (strncmp (s + 1, o->name, o->len) == 0)
|
|
|
|
|
break;
|
|
|
|
|
if (o->name == NULL)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-07 14:40:36 +02:00
|
|
|
|
if (s[o->len + 1] != '(')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: %%%s requires arguments in ()"), o->name);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
return special_case;
|
1999-06-07 14:40:36 +02:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
1999-06-07 14:40:36 +02:00
|
|
|
|
op_arg = o->name;
|
|
|
|
|
the_insn.reloc = o->reloc;
|
|
|
|
|
s += o->len + 2;
|
|
|
|
|
v9_arg_p = o->v9_p;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Note that if the get_expression() fails, we will still
|
|
|
|
|
have created U entries in the symbol table for the
|
|
|
|
|
'symbols' in the input string. Try not to create U
|
|
|
|
|
symbols for registers, etc. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* This stuff checks to see if the expression ends in
|
|
|
|
|
+%reg. If it does, it removes the register from
|
|
|
|
|
the expression, and re-sets 's' to point to the
|
|
|
|
|
right place. */
|
|
|
|
|
|
1999-06-07 14:40:36 +02:00
|
|
|
|
if (op_arg)
|
|
|
|
|
{
|
|
|
|
|
int npar = 0;
|
|
|
|
|
|
|
|
|
|
for (s1 = s; *s1 && *s1 != ',' && *s1 != ']'; s1++)
|
|
|
|
|
if (*s1 == '(')
|
|
|
|
|
npar++;
|
|
|
|
|
else if (*s1 == ')')
|
|
|
|
|
{
|
|
|
|
|
if (!npar)
|
|
|
|
|
break;
|
|
|
|
|
npar--;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (*s1 != ')')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: %%%s requires arguments in ()"), op_arg);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
return special_case;
|
1999-06-07 14:40:36 +02:00
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-06-07 14:40:36 +02:00
|
|
|
|
*s1 = '\0';
|
|
|
|
|
(void) get_expression (s);
|
|
|
|
|
*s1 = ')';
|
|
|
|
|
s = s1 + 1;
|
|
|
|
|
if (*s == ',' || *s == ']' || !*s)
|
|
|
|
|
continue;
|
|
|
|
|
if (*s != '+' && *s != '-')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: Can't do arithmetics other than + and - involving %%%s()"), op_arg);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
return special_case;
|
1999-06-07 14:40:36 +02:00
|
|
|
|
}
|
|
|
|
|
*s1 = '0';
|
|
|
|
|
s = s1;
|
|
|
|
|
op_exp = the_insn.exp;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
memset (&the_insn.exp, 0, sizeof (the_insn.exp));
|
1999-06-07 14:40:36 +02:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
for (s1 = s; *s1 && *s1 != ',' && *s1 != ']'; s1++)
|
|
|
|
|
;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (s1 != s && ISDIGIT (s1[-1]))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (s1[-2] == '%' && s1[-3] == '+')
|
1999-06-07 14:40:36 +02:00
|
|
|
|
s1 -= 3;
|
|
|
|
|
else if (strchr ("goli0123456789", s1[-2]) && s1[-3] == '%' && s1[-4] == '+')
|
|
|
|
|
s1 -= 4;
|
|
|
|
|
else
|
|
|
|
|
s1 = NULL;
|
|
|
|
|
if (s1)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
*s1 = '\0';
|
1999-08-08 19:27:23 +02:00
|
|
|
|
if (op_arg && s1 == s + 1)
|
|
|
|
|
the_insn.exp.X_op = O_absent;
|
|
|
|
|
else
|
|
|
|
|
(void) get_expression (s);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
*s1 = '+';
|
1999-06-07 14:40:36 +02:00
|
|
|
|
if (op_arg)
|
|
|
|
|
*s = ')';
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s = s1;
|
|
|
|
|
}
|
1999-06-07 14:40:36 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
s1 = NULL;
|
|
|
|
|
|
|
|
|
|
if (!s1)
|
|
|
|
|
{
|
|
|
|
|
(void) get_expression (s);
|
|
|
|
|
if (op_arg)
|
|
|
|
|
*s = ')';
|
|
|
|
|
s = expr_end;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (op_arg)
|
|
|
|
|
{
|
|
|
|
|
the_insn.exp2 = the_insn.exp;
|
|
|
|
|
the_insn.exp = op_exp;
|
|
|
|
|
if (the_insn.exp2.X_op == O_absent)
|
|
|
|
|
the_insn.exp2.X_op = O_illegal;
|
|
|
|
|
else if (the_insn.exp.X_op == O_absent)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
1999-06-07 14:40:36 +02:00
|
|
|
|
the_insn.exp = the_insn.exp2;
|
|
|
|
|
the_insn.exp2.X_op = O_illegal;
|
|
|
|
|
}
|
|
|
|
|
else if (the_insn.exp.X_op == O_constant)
|
|
|
|
|
{
|
|
|
|
|
valueT val = the_insn.exp.X_add_number;
|
|
|
|
|
switch (the_insn.reloc)
|
|
|
|
|
{
|
1999-06-10 23:43:24 +02:00
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
|
1999-06-07 14:40:36 +02:00
|
|
|
|
case BFD_RELOC_SPARC_HH22:
|
|
|
|
|
val = BSR (val, 32);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Fall through. */
|
1999-06-07 14:40:36 +02:00
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_LM22:
|
|
|
|
|
case BFD_RELOC_HI22:
|
|
|
|
|
val = (val >> 10) & 0x3fffff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_HM10:
|
|
|
|
|
val = BSR (val, 32);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Fall through. */
|
1999-06-07 14:40:36 +02:00
|
|
|
|
|
|
|
|
|
case BFD_RELOC_LO10:
|
|
|
|
|
val &= 0x3ff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_H44:
|
|
|
|
|
val >>= 22;
|
|
|
|
|
val &= 0x3fffff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_M44:
|
|
|
|
|
val >>= 12;
|
|
|
|
|
val &= 0x3ff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_L44:
|
|
|
|
|
val &= 0xfff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_HIX22:
|
2000-08-04 03:01:32 +02:00
|
|
|
|
val = ~val;
|
1999-06-07 14:40:36 +02:00
|
|
|
|
val = (val >> 10) & 0x3fffff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_LOX10:
|
|
|
|
|
val = (val & 0x3ff) | 0x1c00;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
the_insn.exp = the_insn.exp2;
|
|
|
|
|
the_insn.exp.X_add_number += val;
|
|
|
|
|
the_insn.exp2.X_op = O_illegal;
|
|
|
|
|
the_insn.reloc = old_reloc;
|
|
|
|
|
}
|
|
|
|
|
else if (the_insn.exp2.X_op != O_constant)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: Can't add non-constant expression to %%%s()"), op_arg);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
return special_case;
|
1999-06-07 14:40:36 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1999-07-16 23:30:35 +02:00
|
|
|
|
if (old_reloc != BFD_RELOC_SPARC13
|
1999-06-07 14:40:36 +02:00
|
|
|
|
|| the_insn.reloc != BFD_RELOC_LO10
|
|
|
|
|
|| sparc_arch_size != 64
|
|
|
|
|
|| sparc_pic_code)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: Can't do arithmetics involving %%%s() of a relocatable symbol"), op_arg);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
return special_case;
|
1999-06-07 14:40:36 +02:00
|
|
|
|
}
|
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC_OLO10;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
/* Check for constants that don't require emitting a reloc. */
|
|
|
|
|
if (the_insn.exp.X_op == O_constant
|
|
|
|
|
&& the_insn.exp.X_add_symbol == 0
|
|
|
|
|
&& the_insn.exp.X_op_symbol == 0)
|
|
|
|
|
{
|
|
|
|
|
/* For pc-relative call instructions, we reject
|
|
|
|
|
constants to get better code. */
|
|
|
|
|
if (the_insn.pcrel
|
|
|
|
|
&& the_insn.reloc == BFD_RELOC_32_PCREL_S2
|
|
|
|
|
&& in_signed_range (the_insn.exp.X_add_number, 0x3fff))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": PC-relative operand can't be a constant");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
if (the_insn.reloc >= BFD_RELOC_SPARC_TLS_GD_HI22
|
|
|
|
|
&& the_insn.reloc <= BFD_RELOC_SPARC_TLS_TPOFF64)
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": TLS operand can't be a constant");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
gas:
* cgen.c, cgen.h, tc.h, write.c, config/obj-coff.c
* config/tc-a29k.c, config/tc-alpha.c, config/tc-alpha.h
* config/tc-arc.c, config/tc-arc.h, config/tc-arm.c
* config/tc-arm.h, config/tc-avr.c, config/tc-avr.h
* config/tc-cris.c, config/tc-crx.c, config/tc-d10v.c
* config/tc-d10v.h, config/tc-d30v.c, config/tc-d30v.h
* config/tc-dlx.c, config/tc-dlx.h, config/tc-fr30.h
* config/tc-frv.c, config/tc-frv.h, config/tc-h8300.c
* config/tc-h8500.c, config/tc-hppa.c, config/tc-hppa.h
* config/tc-i370.c, config/tc-i370.h, config/tc-i386.c
* config/tc-i386.h, config/tc-i860.c, config/tc-i860.h
* config/tc-i960.c, config/tc-i960.h, config/tc-ia64.c
* config/tc-ip2k.c, config/tc-ip2k.h, config/tc-iq2000.c
* config/tc-iq2000.h, config/tc-m32r.c, config/tc-m32r.h
* config/tc-m68hc11.c, config/tc-m68hc11.h, config/tc-m68k.c
* config/tc-m68k.h, config/tc-m88k.c, config/tc-maxq.c
* config/tc-mcore.c, config/tc-mcore.h, config/tc-mips.c
* config/tc-mips.h, config/tc-mmix.c, config/tc-mn10200.c
* config/tc-mn10300.c, config/tc-msp430.c, config/tc-ns32k.c
* config/tc-openrisc.h, config/tc-or32.c, config/tc-or32.h
* config/tc-pdp11.c, config/tc-pj.c, config/tc-pj.h
* config/tc-ppc.c, config/tc-ppc.h, config/tc-s390.c
* config/tc-s390.h, config/tc-sh64.c, config/tc-sh.c
* config/tc-sh.h, config/tc-sparc.c, config/tc-sparc.h
* config/tc-tahoe.c, config/tc-tic30.c, config/tc-tic4x.c
* config/tc-tic54x.c, config/tc-tic80.c, config/tc-v850.c
* config/tc-v850.h, config/tc-vax.c, config/tc-vax.h
* config/tc-w65.c, config/tc-xstormy16.c, config/tc-xstormy16.h
* config/tc-xtensa.c, config/tc-z8k.c:
Replace all instances of the string "_apply_fix3" with
"_apply_fix".
* po/POTFILES.in, po/gas.pot: Regenerate.
bfd:
* coff-i386.c: Change md_apply_fix3 to md_apply_fix in comment.
cgen:
* doc/porting.texi: Change all mention of md_apply_fix3 and
gas_cgen_md_apply_fix3 to md_apply_fix and gas_cgen_md_apply_fix
respectively.
2005-06-07 19:54:22 +02:00
|
|
|
|
/* Constants that won't fit are checked in md_apply_fix
|
1999-05-03 09:29:11 +02:00
|
|
|
|
and bfd_install_relocation.
|
|
|
|
|
??? It would be preferable to install the constants
|
|
|
|
|
into the insn here and save having to create a fixS
|
|
|
|
|
for each one. There already exists code to handle
|
gas:
* cgen.c, cgen.h, tc.h, write.c, config/obj-coff.c
* config/tc-a29k.c, config/tc-alpha.c, config/tc-alpha.h
* config/tc-arc.c, config/tc-arc.h, config/tc-arm.c
* config/tc-arm.h, config/tc-avr.c, config/tc-avr.h
* config/tc-cris.c, config/tc-crx.c, config/tc-d10v.c
* config/tc-d10v.h, config/tc-d30v.c, config/tc-d30v.h
* config/tc-dlx.c, config/tc-dlx.h, config/tc-fr30.h
* config/tc-frv.c, config/tc-frv.h, config/tc-h8300.c
* config/tc-h8500.c, config/tc-hppa.c, config/tc-hppa.h
* config/tc-i370.c, config/tc-i370.h, config/tc-i386.c
* config/tc-i386.h, config/tc-i860.c, config/tc-i860.h
* config/tc-i960.c, config/tc-i960.h, config/tc-ia64.c
* config/tc-ip2k.c, config/tc-ip2k.h, config/tc-iq2000.c
* config/tc-iq2000.h, config/tc-m32r.c, config/tc-m32r.h
* config/tc-m68hc11.c, config/tc-m68hc11.h, config/tc-m68k.c
* config/tc-m68k.h, config/tc-m88k.c, config/tc-maxq.c
* config/tc-mcore.c, config/tc-mcore.h, config/tc-mips.c
* config/tc-mips.h, config/tc-mmix.c, config/tc-mn10200.c
* config/tc-mn10300.c, config/tc-msp430.c, config/tc-ns32k.c
* config/tc-openrisc.h, config/tc-or32.c, config/tc-or32.h
* config/tc-pdp11.c, config/tc-pj.c, config/tc-pj.h
* config/tc-ppc.c, config/tc-ppc.h, config/tc-s390.c
* config/tc-s390.h, config/tc-sh64.c, config/tc-sh.c
* config/tc-sh.h, config/tc-sparc.c, config/tc-sparc.h
* config/tc-tahoe.c, config/tc-tic30.c, config/tc-tic4x.c
* config/tc-tic54x.c, config/tc-tic80.c, config/tc-v850.c
* config/tc-v850.h, config/tc-vax.c, config/tc-vax.h
* config/tc-w65.c, config/tc-xstormy16.c, config/tc-xstormy16.h
* config/tc-xtensa.c, config/tc-z8k.c:
Replace all instances of the string "_apply_fix3" with
"_apply_fix".
* po/POTFILES.in, po/gas.pot: Regenerate.
bfd:
* coff-i386.c: Change md_apply_fix3 to md_apply_fix in comment.
cgen:
* doc/porting.texi: Change all mention of md_apply_fix3 and
gas_cgen_md_apply_fix3 to md_apply_fix and gas_cgen_md_apply_fix
respectively.
2005-06-07 19:54:22 +02:00
|
|
|
|
all the various cases (e.g. in md_apply_fix and
|
1999-05-03 09:29:11 +02:00
|
|
|
|
bfd_install_relocation) so duplicating all that code
|
|
|
|
|
here isn't right. */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'a':
|
|
|
|
|
if (*s++ == 'a')
|
|
|
|
|
{
|
|
|
|
|
opcode |= ANNUL;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'A':
|
|
|
|
|
{
|
|
|
|
|
int asi = 0;
|
|
|
|
|
|
|
|
|
|
/* Parse an asi. */
|
|
|
|
|
if (*s == '#')
|
|
|
|
|
{
|
|
|
|
|
if (! parse_keyword_arg (sparc_encode_asi, &s, &asi))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid ASI name");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (! parse_const_expr_arg (&s, &asi))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid ASI expression");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (asi < 0 || asi > 255)
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid ASI number");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
opcode |= ASI (asi);
|
|
|
|
|
continue;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
} /* Alternate space. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
case 'p':
|
|
|
|
|
if (strncmp (s, "%psr", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
case 'q': /* Floating point queue. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (strncmp (s, "%fq", 3) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
case 'Q': /* Coprocessor queue. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (strncmp (s, "%cq", 3) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'S':
|
|
|
|
|
if (strcmp (str, "set") == 0
|
|
|
|
|
|| strcmp (str, "setuw") == 0)
|
|
|
|
|
{
|
|
|
|
|
special_case = SPECIAL_CASE_SET;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (str, "setsw") == 0)
|
|
|
|
|
{
|
|
|
|
|
special_case = SPECIAL_CASE_SETSW;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (str, "setx") == 0)
|
|
|
|
|
{
|
|
|
|
|
special_case = SPECIAL_CASE_SETX;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else if (strncmp (str, "fdiv", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
special_case = SPECIAL_CASE_FDIV;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'o':
|
|
|
|
|
if (strncmp (s, "%asi", 4) != 0)
|
|
|
|
|
break;
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 's':
|
|
|
|
|
if (strncmp (s, "%fprs", 5) != 0)
|
|
|
|
|
break;
|
|
|
|
|
s += 5;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'E':
|
|
|
|
|
if (strncmp (s, "%ccr", 4) != 0)
|
|
|
|
|
break;
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 't':
|
|
|
|
|
if (strncmp (s, "%tbr", 4) != 0)
|
|
|
|
|
break;
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'w':
|
|
|
|
|
if (strncmp (s, "%wim", 4) != 0)
|
|
|
|
|
break;
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'x':
|
|
|
|
|
{
|
|
|
|
|
char *push = input_line_pointer;
|
|
|
|
|
expressionS e;
|
|
|
|
|
|
|
|
|
|
input_line_pointer = s;
|
|
|
|
|
expression (&e);
|
|
|
|
|
if (e.X_op == O_constant)
|
|
|
|
|
{
|
|
|
|
|
int n = e.X_add_number;
|
|
|
|
|
if (n != e.X_add_number || (n & ~0x1ff) != 0)
|
|
|
|
|
as_bad (_("OPF immediate operand out of range (0-0x1ff)"));
|
|
|
|
|
else
|
|
|
|
|
opcode |= e.X_add_number << 5;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("non-immediate OPF operand, ignored"));
|
|
|
|
|
s = input_line_pointer;
|
|
|
|
|
input_line_pointer = push;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
case 'y':
|
|
|
|
|
if (strncmp (s, "%y", 2) != 0)
|
|
|
|
|
break;
|
|
|
|
|
s += 2;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'u':
|
|
|
|
|
case 'U':
|
|
|
|
|
{
|
|
|
|
|
/* Parse a sparclet cpreg. */
|
|
|
|
|
int cpreg;
|
|
|
|
|
if (! parse_keyword_arg (sparc_encode_sparclet_cpreg, &s, &cpreg))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": invalid cpreg name");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
opcode |= (*args == 'U' ? RS1 (cpreg) : RD (cpreg));
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
as_fatal (_("failed sanity check."));
|
2000-07-27 06:05:05 +02:00
|
|
|
|
} /* switch on arg code. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Break out of for() loop. */
|
|
|
|
|
break;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
} /* For each arg that we expect. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
if (match == 0)
|
|
|
|
|
{
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Args don't match. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (&insn[1] - sparc_opcodes < sparc_num_opcodes
|
|
|
|
|
&& (insn->name == insn[1].name
|
|
|
|
|
|| !strcmp (insn->name, insn[1].name)))
|
|
|
|
|
{
|
|
|
|
|
++insn;
|
|
|
|
|
s = argsStart;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands%s"), error_message);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
return special_case;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* We have a match. Now see if the architecture is OK. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int needed_arch_mask = insn->architecture;
|
|
|
|
|
|
|
|
|
|
if (v9_arg_p)
|
|
|
|
|
{
|
2000-10-20 12:38:47 +02:00
|
|
|
|
needed_arch_mask &=
|
|
|
|
|
~(SPARC_OPCODE_ARCH_MASK (SPARC_OPCODE_ARCH_V9) - 1);
|
|
|
|
|
if (! needed_arch_mask)
|
|
|
|
|
needed_arch_mask =
|
|
|
|
|
SPARC_OPCODE_ARCH_MASK (SPARC_OPCODE_ARCH_V9);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
if (needed_arch_mask
|
|
|
|
|
& SPARC_OPCODE_SUPPORTED (current_architecture))
|
|
|
|
|
/* OK. */
|
|
|
|
|
;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Can we bump up the architecture? */
|
2000-07-27 06:05:05 +02:00
|
|
|
|
else if (needed_arch_mask
|
|
|
|
|
& SPARC_OPCODE_SUPPORTED (max_architecture))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
enum sparc_opcode_arch_val needed_architecture =
|
|
|
|
|
sparc_ffs (SPARC_OPCODE_SUPPORTED (max_architecture)
|
|
|
|
|
& needed_arch_mask);
|
|
|
|
|
|
* gas/app, gas/as.c, gas/as.h, gas/atof-generic.c, gas/cgen.c,
gas/config/atof-ieee.c, gas/config/obj-aout.c,
gas/config/obj-coff.c, gas/config/obj-ecoff.c,
gas/config/obj-elf.c, gas/config/obj-som.c, gas/config/tc-alpha.c,
gas/config/tc-arc.c, gas/config/tc-arm.c, gas/config/tc-cr16.c,
gas/config/tc-cris.c, gas/config/tc-crx.c, gas/config/tc-d30v.c,
gas/config/tc-dlx.c, gas/config/tc-hppa.c, gas/config/tc-i370.c,
gas/config/tc-i386-intel.c, gas/config/tc-i386.c,
gas/config/tc-i860.c, gas/config/tc-i960.c, gas/config/tc-ia64.c,
gas/config/tc-iq2000.c, gas/config/tc-m32c.c,
gas/config/tc-m32r.c, gas/config/tc-m68hc11.c,
gas/config/tc-m68k.c, gas/config/tc-maxq.c, gas/config/tc-mcore.c,
gas/config/tc-mep.c, gas/config/tc-mips.c, gas/config/tc-mmix.c,
gas/config/tc-mn10300.c, gas/config/tc-moxie.c,
gas/config/tc-ns32k.c, gas/config/tc-pj.c, gas/config/tc-ppc.c,
gas/config/tc-s390.c, gas/config/tc-score.c,
gas/config/tc-score7.c, gas/config/tc-sh.c, gas/config/tc-sparc.c,
gas/config/tc-spu.c, gas/config/tc-tic30.c, gas/config/tc-vax.c,
gas/config/tc-xtensa.c, gas/config/xtensa-relax.c,
gas/dw2gencfi.c, gas/dwarf2dbg.c, gas/ehopt.c, gas/expr.c,
gas/frags.c, gas/input-file.c, gas/read.c, gas/sb.c,
gas/subsegs.c, gas/symbols.c, gas/write.c: Change the name of the
gas macro `assert' to `gas_assert'.
2009-06-22 19:56:02 +02:00
|
|
|
|
gas_assert (needed_architecture <= SPARC_OPCODE_ARCH_MAX);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (warn_on_bump
|
|
|
|
|
&& needed_architecture > warn_after_architecture)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("architecture bumped from \"%s\" to \"%s\" on \"%s\""),
|
|
|
|
|
sparc_opcode_archs[current_architecture].name,
|
|
|
|
|
sparc_opcode_archs[needed_architecture].name,
|
|
|
|
|
str);
|
|
|
|
|
warn_after_architecture = needed_architecture;
|
|
|
|
|
}
|
|
|
|
|
current_architecture = needed_architecture;
|
|
|
|
|
}
|
|
|
|
|
/* Conflict. */
|
|
|
|
|
/* ??? This seems to be a bit fragile. What if the next entry in
|
|
|
|
|
the opcode table is the one we want and it is supported?
|
|
|
|
|
It is possible to arrange the table today so that this can't
|
|
|
|
|
happen but what about tomorrow? */
|
|
|
|
|
else
|
|
|
|
|
{
|
2000-07-27 06:05:05 +02:00
|
|
|
|
int arch, printed_one_p = 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
char *p;
|
|
|
|
|
char required_archs[SPARC_OPCODE_ARCH_MAX * 16];
|
|
|
|
|
|
|
|
|
|
/* Create a list of the architectures that support the insn. */
|
2000-07-27 06:05:05 +02:00
|
|
|
|
needed_arch_mask &= ~SPARC_OPCODE_SUPPORTED (max_architecture);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
p = required_archs;
|
|
|
|
|
arch = sparc_ffs (needed_arch_mask);
|
|
|
|
|
while ((1 << arch) <= needed_arch_mask)
|
|
|
|
|
{
|
|
|
|
|
if ((1 << arch) & needed_arch_mask)
|
|
|
|
|
{
|
|
|
|
|
if (printed_one_p)
|
|
|
|
|
*p++ = '|';
|
|
|
|
|
strcpy (p, sparc_opcode_archs[arch].name);
|
|
|
|
|
p += strlen (p);
|
|
|
|
|
printed_one_p = 1;
|
|
|
|
|
}
|
|
|
|
|
++arch;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
as_bad (_("Architecture mismatch on \"%s\"."), str);
|
|
|
|
|
as_tsktsk (_(" (Requires %s; requested architecture is %s.)"),
|
|
|
|
|
required_archs,
|
|
|
|
|
sparc_opcode_archs[max_architecture].name);
|
1999-06-10 23:11:39 +02:00
|
|
|
|
return special_case;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
} /* If no match. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
break;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
} /* Forever looking for a match. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
the_insn.opcode = opcode;
|
1999-06-10 23:11:39 +02:00
|
|
|
|
return special_case;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Parse an argument that can be expressed as a keyword.
|
|
|
|
|
(eg: #StoreStore or %ccfr).
|
|
|
|
|
The result is a boolean indicating success.
|
|
|
|
|
If successful, INPUT_POINTER is updated. */
|
|
|
|
|
|
|
|
|
|
static int
|
2008-08-13 01:39:31 +02:00
|
|
|
|
parse_keyword_arg (int (*lookup_fn) (const char *),
|
|
|
|
|
char **input_pointerP,
|
|
|
|
|
int *valueP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
int value;
|
|
|
|
|
char c, *p, *q;
|
|
|
|
|
|
|
|
|
|
p = *input_pointerP;
|
|
|
|
|
for (q = p + (*p == '#' || *p == '%');
|
2001-09-19 07:33:36 +02:00
|
|
|
|
ISALNUM (*q) || *q == '_';
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++q)
|
|
|
|
|
continue;
|
|
|
|
|
c = *q;
|
|
|
|
|
*q = 0;
|
|
|
|
|
value = (*lookup_fn) (p);
|
|
|
|
|
*q = c;
|
|
|
|
|
if (value == -1)
|
|
|
|
|
return 0;
|
|
|
|
|
*valueP = value;
|
|
|
|
|
*input_pointerP = q;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Parse an argument that is a constant expression.
|
|
|
|
|
The result is a boolean indicating success. */
|
|
|
|
|
|
|
|
|
|
static int
|
2008-08-13 01:39:31 +02:00
|
|
|
|
parse_const_expr_arg (char **input_pointerP, int *valueP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *save = input_line_pointer;
|
|
|
|
|
expressionS exp;
|
|
|
|
|
|
|
|
|
|
input_line_pointer = *input_pointerP;
|
|
|
|
|
/* The next expression may be something other than a constant
|
|
|
|
|
(say if we're not processing the right variant of the insn).
|
|
|
|
|
Don't call expression unless we're sure it will succeed as it will
|
|
|
|
|
signal an error (which we want to defer until later). */
|
|
|
|
|
/* FIXME: It might be better to define md_operand and have it recognize
|
|
|
|
|
things like %asi, etc. but continuing that route through to the end
|
|
|
|
|
is a lot of work. */
|
|
|
|
|
if (*input_line_pointer == '%')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer = save;
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
expression (&exp);
|
|
|
|
|
*input_pointerP = input_line_pointer;
|
|
|
|
|
input_line_pointer = save;
|
|
|
|
|
if (exp.X_op != O_constant)
|
|
|
|
|
return 0;
|
|
|
|
|
*valueP = exp.X_add_number;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Subroutine of sparc_ip to parse an expression. */
|
|
|
|
|
|
|
|
|
|
static int
|
2008-08-13 01:39:31 +02:00
|
|
|
|
get_expression (char *str)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *save_in;
|
|
|
|
|
segT seg;
|
|
|
|
|
|
|
|
|
|
save_in = input_line_pointer;
|
|
|
|
|
input_line_pointer = str;
|
|
|
|
|
seg = expression (&the_insn.exp);
|
|
|
|
|
if (seg != absolute_section
|
|
|
|
|
&& seg != text_section
|
|
|
|
|
&& seg != data_section
|
|
|
|
|
&& seg != bss_section
|
|
|
|
|
&& seg != undefined_section)
|
|
|
|
|
{
|
|
|
|
|
the_insn.error = _("bad segment");
|
|
|
|
|
expr_end = input_line_pointer;
|
|
|
|
|
input_line_pointer = save_in;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
expr_end = input_line_pointer;
|
|
|
|
|
input_line_pointer = save_in;
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Subroutine of md_assemble to output one insn. */
|
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
output_insn (const struct sparc_opcode *insn, struct sparc_it *the_insn)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *toP = frag_more (4);
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Put out the opcode. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (INSN_BIG_ENDIAN)
|
|
|
|
|
number_to_chars_bigendian (toP, (valueT) the_insn->opcode, 4);
|
|
|
|
|
else
|
|
|
|
|
number_to_chars_littleendian (toP, (valueT) the_insn->opcode, 4);
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Put out the symbol-dependent stuff. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (the_insn->reloc != BFD_RELOC_NONE)
|
|
|
|
|
{
|
2000-07-27 06:05:05 +02:00
|
|
|
|
fixS *fixP = fix_new_exp (frag_now, /* Which frag. */
|
|
|
|
|
(toP - frag_now->fr_literal), /* Where. */
|
|
|
|
|
4, /* Size. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&the_insn->exp,
|
|
|
|
|
the_insn->pcrel,
|
|
|
|
|
the_insn->reloc);
|
|
|
|
|
/* Turn off overflow checking in fixup_segment. We'll do our
|
gas:
* cgen.c, cgen.h, tc.h, write.c, config/obj-coff.c
* config/tc-a29k.c, config/tc-alpha.c, config/tc-alpha.h
* config/tc-arc.c, config/tc-arc.h, config/tc-arm.c
* config/tc-arm.h, config/tc-avr.c, config/tc-avr.h
* config/tc-cris.c, config/tc-crx.c, config/tc-d10v.c
* config/tc-d10v.h, config/tc-d30v.c, config/tc-d30v.h
* config/tc-dlx.c, config/tc-dlx.h, config/tc-fr30.h
* config/tc-frv.c, config/tc-frv.h, config/tc-h8300.c
* config/tc-h8500.c, config/tc-hppa.c, config/tc-hppa.h
* config/tc-i370.c, config/tc-i370.h, config/tc-i386.c
* config/tc-i386.h, config/tc-i860.c, config/tc-i860.h
* config/tc-i960.c, config/tc-i960.h, config/tc-ia64.c
* config/tc-ip2k.c, config/tc-ip2k.h, config/tc-iq2000.c
* config/tc-iq2000.h, config/tc-m32r.c, config/tc-m32r.h
* config/tc-m68hc11.c, config/tc-m68hc11.h, config/tc-m68k.c
* config/tc-m68k.h, config/tc-m88k.c, config/tc-maxq.c
* config/tc-mcore.c, config/tc-mcore.h, config/tc-mips.c
* config/tc-mips.h, config/tc-mmix.c, config/tc-mn10200.c
* config/tc-mn10300.c, config/tc-msp430.c, config/tc-ns32k.c
* config/tc-openrisc.h, config/tc-or32.c, config/tc-or32.h
* config/tc-pdp11.c, config/tc-pj.c, config/tc-pj.h
* config/tc-ppc.c, config/tc-ppc.h, config/tc-s390.c
* config/tc-s390.h, config/tc-sh64.c, config/tc-sh.c
* config/tc-sh.h, config/tc-sparc.c, config/tc-sparc.h
* config/tc-tahoe.c, config/tc-tic30.c, config/tc-tic4x.c
* config/tc-tic54x.c, config/tc-tic80.c, config/tc-v850.c
* config/tc-v850.h, config/tc-vax.c, config/tc-vax.h
* config/tc-w65.c, config/tc-xstormy16.c, config/tc-xstormy16.h
* config/tc-xtensa.c, config/tc-z8k.c:
Replace all instances of the string "_apply_fix3" with
"_apply_fix".
* po/POTFILES.in, po/gas.pot: Regenerate.
bfd:
* coff-i386.c: Change md_apply_fix3 to md_apply_fix in comment.
cgen:
* doc/porting.texi: Change all mention of md_apply_fix3 and
gas_cgen_md_apply_fix3 to md_apply_fix and gas_cgen_md_apply_fix
respectively.
2005-06-07 19:54:22 +02:00
|
|
|
|
own overflow checking in md_apply_fix. This is necessary because
|
1999-05-03 09:29:11 +02:00
|
|
|
|
the insn size is 4 and fixup_segment will signal an overflow for
|
|
|
|
|
large 8 byte quantities. */
|
|
|
|
|
fixP->fx_no_overflow = 1;
|
1999-07-16 23:30:35 +02:00
|
|
|
|
if (the_insn->reloc == BFD_RELOC_SPARC_OLO10)
|
|
|
|
|
fixP->tc_fix_data = the_insn->exp2.X_add_number;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
last_insn = insn;
|
|
|
|
|
last_opcode = the_insn->opcode;
|
2000-11-21 13:40:14 +01:00
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
dwarf2_emit_insn (4);
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
char *
|
2007-10-17 18:45:56 +02:00
|
|
|
|
md_atof (int type, char *litP, int *sizeP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2007-10-17 18:45:56 +02:00
|
|
|
|
return ieee_md_atof (type, litP, sizeP, target_big_endian);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write a value out to the object file, using the appropriate
|
|
|
|
|
endianness. */
|
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
md_number_to_chars (char *buf, valueT val, int n)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
number_to_chars_bigendian (buf, val, n);
|
|
|
|
|
else if (target_little_endian_data
|
|
|
|
|
&& ((n == 4 || n == 2) && ~now_seg->flags & SEC_ALLOC))
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Output debug words, which are not in allocated sections, as big
|
|
|
|
|
endian. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
number_to_chars_bigendian (buf, val, n);
|
|
|
|
|
else if (target_little_endian_data || ! target_big_endian)
|
|
|
|
|
number_to_chars_littleendian (buf, val, n);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Apply a fixS to the frags, now that we know the value it ought to
|
2000-09-26 09:09:19 +02:00
|
|
|
|
hold. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-11-15 22:29:00 +01:00
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
md_apply_fix (fixS *fixP, valueT *valP, segT segment ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *buf = fixP->fx_where + fixP->fx_frag->fr_literal;
|
2001-11-15 22:29:00 +01:00
|
|
|
|
offsetT val = * (offsetT *) valP;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
long insn;
|
|
|
|
|
|
* gas/app, gas/as.c, gas/as.h, gas/atof-generic.c, gas/cgen.c,
gas/config/atof-ieee.c, gas/config/obj-aout.c,
gas/config/obj-coff.c, gas/config/obj-ecoff.c,
gas/config/obj-elf.c, gas/config/obj-som.c, gas/config/tc-alpha.c,
gas/config/tc-arc.c, gas/config/tc-arm.c, gas/config/tc-cr16.c,
gas/config/tc-cris.c, gas/config/tc-crx.c, gas/config/tc-d30v.c,
gas/config/tc-dlx.c, gas/config/tc-hppa.c, gas/config/tc-i370.c,
gas/config/tc-i386-intel.c, gas/config/tc-i386.c,
gas/config/tc-i860.c, gas/config/tc-i960.c, gas/config/tc-ia64.c,
gas/config/tc-iq2000.c, gas/config/tc-m32c.c,
gas/config/tc-m32r.c, gas/config/tc-m68hc11.c,
gas/config/tc-m68k.c, gas/config/tc-maxq.c, gas/config/tc-mcore.c,
gas/config/tc-mep.c, gas/config/tc-mips.c, gas/config/tc-mmix.c,
gas/config/tc-mn10300.c, gas/config/tc-moxie.c,
gas/config/tc-ns32k.c, gas/config/tc-pj.c, gas/config/tc-ppc.c,
gas/config/tc-s390.c, gas/config/tc-score.c,
gas/config/tc-score7.c, gas/config/tc-sh.c, gas/config/tc-sparc.c,
gas/config/tc-spu.c, gas/config/tc-tic30.c, gas/config/tc-vax.c,
gas/config/tc-xtensa.c, gas/config/xtensa-relax.c,
gas/dw2gencfi.c, gas/dwarf2dbg.c, gas/ehopt.c, gas/expr.c,
gas/frags.c, gas/input-file.c, gas/read.c, gas/sb.c,
gas/subsegs.c, gas/symbols.c, gas/write.c: Change the name of the
gas macro `assert' to `gas_assert'.
2009-06-22 19:56:02 +02:00
|
|
|
|
gas_assert (fixP->fx_r_type < BFD_RELOC_UNUSED);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
fixP->fx_addnumber = val; /* Remember value for emit_reloc. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
2002-09-05 02:01:18 +02:00
|
|
|
|
/* SPARC ELF relocations don't use an addend in the data field. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (fixP->fx_addsy != NULL)
|
2004-10-02 02:18:31 +02:00
|
|
|
|
{
|
|
|
|
|
switch (fixP->fx_r_type)
|
|
|
|
|
{
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_GD_HI22:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_GD_LO10:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_GD_ADD:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_GD_CALL:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDM_HI22:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDM_LO10:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDM_ADD:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDM_CALL:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDO_HIX22:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDO_LOX10:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDO_ADD:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_IE_HI22:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_IE_LO10:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_IE_LD:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_IE_LDX:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_IE_ADD:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LE_HIX22:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LE_LOX10:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_DTPMOD32:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_DTPMOD64:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_DTPOFF32:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_DTPOFF64:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_TPOFF32:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_TPOFF64:
|
|
|
|
|
S_SET_THREAD_LOCAL (fixP->fx_addsy);
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* This is a hack. There should be a better way to
|
|
|
|
|
handle this. Probably in terms of howto fields, once
|
|
|
|
|
we can look at these fixups in terms of howtos. */
|
|
|
|
|
if (fixP->fx_r_type == BFD_RELOC_32_PCREL_S2 && fixP->fx_addsy)
|
|
|
|
|
val += fixP->fx_where + fixP->fx_frag->fr_address;
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_AOUT
|
|
|
|
|
/* FIXME: More ridiculous gas reloc hacking. If we are going to
|
|
|
|
|
generate a reloc, then we just want to let the reloc addend set
|
|
|
|
|
the value. We do not want to also stuff the addend into the
|
|
|
|
|
object file. Including the addend in the object file works when
|
|
|
|
|
doing a static link, because the linker will ignore the object
|
|
|
|
|
file contents. However, the dynamic linker does not ignore the
|
|
|
|
|
object file contents. */
|
|
|
|
|
if (fixP->fx_addsy != NULL
|
|
|
|
|
&& fixP->fx_r_type != BFD_RELOC_32_PCREL_S2)
|
|
|
|
|
val = 0;
|
|
|
|
|
|
|
|
|
|
/* When generating PIC code, we do not want an addend for a reloc
|
|
|
|
|
against a local symbol. We adjust fx_addnumber to cancel out the
|
|
|
|
|
value already included in val, and to also cancel out the
|
|
|
|
|
adjustment which bfd_install_relocation will create. */
|
|
|
|
|
if (sparc_pic_code
|
|
|
|
|
&& fixP->fx_r_type != BFD_RELOC_32_PCREL_S2
|
|
|
|
|
&& fixP->fx_addsy != NULL
|
|
|
|
|
&& ! S_IS_COMMON (fixP->fx_addsy)
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
&& symbol_section_p (fixP->fx_addsy))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fixP->fx_addnumber -= 2 * S_GET_VALUE (fixP->fx_addsy);
|
|
|
|
|
|
|
|
|
|
/* When generating PIC code, we need to fiddle to get
|
|
|
|
|
bfd_install_relocation to do the right thing for a PC relative
|
|
|
|
|
reloc against a local symbol which we are going to keep. */
|
|
|
|
|
if (sparc_pic_code
|
|
|
|
|
&& fixP->fx_r_type == BFD_RELOC_32_PCREL_S2
|
|
|
|
|
&& fixP->fx_addsy != NULL
|
|
|
|
|
&& (S_IS_EXTERNAL (fixP->fx_addsy)
|
|
|
|
|
|| S_IS_WEAK (fixP->fx_addsy))
|
|
|
|
|
&& S_IS_DEFINED (fixP->fx_addsy)
|
|
|
|
|
&& ! S_IS_COMMON (fixP->fx_addsy))
|
|
|
|
|
{
|
|
|
|
|
val = 0;
|
|
|
|
|
fixP->fx_addnumber -= 2 * S_GET_VALUE (fixP->fx_addsy);
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* If this is a data relocation, just output VAL. */
|
|
|
|
|
|
2001-05-28 11:23:54 +02:00
|
|
|
|
if (fixP->fx_r_type == BFD_RELOC_16
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_SPARC_UA16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (buf, val, 2);
|
|
|
|
|
}
|
|
|
|
|
else if (fixP->fx_r_type == BFD_RELOC_32
|
2001-05-28 11:23:54 +02:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_SPARC_UA32
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_SPARC_REV32)
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (buf, val, 4);
|
|
|
|
|
}
|
2001-05-28 11:23:54 +02:00
|
|
|
|
else if (fixP->fx_r_type == BFD_RELOC_64
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_SPARC_UA64)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (buf, val, 8);
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
else if (fixP->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
|
|
|
|
{
|
|
|
|
|
fixP->fx_done = 0;
|
2001-11-15 22:29:00 +01:00
|
|
|
|
return;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* It's a relocation against an instruction. */
|
|
|
|
|
|
|
|
|
|
if (INSN_BIG_ENDIAN)
|
|
|
|
|
insn = bfd_getb32 ((unsigned char *) buf);
|
|
|
|
|
else
|
|
|
|
|
insn = bfd_getl32 ((unsigned char *) buf);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
switch (fixP->fx_r_type)
|
|
|
|
|
{
|
|
|
|
|
case BFD_RELOC_32_PCREL_S2:
|
|
|
|
|
val = val >> 2;
|
|
|
|
|
/* FIXME: This increment-by-one deserves a comment of why it's
|
|
|
|
|
being done! */
|
|
|
|
|
if (! sparc_pic_code
|
|
|
|
|
|| fixP->fx_addsy == NULL
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
|| symbol_section_p (fixP->fx_addsy))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++val;
|
2000-05-26 08:45:55 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
insn |= val & 0x3fffffff;
|
2000-05-26 08:45:55 +02:00
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* See if we have a delay slot. */
|
2000-05-26 08:45:55 +02:00
|
|
|
|
if (sparc_relax && fixP->fx_where + 8 <= fixP->fx_frag->fr_fix)
|
|
|
|
|
{
|
|
|
|
|
#define G0 0
|
|
|
|
|
#define O7 15
|
|
|
|
|
#define XCC (2 << 20)
|
|
|
|
|
#define COND(x) (((x)&0xf)<<25)
|
|
|
|
|
#define CONDA COND(0x8)
|
|
|
|
|
#define INSN_BPA (F2(0,1) | CONDA | BPRED | XCC)
|
|
|
|
|
#define INSN_BA (F2(0,2) | CONDA)
|
|
|
|
|
#define INSN_OR F3(2, 0x2, 0)
|
|
|
|
|
#define INSN_NOP F2(0,4)
|
|
|
|
|
|
|
|
|
|
long delay;
|
|
|
|
|
|
|
|
|
|
/* If the instruction is a call with either:
|
|
|
|
|
restore
|
|
|
|
|
arithmetic instruction with rd == %o7
|
|
|
|
|
where rs1 != %o7 and rs2 if it is register != %o7
|
|
|
|
|
then we can optimize if the call destination is near
|
|
|
|
|
by changing the call into a branch always. */
|
|
|
|
|
if (INSN_BIG_ENDIAN)
|
|
|
|
|
delay = bfd_getb32 ((unsigned char *) buf + 4);
|
|
|
|
|
else
|
|
|
|
|
delay = bfd_getl32 ((unsigned char *) buf + 4);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
if ((insn & OP (~0)) != OP (1) || (delay & OP (~0)) != OP (2))
|
2000-05-26 08:45:55 +02:00
|
|
|
|
break;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
if ((delay & OP3 (~0)) != OP3 (0x3d) /* Restore. */
|
|
|
|
|
&& ((delay & OP3 (0x28)) != 0 /* Arithmetic. */
|
|
|
|
|
|| ((delay & RD (~0)) != RD (O7))))
|
2000-05-26 08:45:55 +02:00
|
|
|
|
break;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
if ((delay & RS1 (~0)) == RS1 (O7)
|
|
|
|
|
|| ((delay & F3I (~0)) == 0
|
|
|
|
|
&& (delay & RS2 (~0)) == RS2 (O7)))
|
2000-05-26 08:45:55 +02:00
|
|
|
|
break;
|
|
|
|
|
/* Ensure the branch will fit into simm22. */
|
|
|
|
|
if ((val & 0x3fe00000)
|
|
|
|
|
&& (val & 0x3fe00000) != 0x3fe00000)
|
|
|
|
|
break;
|
|
|
|
|
/* Check if the arch is v9 and branch will fit
|
|
|
|
|
into simm19. */
|
|
|
|
|
if (((val & 0x3c0000) == 0
|
|
|
|
|
|| (val & 0x3c0000) == 0x3c0000)
|
|
|
|
|
&& (sparc_arch_size == 64
|
|
|
|
|
|| current_architecture >= SPARC_OPCODE_ARCH_V9))
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* ba,pt %xcc */
|
2000-05-26 08:45:55 +02:00
|
|
|
|
insn = INSN_BPA | (val & 0x7ffff);
|
|
|
|
|
else
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* ba */
|
2000-05-26 08:45:55 +02:00
|
|
|
|
insn = INSN_BA | (val & 0x3fffff);
|
|
|
|
|
if (fixP->fx_where >= 4
|
2000-07-27 06:05:05 +02:00
|
|
|
|
&& ((delay & (0xffffffff ^ RS1 (~0)))
|
|
|
|
|
== (INSN_OR | RD (O7) | RS2 (G0))))
|
2000-05-26 08:45:55 +02:00
|
|
|
|
{
|
|
|
|
|
long setter;
|
|
|
|
|
int reg;
|
|
|
|
|
|
|
|
|
|
if (INSN_BIG_ENDIAN)
|
|
|
|
|
setter = bfd_getb32 ((unsigned char *) buf - 4);
|
|
|
|
|
else
|
|
|
|
|
setter = bfd_getl32 ((unsigned char *) buf - 4);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
if ((setter & (0xffffffff ^ RD (~0)))
|
2000-08-04 03:01:32 +02:00
|
|
|
|
!= (INSN_OR | RS1 (O7) | RS2 (G0)))
|
2000-05-26 08:45:55 +02:00
|
|
|
|
break;
|
|
|
|
|
/* The sequence was
|
|
|
|
|
or %o7, %g0, %rN
|
|
|
|
|
call foo
|
|
|
|
|
or %rN, %g0, %o7
|
|
|
|
|
|
|
|
|
|
If call foo was replaced with ba, replace
|
|
|
|
|
or %rN, %g0, %o7 with nop. */
|
2000-07-27 06:05:05 +02:00
|
|
|
|
reg = (delay & RS1 (~0)) >> 14;
|
|
|
|
|
if (reg != ((setter & RD (~0)) >> 25)
|
2000-05-26 08:45:55 +02:00
|
|
|
|
|| reg == G0 || reg == O7)
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
if (INSN_BIG_ENDIAN)
|
|
|
|
|
bfd_putb32 (INSN_NOP, (unsigned char *) buf + 4);
|
|
|
|
|
else
|
|
|
|
|
bfd_putl32 (INSN_NOP, (unsigned char *) buf + 4);
|
|
|
|
|
}
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_11:
|
|
|
|
|
if (! in_signed_range (val, 0x7ff))
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("relocation overflow"));
|
|
|
|
|
insn |= val & 0x7ff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_10:
|
|
|
|
|
if (! in_signed_range (val, 0x3ff))
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("relocation overflow"));
|
|
|
|
|
insn |= val & 0x3ff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_7:
|
|
|
|
|
if (! in_bitfield_range (val, 0x7f))
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("relocation overflow"));
|
|
|
|
|
insn |= val & 0x7f;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_6:
|
|
|
|
|
if (! in_bitfield_range (val, 0x3f))
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("relocation overflow"));
|
|
|
|
|
insn |= val & 0x3f;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_5:
|
|
|
|
|
if (! in_bitfield_range (val, 0x1f))
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("relocation overflow"));
|
|
|
|
|
insn |= val & 0x1f;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_WDISP16:
|
2007-05-29 15:18:59 +02:00
|
|
|
|
if ((val & 3)
|
|
|
|
|
|| val >= 0x1fffc
|
|
|
|
|
|| val <= -(offsetT) 0x20008)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("relocation overflow"));
|
|
|
|
|
/* FIXME: The +1 deserves a comment. */
|
|
|
|
|
val = (val >> 2) + 1;
|
|
|
|
|
insn |= ((val & 0xc000) << 6) | (val & 0x3fff);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_WDISP19:
|
2007-05-29 15:18:59 +02:00
|
|
|
|
if ((val & 3)
|
|
|
|
|
|| val >= 0xffffc
|
|
|
|
|
|| val <= -(offsetT) 0x100008)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("relocation overflow"));
|
|
|
|
|
/* FIXME: The +1 deserves a comment. */
|
|
|
|
|
val = (val >> 2) + 1;
|
|
|
|
|
insn |= val & 0x7ffff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_HH22:
|
|
|
|
|
val = BSR (val, 32);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Fall through. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_LM22:
|
|
|
|
|
case BFD_RELOC_HI22:
|
|
|
|
|
if (!fixP->fx_addsy)
|
2001-11-15 22:29:00 +01:00
|
|
|
|
insn |= (val >> 10) & 0x3fffff;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2001-11-15 22:29:00 +01:00
|
|
|
|
/* FIXME: Need comment explaining why we do this. */
|
|
|
|
|
insn &= ~0xffff;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC22:
|
|
|
|
|
if (val & ~0x003fffff)
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("relocation overflow"));
|
|
|
|
|
insn |= (val & 0x3fffff);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_HM10:
|
|
|
|
|
val = BSR (val, 32);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Fall through. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
case BFD_RELOC_LO10:
|
|
|
|
|
if (!fixP->fx_addsy)
|
2001-11-15 22:29:00 +01:00
|
|
|
|
insn |= val & 0x3ff;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2001-11-15 22:29:00 +01:00
|
|
|
|
/* FIXME: Need comment explaining why we do this. */
|
|
|
|
|
insn &= ~0xff;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
1999-07-16 23:30:35 +02:00
|
|
|
|
case BFD_RELOC_SPARC_OLO10:
|
|
|
|
|
val &= 0x3ff;
|
|
|
|
|
val += fixP->tc_fix_data;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Fall through. */
|
1999-07-16 23:30:35 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_SPARC13:
|
|
|
|
|
if (! in_signed_range (val, 0x1fff))
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("relocation overflow"));
|
|
|
|
|
insn |= val & 0x1fff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_WDISP22:
|
|
|
|
|
val = (val >> 2) + 1;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Fall through. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_SPARC_BASE22:
|
|
|
|
|
insn |= val & 0x3fffff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_H44:
|
|
|
|
|
if (!fixP->fx_addsy)
|
|
|
|
|
{
|
|
|
|
|
bfd_vma tval = val;
|
|
|
|
|
tval >>= 22;
|
|
|
|
|
insn |= tval & 0x3fffff;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_M44:
|
|
|
|
|
if (!fixP->fx_addsy)
|
|
|
|
|
insn |= (val >> 12) & 0x3ff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_L44:
|
|
|
|
|
if (!fixP->fx_addsy)
|
|
|
|
|
insn |= val & 0xfff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_HIX22:
|
|
|
|
|
if (!fixP->fx_addsy)
|
|
|
|
|
{
|
2000-08-04 03:01:32 +02:00
|
|
|
|
val ^= ~(offsetT) 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
insn |= (val >> 10) & 0x3fffff;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_LOX10:
|
|
|
|
|
if (!fixP->fx_addsy)
|
|
|
|
|
insn |= 0x1c00 | (val & 0x3ff);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_NONE:
|
|
|
|
|
default:
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("bad or unhandled relocation type: 0x%02x"),
|
|
|
|
|
fixP->fx_r_type);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (INSN_BIG_ENDIAN)
|
|
|
|
|
bfd_putb32 (insn, (unsigned char *) buf);
|
|
|
|
|
else
|
|
|
|
|
bfd_putl32 (insn, (unsigned char *) buf);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Are we finished with this relocation now? */
|
|
|
|
|
if (fixP->fx_addsy == 0 && !fixP->fx_pcrel)
|
|
|
|
|
fixP->fx_done = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Translate internal representation of relocation info to BFD target
|
|
|
|
|
format. */
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-07-16 23:30:35 +02:00
|
|
|
|
arelent **
|
2008-08-13 01:39:31 +02:00
|
|
|
|
tc_gen_reloc (asection *section, fixS *fixp)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
1999-07-16 23:30:35 +02:00
|
|
|
|
static arelent *relocs[3];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
arelent *reloc;
|
|
|
|
|
bfd_reloc_code_real_type code;
|
|
|
|
|
|
1999-07-16 23:30:35 +02:00
|
|
|
|
relocs[0] = reloc = (arelent *) xmalloc (sizeof (arelent));
|
|
|
|
|
relocs[1] = NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
reloc->sym_ptr_ptr = (asymbol **) xmalloc (sizeof (asymbol *));
|
|
|
|
|
*reloc->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reloc->address = fixp->fx_frag->fr_address + fixp->fx_where;
|
|
|
|
|
|
|
|
|
|
switch (fixp->fx_r_type)
|
|
|
|
|
{
|
|
|
|
|
case BFD_RELOC_16:
|
|
|
|
|
case BFD_RELOC_32:
|
|
|
|
|
case BFD_RELOC_HI22:
|
|
|
|
|
case BFD_RELOC_LO10:
|
|
|
|
|
case BFD_RELOC_32_PCREL_S2:
|
|
|
|
|
case BFD_RELOC_SPARC13:
|
1999-06-07 14:53:56 +02:00
|
|
|
|
case BFD_RELOC_SPARC22:
|
2008-04-23 09:49:33 +02:00
|
|
|
|
case BFD_RELOC_SPARC_PC22:
|
|
|
|
|
case BFD_RELOC_SPARC_PC10:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_SPARC_BASE13:
|
|
|
|
|
case BFD_RELOC_SPARC_WDISP16:
|
|
|
|
|
case BFD_RELOC_SPARC_WDISP19:
|
|
|
|
|
case BFD_RELOC_SPARC_WDISP22:
|
|
|
|
|
case BFD_RELOC_64:
|
|
|
|
|
case BFD_RELOC_SPARC_5:
|
|
|
|
|
case BFD_RELOC_SPARC_6:
|
|
|
|
|
case BFD_RELOC_SPARC_7:
|
|
|
|
|
case BFD_RELOC_SPARC_10:
|
|
|
|
|
case BFD_RELOC_SPARC_11:
|
|
|
|
|
case BFD_RELOC_SPARC_HH22:
|
|
|
|
|
case BFD_RELOC_SPARC_HM10:
|
|
|
|
|
case BFD_RELOC_SPARC_LM22:
|
|
|
|
|
case BFD_RELOC_SPARC_PC_HH22:
|
|
|
|
|
case BFD_RELOC_SPARC_PC_HM10:
|
|
|
|
|
case BFD_RELOC_SPARC_PC_LM22:
|
|
|
|
|
case BFD_RELOC_SPARC_H44:
|
|
|
|
|
case BFD_RELOC_SPARC_M44:
|
|
|
|
|
case BFD_RELOC_SPARC_L44:
|
|
|
|
|
case BFD_RELOC_SPARC_HIX22:
|
|
|
|
|
case BFD_RELOC_SPARC_LOX10:
|
|
|
|
|
case BFD_RELOC_SPARC_REV32:
|
1999-07-16 23:30:35 +02:00
|
|
|
|
case BFD_RELOC_SPARC_OLO10:
|
2001-05-28 11:23:54 +02:00
|
|
|
|
case BFD_RELOC_SPARC_UA16:
|
|
|
|
|
case BFD_RELOC_SPARC_UA32:
|
|
|
|
|
case BFD_RELOC_SPARC_UA64:
|
2001-12-21 23:35:24 +01:00
|
|
|
|
case BFD_RELOC_8_PCREL:
|
|
|
|
|
case BFD_RELOC_16_PCREL:
|
|
|
|
|
case BFD_RELOC_32_PCREL:
|
|
|
|
|
case BFD_RELOC_64_PCREL:
|
|
|
|
|
case BFD_RELOC_SPARC_PLT32:
|
|
|
|
|
case BFD_RELOC_SPARC_PLT64:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_VTABLE_ENTRY:
|
|
|
|
|
case BFD_RELOC_VTABLE_INHERIT:
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
case BFD_RELOC_SPARC_TLS_GD_HI22:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_GD_LO10:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_GD_ADD:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_GD_CALL:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDM_HI22:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDM_LO10:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDM_ADD:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDM_CALL:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDO_HIX22:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDO_LOX10:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LDO_ADD:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_IE_HI22:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_IE_LO10:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_IE_LD:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_IE_LDX:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_IE_ADD:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LE_HIX22:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_LE_LOX10:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_DTPOFF32:
|
|
|
|
|
case BFD_RELOC_SPARC_TLS_DTPOFF64:
|
2008-04-16 10:51:18 +02:00
|
|
|
|
case BFD_RELOC_SPARC_GOTDATA_OP_HIX22:
|
|
|
|
|
case BFD_RELOC_SPARC_GOTDATA_OP_LOX10:
|
|
|
|
|
case BFD_RELOC_SPARC_GOTDATA_OP:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
code = fixp->fx_r_type;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
abort ();
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#if defined (OBJ_ELF) || defined (OBJ_AOUT)
|
|
|
|
|
/* If we are generating PIC code, we need to generate a different
|
|
|
|
|
set of relocs. */
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
#define GOT_NAME "_GLOBAL_OFFSET_TABLE_"
|
|
|
|
|
#else
|
|
|
|
|
#define GOT_NAME "__GLOBAL_OFFSET_TABLE_"
|
bfd/
* config.bfd (sparc-*-vxworks*): New stanza.
* configure.in (bfd_elf32_sparc_vxworks_vec): New stanza.
(bfd_elf32_sparc_vec, bfd_elf64_sparc_vec): Add elf-vxworks.lo.
* configure: Regenerate.
* elf32-sparc.c: Include elf-vxworks.h.
(elf32_sparc_vxworks_link_hash_table_create: New.
(elf32_sparc_vxworks_final_write_processing): New.
(TARGET_BIG_SYM): Override for VxWorks.
(TARGET_BIG_NAME, ELF_MINPAGESIZE): Likewise.
(bfd_elf32_bfd_link_hash_table_create): Likewise.
(elf_backend_want_got_plt, elf_backend_plt_readonly): Likewise.
(elf_backend_got_header_size, elf_backend_add_symbol_hook): Likewise.
(elf_backend_link_output_symbol_hook): Likewise.
(elf_backend_emit_relocs): Likewise.
(elf_backend_final_write_processing, elf32_bed): Likewise.
* elfxx-sparc.c: Include libiberty.h and elf-vxworks.h.
(sparc_vxworks_exec_plt0_entry, sparc_vxworks_exec_plt_entry): New.
(sparc_vxworks_shared_plt0_entry, sparc_vxworks_shared_plt_entry): New.
(_bfd_sparc_elf_link_hash_table_create): Don't initialize
build_plt_entry here.
(create_got_section): Initialize sgotplt for VxWorks.
(_bfd_sparc_elf_create_dynamic_sections): Initialize build_plt_entry,
plt_header_size and plt_entry_size, with new VxWorks-specific settings.
Call elf_vxworks_create_dynamic_sections for VxWorks.
(allocate_dynrelocs): Use plt_header_size and plt_entry_size.
Allocate room for .got.plt and .rela.plt.unloaded entries on VxWorks.
(_bfd_sparc_elf_size_dynamic_sections): Don't allocate a nop in .plt
for VxWorks. Check for the .got.plt section.
(sparc_vxworks_build_plt_entry): New function.
(_bfd_sparc_elf_finish_dynamic_symbol): Add handling of VxWorks PLTs.
Don't make _GLOBAL_OFFSET_TABLE_ and _PROCEDURE_LINKAGE_TABLE_
absolute on VxWorks.
(sparc32_finish_dyn): Add special handling for DT_RELASZ
and DT_PLTGOT on VxWorks.
(sparc_vxworks_finish_exec_plt): New.
(sparc_vxworks_finish_shared_plt): New.
(_bfd_sparc_elf_finish_dynamic_sections): Call them.
Use plt_header_size and plt_entry_size.
* elfxx-sparc.h (_bfd_sparc_elf_link_hash_table): Add is_vxworks,
srelplt2, sgotplt, plt_header_size and plt_entry_size fields.
* Makefile.am (elfxx-sparc.lo): Depend on elf-vxworks.h.
(elf32-sparc.lo): Likewise.
* Makefile.in: Regenerate.
* targets.c (bfd_elf32_sparc_vxworks_vec): Declare.
(_bfd_target_vector): Add a pointer to it.
gas/
* config/tc-sparc.c (sparc_target_format): Handle TE_VXWORKS.
(GOTT_BASE, GOTT_INDEX): New.
(tc_gen_reloc): Don't alter relocations against GOTT_BASE and
GOTT_INDEX when generating VxWorks PIC.
* configure.tgt (sparc*-*-vxworks*): Remove this special case;
use the generic *-*-vxworks* stanza instead.
gas/testsuite/
* gas/sparc/vxworks-pic.s, gas/sparc/vxworks-pic.d: New test.
* gas/sparc/sparc.exp: Run it. Remove sparc*-*-vxworks* XFAILs.
ld/
* configure.tgt (sparc*-*-vxworks*): New stanza.
* emulparams/elf32_sparc_vxworks.sh: New file.
* Makefile.am (ALL_EMULATIONS): Add eelf32_sparc_vxworks.o.
(eelf32_sparc_vxworks.c): New rule.
* Makefile.in: Regenerate.
ld/testsuite/
* ld-sparc/vxworks1.dd, ld-sparc/vxworks1.ld, ld-sparc/vxworks1-lib.dd,
* ld-sparc/vxworks1-lib.nd, ld-sparc/vxworks1-lib.rd,
* ld-sparc/vxworks1-lib.s, ld-sparc/vxworks1.rd, ld-sparc/vxworks1.s,
* ld-sparc/vxworks1-static.d, ld-sparc/vxworks2.s,
* ld-sparc/vxworks2.sd, ld-sparc/vxworks2-static.sd: New tests.
* ld-sparc/sparc.exp: Run them.
2006-04-05 14:41:59 +02:00
|
|
|
|
#endif
|
|
|
|
|
#ifdef TE_VXWORKS
|
|
|
|
|
#define GOTT_BASE "__GOTT_BASE__"
|
|
|
|
|
#define GOTT_INDEX "__GOTT_INDEX__"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
|
1999-08-08 18:04:36 +02:00
|
|
|
|
/* This code must be parallel to the OBJ_ELF tc_fix_adjustable. */
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (sparc_pic_code)
|
|
|
|
|
{
|
|
|
|
|
switch (code)
|
|
|
|
|
{
|
|
|
|
|
case BFD_RELOC_32_PCREL_S2:
|
2003-01-23 13:51:05 +01:00
|
|
|
|
if (generic_force_reloc (fixp))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
code = BFD_RELOC_SPARC_WPLT30;
|
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_HI22:
|
bfd/
* config.bfd (sparc-*-vxworks*): New stanza.
* configure.in (bfd_elf32_sparc_vxworks_vec): New stanza.
(bfd_elf32_sparc_vec, bfd_elf64_sparc_vec): Add elf-vxworks.lo.
* configure: Regenerate.
* elf32-sparc.c: Include elf-vxworks.h.
(elf32_sparc_vxworks_link_hash_table_create: New.
(elf32_sparc_vxworks_final_write_processing): New.
(TARGET_BIG_SYM): Override for VxWorks.
(TARGET_BIG_NAME, ELF_MINPAGESIZE): Likewise.
(bfd_elf32_bfd_link_hash_table_create): Likewise.
(elf_backend_want_got_plt, elf_backend_plt_readonly): Likewise.
(elf_backend_got_header_size, elf_backend_add_symbol_hook): Likewise.
(elf_backend_link_output_symbol_hook): Likewise.
(elf_backend_emit_relocs): Likewise.
(elf_backend_final_write_processing, elf32_bed): Likewise.
* elfxx-sparc.c: Include libiberty.h and elf-vxworks.h.
(sparc_vxworks_exec_plt0_entry, sparc_vxworks_exec_plt_entry): New.
(sparc_vxworks_shared_plt0_entry, sparc_vxworks_shared_plt_entry): New.
(_bfd_sparc_elf_link_hash_table_create): Don't initialize
build_plt_entry here.
(create_got_section): Initialize sgotplt for VxWorks.
(_bfd_sparc_elf_create_dynamic_sections): Initialize build_plt_entry,
plt_header_size and plt_entry_size, with new VxWorks-specific settings.
Call elf_vxworks_create_dynamic_sections for VxWorks.
(allocate_dynrelocs): Use plt_header_size and plt_entry_size.
Allocate room for .got.plt and .rela.plt.unloaded entries on VxWorks.
(_bfd_sparc_elf_size_dynamic_sections): Don't allocate a nop in .plt
for VxWorks. Check for the .got.plt section.
(sparc_vxworks_build_plt_entry): New function.
(_bfd_sparc_elf_finish_dynamic_symbol): Add handling of VxWorks PLTs.
Don't make _GLOBAL_OFFSET_TABLE_ and _PROCEDURE_LINKAGE_TABLE_
absolute on VxWorks.
(sparc32_finish_dyn): Add special handling for DT_RELASZ
and DT_PLTGOT on VxWorks.
(sparc_vxworks_finish_exec_plt): New.
(sparc_vxworks_finish_shared_plt): New.
(_bfd_sparc_elf_finish_dynamic_sections): Call them.
Use plt_header_size and plt_entry_size.
* elfxx-sparc.h (_bfd_sparc_elf_link_hash_table): Add is_vxworks,
srelplt2, sgotplt, plt_header_size and plt_entry_size fields.
* Makefile.am (elfxx-sparc.lo): Depend on elf-vxworks.h.
(elf32-sparc.lo): Likewise.
* Makefile.in: Regenerate.
* targets.c (bfd_elf32_sparc_vxworks_vec): Declare.
(_bfd_target_vector): Add a pointer to it.
gas/
* config/tc-sparc.c (sparc_target_format): Handle TE_VXWORKS.
(GOTT_BASE, GOTT_INDEX): New.
(tc_gen_reloc): Don't alter relocations against GOTT_BASE and
GOTT_INDEX when generating VxWorks PIC.
* configure.tgt (sparc*-*-vxworks*): Remove this special case;
use the generic *-*-vxworks* stanza instead.
gas/testsuite/
* gas/sparc/vxworks-pic.s, gas/sparc/vxworks-pic.d: New test.
* gas/sparc/sparc.exp: Run it. Remove sparc*-*-vxworks* XFAILs.
ld/
* configure.tgt (sparc*-*-vxworks*): New stanza.
* emulparams/elf32_sparc_vxworks.sh: New file.
* Makefile.am (ALL_EMULATIONS): Add eelf32_sparc_vxworks.o.
(eelf32_sparc_vxworks.c): New rule.
* Makefile.in: Regenerate.
ld/testsuite/
* ld-sparc/vxworks1.dd, ld-sparc/vxworks1.ld, ld-sparc/vxworks1-lib.dd,
* ld-sparc/vxworks1-lib.nd, ld-sparc/vxworks1-lib.rd,
* ld-sparc/vxworks1-lib.s, ld-sparc/vxworks1.rd, ld-sparc/vxworks1.s,
* ld-sparc/vxworks1-static.d, ld-sparc/vxworks2.s,
* ld-sparc/vxworks2.sd, ld-sparc/vxworks2-static.sd: New tests.
* ld-sparc/sparc.exp: Run them.
2006-04-05 14:41:59 +02:00
|
|
|
|
code = BFD_RELOC_SPARC_GOT22;
|
|
|
|
|
if (fixp->fx_addsy != NULL)
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (S_GET_NAME (fixp->fx_addsy), GOT_NAME) == 0)
|
|
|
|
|
code = BFD_RELOC_SPARC_PC22;
|
|
|
|
|
#ifdef TE_VXWORKS
|
|
|
|
|
if (strcmp (S_GET_NAME (fixp->fx_addsy), GOTT_BASE) == 0
|
|
|
|
|
|| strcmp (S_GET_NAME (fixp->fx_addsy), GOTT_INDEX) == 0)
|
|
|
|
|
code = BFD_RELOC_HI22; /* Unchanged. */
|
|
|
|
|
#endif
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_LO10:
|
bfd/
* config.bfd (sparc-*-vxworks*): New stanza.
* configure.in (bfd_elf32_sparc_vxworks_vec): New stanza.
(bfd_elf32_sparc_vec, bfd_elf64_sparc_vec): Add elf-vxworks.lo.
* configure: Regenerate.
* elf32-sparc.c: Include elf-vxworks.h.
(elf32_sparc_vxworks_link_hash_table_create: New.
(elf32_sparc_vxworks_final_write_processing): New.
(TARGET_BIG_SYM): Override for VxWorks.
(TARGET_BIG_NAME, ELF_MINPAGESIZE): Likewise.
(bfd_elf32_bfd_link_hash_table_create): Likewise.
(elf_backend_want_got_plt, elf_backend_plt_readonly): Likewise.
(elf_backend_got_header_size, elf_backend_add_symbol_hook): Likewise.
(elf_backend_link_output_symbol_hook): Likewise.
(elf_backend_emit_relocs): Likewise.
(elf_backend_final_write_processing, elf32_bed): Likewise.
* elfxx-sparc.c: Include libiberty.h and elf-vxworks.h.
(sparc_vxworks_exec_plt0_entry, sparc_vxworks_exec_plt_entry): New.
(sparc_vxworks_shared_plt0_entry, sparc_vxworks_shared_plt_entry): New.
(_bfd_sparc_elf_link_hash_table_create): Don't initialize
build_plt_entry here.
(create_got_section): Initialize sgotplt for VxWorks.
(_bfd_sparc_elf_create_dynamic_sections): Initialize build_plt_entry,
plt_header_size and plt_entry_size, with new VxWorks-specific settings.
Call elf_vxworks_create_dynamic_sections for VxWorks.
(allocate_dynrelocs): Use plt_header_size and plt_entry_size.
Allocate room for .got.plt and .rela.plt.unloaded entries on VxWorks.
(_bfd_sparc_elf_size_dynamic_sections): Don't allocate a nop in .plt
for VxWorks. Check for the .got.plt section.
(sparc_vxworks_build_plt_entry): New function.
(_bfd_sparc_elf_finish_dynamic_symbol): Add handling of VxWorks PLTs.
Don't make _GLOBAL_OFFSET_TABLE_ and _PROCEDURE_LINKAGE_TABLE_
absolute on VxWorks.
(sparc32_finish_dyn): Add special handling for DT_RELASZ
and DT_PLTGOT on VxWorks.
(sparc_vxworks_finish_exec_plt): New.
(sparc_vxworks_finish_shared_plt): New.
(_bfd_sparc_elf_finish_dynamic_sections): Call them.
Use plt_header_size and plt_entry_size.
* elfxx-sparc.h (_bfd_sparc_elf_link_hash_table): Add is_vxworks,
srelplt2, sgotplt, plt_header_size and plt_entry_size fields.
* Makefile.am (elfxx-sparc.lo): Depend on elf-vxworks.h.
(elf32-sparc.lo): Likewise.
* Makefile.in: Regenerate.
* targets.c (bfd_elf32_sparc_vxworks_vec): Declare.
(_bfd_target_vector): Add a pointer to it.
gas/
* config/tc-sparc.c (sparc_target_format): Handle TE_VXWORKS.
(GOTT_BASE, GOTT_INDEX): New.
(tc_gen_reloc): Don't alter relocations against GOTT_BASE and
GOTT_INDEX when generating VxWorks PIC.
* configure.tgt (sparc*-*-vxworks*): Remove this special case;
use the generic *-*-vxworks* stanza instead.
gas/testsuite/
* gas/sparc/vxworks-pic.s, gas/sparc/vxworks-pic.d: New test.
* gas/sparc/sparc.exp: Run it. Remove sparc*-*-vxworks* XFAILs.
ld/
* configure.tgt (sparc*-*-vxworks*): New stanza.
* emulparams/elf32_sparc_vxworks.sh: New file.
* Makefile.am (ALL_EMULATIONS): Add eelf32_sparc_vxworks.o.
(eelf32_sparc_vxworks.c): New rule.
* Makefile.in: Regenerate.
ld/testsuite/
* ld-sparc/vxworks1.dd, ld-sparc/vxworks1.ld, ld-sparc/vxworks1-lib.dd,
* ld-sparc/vxworks1-lib.nd, ld-sparc/vxworks1-lib.rd,
* ld-sparc/vxworks1-lib.s, ld-sparc/vxworks1.rd, ld-sparc/vxworks1.s,
* ld-sparc/vxworks1-static.d, ld-sparc/vxworks2.s,
* ld-sparc/vxworks2.sd, ld-sparc/vxworks2-static.sd: New tests.
* ld-sparc/sparc.exp: Run them.
2006-04-05 14:41:59 +02:00
|
|
|
|
code = BFD_RELOC_SPARC_GOT10;
|
|
|
|
|
if (fixp->fx_addsy != NULL)
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (S_GET_NAME (fixp->fx_addsy), GOT_NAME) == 0)
|
|
|
|
|
code = BFD_RELOC_SPARC_PC10;
|
|
|
|
|
#ifdef TE_VXWORKS
|
|
|
|
|
if (strcmp (S_GET_NAME (fixp->fx_addsy), GOTT_BASE) == 0
|
|
|
|
|
|| strcmp (S_GET_NAME (fixp->fx_addsy), GOTT_INDEX) == 0)
|
|
|
|
|
code = BFD_RELOC_LO10; /* Unchanged. */
|
|
|
|
|
#endif
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_SPARC13:
|
|
|
|
|
code = BFD_RELOC_SPARC_GOT13;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
#endif /* defined (OBJ_ELF) || defined (OBJ_AOUT) */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2006-11-27 12:25:27 +01:00
|
|
|
|
/* Nothing is aligned in DWARF debugging sections. */
|
|
|
|
|
if (bfd_get_section_flags (stdoutput, section) & SEC_DEBUGGING)
|
|
|
|
|
switch (code)
|
|
|
|
|
{
|
|
|
|
|
case BFD_RELOC_16: code = BFD_RELOC_SPARC_UA16; break;
|
|
|
|
|
case BFD_RELOC_32: code = BFD_RELOC_SPARC_UA32; break;
|
|
|
|
|
case BFD_RELOC_64: code = BFD_RELOC_SPARC_UA64; break;
|
|
|
|
|
default: break;
|
|
|
|
|
}
|
|
|
|
|
|
1999-07-16 23:30:35 +02:00
|
|
|
|
if (code == BFD_RELOC_SPARC_OLO10)
|
|
|
|
|
reloc->howto = bfd_reloc_type_lookup (stdoutput, BFD_RELOC_LO10);
|
|
|
|
|
else
|
|
|
|
|
reloc->howto = bfd_reloc_type_lookup (stdoutput, code);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reloc->howto == 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad_where (fixp->fx_file, fixp->fx_line,
|
|
|
|
|
_("internal error: can't export reloc type %d (`%s')"),
|
|
|
|
|
fixp->fx_r_type, bfd_get_reloc_code_name (code));
|
1999-07-16 23:30:35 +02:00
|
|
|
|
xfree (reloc);
|
|
|
|
|
relocs[0] = NULL;
|
|
|
|
|
return relocs;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* @@ Why fx_addnumber sometimes and fx_offset other times? */
|
|
|
|
|
#ifdef OBJ_AOUT
|
|
|
|
|
|
|
|
|
|
if (reloc->howto->pc_relative == 0
|
|
|
|
|
|| code == BFD_RELOC_SPARC_PC10
|
|
|
|
|
|| code == BFD_RELOC_SPARC_PC22)
|
|
|
|
|
reloc->addend = fixp->fx_addnumber;
|
|
|
|
|
else if (sparc_pic_code
|
|
|
|
|
&& fixp->fx_r_type == BFD_RELOC_32_PCREL_S2
|
|
|
|
|
&& fixp->fx_addsy != NULL
|
|
|
|
|
&& (S_IS_EXTERNAL (fixp->fx_addsy)
|
|
|
|
|
|| S_IS_WEAK (fixp->fx_addsy))
|
|
|
|
|
&& S_IS_DEFINED (fixp->fx_addsy)
|
|
|
|
|
&& ! S_IS_COMMON (fixp->fx_addsy))
|
|
|
|
|
reloc->addend = fixp->fx_addnumber;
|
|
|
|
|
else
|
|
|
|
|
reloc->addend = fixp->fx_offset - reloc->address;
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
#else /* elf or coff */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-12-21 23:35:24 +01:00
|
|
|
|
if (code != BFD_RELOC_32_PCREL_S2
|
|
|
|
|
&& code != BFD_RELOC_SPARC_WDISP22
|
|
|
|
|
&& code != BFD_RELOC_SPARC_WDISP16
|
|
|
|
|
&& code != BFD_RELOC_SPARC_WDISP19
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
&& code != BFD_RELOC_SPARC_WPLT30
|
|
|
|
|
&& code != BFD_RELOC_SPARC_TLS_GD_CALL
|
|
|
|
|
&& code != BFD_RELOC_SPARC_TLS_LDM_CALL)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reloc->addend = fixp->fx_addnumber;
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
else if (symbol_section_p (fixp->fx_addsy))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reloc->addend = (section->vma
|
|
|
|
|
+ fixp->fx_addnumber
|
|
|
|
|
+ md_pcrel_from (fixp));
|
|
|
|
|
else
|
|
|
|
|
reloc->addend = fixp->fx_offset;
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-07-16 23:30:35 +02:00
|
|
|
|
/* We expand R_SPARC_OLO10 to R_SPARC_LO10 and R_SPARC_13
|
|
|
|
|
on the same location. */
|
|
|
|
|
if (code == BFD_RELOC_SPARC_OLO10)
|
|
|
|
|
{
|
|
|
|
|
relocs[1] = reloc = (arelent *) xmalloc (sizeof (arelent));
|
|
|
|
|
relocs[2] = NULL;
|
|
|
|
|
|
|
|
|
|
reloc->sym_ptr_ptr = (asymbol **) xmalloc (sizeof (asymbol *));
|
2000-08-04 03:01:32 +02:00
|
|
|
|
*reloc->sym_ptr_ptr
|
|
|
|
|
= symbol_get_bfdsym (section_symbol (absolute_section));
|
1999-07-16 23:30:35 +02:00
|
|
|
|
reloc->address = fixp->fx_frag->fr_address + fixp->fx_where;
|
|
|
|
|
reloc->howto = bfd_reloc_type_lookup (stdoutput, BFD_RELOC_SPARC13);
|
|
|
|
|
reloc->addend = fixp->tc_fix_data;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return relocs;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* We have no need to default values of symbols. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
symbolS *
|
2008-08-13 01:39:31 +02:00
|
|
|
|
md_undefined_symbol (char *name ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
return 0;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Round up a section size to the appropriate boundary. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
valueT
|
2008-08-13 01:39:31 +02:00
|
|
|
|
md_section_align (segT segment ATTRIBUTE_UNUSED, valueT size)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
#ifndef OBJ_ELF
|
|
|
|
|
/* This is not right for ELF; a.out wants it, and COFF will force
|
|
|
|
|
the alignment anyways. */
|
|
|
|
|
valueT align = ((valueT) 1
|
|
|
|
|
<< (valueT) bfd_get_section_alignment (stdoutput, segment));
|
|
|
|
|
valueT newsize;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
|
|
|
|
/* Turn alignment value into a mask. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
align--;
|
|
|
|
|
newsize = (size + align) & ~align;
|
|
|
|
|
return newsize;
|
|
|
|
|
#else
|
|
|
|
|
return size;
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Exactly what point is a PC-relative offset relative TO?
|
|
|
|
|
On the sparc, they're relative to the address of the offset, plus
|
|
|
|
|
its size. This gets us to the following instruction.
|
2000-07-27 06:05:05 +02:00
|
|
|
|
(??? Is this right? FIXME-SOON) */
|
|
|
|
|
long
|
2008-08-13 01:39:31 +02:00
|
|
|
|
md_pcrel_from (fixS *fixP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
long ret;
|
|
|
|
|
|
|
|
|
|
ret = fixP->fx_where + fixP->fx_frag->fr_address;
|
|
|
|
|
if (! sparc_pic_code
|
|
|
|
|
|| fixP->fx_addsy == NULL
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
|| symbol_section_p (fixP->fx_addsy))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ret += fixP->fx_size;
|
|
|
|
|
return ret;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return log2 (VALUE), or -1 if VALUE is not an exact positive power
|
|
|
|
|
of two. */
|
|
|
|
|
|
|
|
|
|
static int
|
2008-08-13 01:39:31 +02:00
|
|
|
|
mylog2 (int value)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
int shift;
|
|
|
|
|
|
|
|
|
|
if (value <= 0)
|
|
|
|
|
return -1;
|
|
|
|
|
|
|
|
|
|
for (shift = 0; (value & 1) == 0; value >>= 1)
|
|
|
|
|
++shift;
|
|
|
|
|
|
|
|
|
|
return (value == 1) ? shift : -1;
|
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Sort of like s_lcomm. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#ifndef OBJ_ELF
|
|
|
|
|
static int max_alignment = 15;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
s_reserve (int ignore ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *name;
|
|
|
|
|
char *p;
|
|
|
|
|
char c;
|
|
|
|
|
int align;
|
|
|
|
|
int size;
|
|
|
|
|
int temp;
|
|
|
|
|
symbolS *symbolP;
|
|
|
|
|
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
p = input_line_pointer;
|
|
|
|
|
*p = c;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
|
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Expected comma after name"));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
++input_line_pointer;
|
|
|
|
|
|
|
|
|
|
if ((size = get_absolute_expression ()) < 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("BSS length (%d.) <0! Ignored."), size);
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
} /* Bad length. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
*p = 0;
|
|
|
|
|
symbolP = symbol_find_or_make (name);
|
|
|
|
|
*p = c;
|
|
|
|
|
|
|
|
|
|
if (strncmp (input_line_pointer, ",\"bss\"", 6) != 0
|
|
|
|
|
&& strncmp (input_line_pointer, ",\".bss\"", 7) != 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("bad .reserve segment -- expected BSS segment"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (input_line_pointer[2] == '.')
|
|
|
|
|
input_line_pointer += 7;
|
|
|
|
|
else
|
|
|
|
|
input_line_pointer += 6;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
|
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
|
{
|
|
|
|
|
++input_line_pointer;
|
|
|
|
|
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer == '\n')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("missing alignment"));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
align = (int) get_absolute_expression ();
|
|
|
|
|
|
|
|
|
|
#ifndef OBJ_ELF
|
|
|
|
|
if (align > max_alignment)
|
|
|
|
|
{
|
|
|
|
|
align = max_alignment;
|
|
|
|
|
as_warn (_("alignment too large; assuming %d"), align);
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if (align < 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("negative alignment"));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (align != 0)
|
|
|
|
|
{
|
2005-02-17 14:46:05 +01:00
|
|
|
|
temp = mylog2 (align);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (temp < 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("alignment not a power of 2"));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
align = temp;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
record_alignment (bss_section, align);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
align = 0;
|
|
|
|
|
|
|
|
|
|
if (!S_IS_DEFINED (symbolP)
|
|
|
|
|
#ifdef OBJ_AOUT
|
|
|
|
|
&& S_GET_OTHER (symbolP) == 0
|
|
|
|
|
&& S_GET_DESC (symbolP) == 0
|
|
|
|
|
#endif
|
|
|
|
|
)
|
|
|
|
|
{
|
|
|
|
|
if (! need_pass_2)
|
|
|
|
|
{
|
|
|
|
|
char *pfrag;
|
|
|
|
|
segT current_seg = now_seg;
|
|
|
|
|
subsegT current_subseg = now_subseg;
|
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Switch to bss. */
|
|
|
|
|
subseg_set (bss_section, 1);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (align)
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Do alignment. */
|
|
|
|
|
frag_align (align, 0, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Detach from old frag. */
|
2000-08-04 03:01:32 +02:00
|
|
|
|
if (S_GET_SEGMENT (symbolP) == bss_section)
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_get_frag (symbolP)->fr_symbol = NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_set_frag (symbolP, frag_now);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
pfrag = frag_var (rs_org, 1, 1, (relax_substateT) 0, symbolP,
|
|
|
|
|
(offsetT) size, (char *) 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
*pfrag = 0;
|
|
|
|
|
|
|
|
|
|
S_SET_SEGMENT (symbolP, bss_section);
|
|
|
|
|
|
|
|
|
|
subseg_set (current_seg, current_subseg);
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
S_SET_SIZE (symbolP, size);
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2009-07-24 13:45:01 +02:00
|
|
|
|
as_warn (_("Ignoring attempt to re-define symbol %s"),
|
2000-08-04 03:01:32 +02:00
|
|
|
|
S_GET_NAME (symbolP));
|
2009-07-24 13:45:01 +02:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
s_common (int ignore ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *name;
|
|
|
|
|
char c;
|
|
|
|
|
char *p;
|
2003-06-24 13:10:47 +02:00
|
|
|
|
offsetT temp, size;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
symbolS *symbolP;
|
|
|
|
|
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
2000-07-27 06:05:05 +02:00
|
|
|
|
/* Just after name is now '\0'. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
p = input_line_pointer;
|
|
|
|
|
*p = c;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Expected comma after symbol-name"));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
|
|
|
|
/* Skip ','. */
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if ((temp = get_absolute_expression ()) < 0)
|
|
|
|
|
{
|
2003-06-24 13:10:47 +02:00
|
|
|
|
as_bad (_(".COMMon length (%lu) out of range ignored"),
|
|
|
|
|
(unsigned long) temp);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
size = temp;
|
|
|
|
|
*p = 0;
|
|
|
|
|
symbolP = symbol_find_or_make (name);
|
|
|
|
|
*p = c;
|
|
|
|
|
if (S_IS_DEFINED (symbolP) && ! S_IS_COMMON (symbolP))
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Ignoring attempt to re-define symbol"));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (S_GET_VALUE (symbolP) != 0)
|
|
|
|
|
{
|
|
|
|
|
if (S_GET_VALUE (symbolP) != (valueT) size)
|
|
|
|
|
{
|
2003-08-29 22:20:18 +02:00
|
|
|
|
as_warn (_("Length of .comm \"%s\" is already %ld. Not changed to %ld."),
|
|
|
|
|
S_GET_NAME (symbolP), (long) S_GET_VALUE (symbolP), (long) size);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
#ifndef OBJ_ELF
|
|
|
|
|
S_SET_VALUE (symbolP, (valueT) size);
|
|
|
|
|
S_SET_EXTERNAL (symbolP);
|
|
|
|
|
#endif
|
|
|
|
|
}
|
1999-06-22 16:53:01 +02:00
|
|
|
|
know (symbol_get_frag (symbolP) == &zero_address_frag);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Expected comma after common length"));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer != '"')
|
|
|
|
|
{
|
|
|
|
|
temp = get_absolute_expression ();
|
|
|
|
|
|
|
|
|
|
#ifndef OBJ_ELF
|
|
|
|
|
if (temp > max_alignment)
|
|
|
|
|
{
|
|
|
|
|
temp = max_alignment;
|
2005-02-17 14:46:05 +01:00
|
|
|
|
as_warn (_("alignment too large; assuming %ld"), (long) temp);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if (temp < 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("negative alignment"));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
if (symbol_get_obj (symbolP)->local)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
segT old_sec;
|
|
|
|
|
int old_subsec;
|
|
|
|
|
char *p;
|
|
|
|
|
int align;
|
|
|
|
|
|
|
|
|
|
old_sec = now_seg;
|
|
|
|
|
old_subsec = now_subseg;
|
|
|
|
|
|
|
|
|
|
if (temp == 0)
|
|
|
|
|
align = 0;
|
|
|
|
|
else
|
2005-02-17 14:46:05 +01:00
|
|
|
|
align = mylog2 (temp);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (align < 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("alignment not a power of 2"));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
record_alignment (bss_section, align);
|
|
|
|
|
subseg_set (bss_section, 0);
|
|
|
|
|
if (align)
|
|
|
|
|
frag_align (align, 0, 0);
|
|
|
|
|
if (S_GET_SEGMENT (symbolP) == bss_section)
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_get_frag (symbolP)->fr_symbol = 0;
|
|
|
|
|
symbol_set_frag (symbolP, frag_now);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
p = frag_var (rs_org, 1, 1, (relax_substateT) 0, symbolP,
|
|
|
|
|
(offsetT) size, (char *) 0);
|
|
|
|
|
*p = 0;
|
|
|
|
|
S_SET_SEGMENT (symbolP, bss_section);
|
|
|
|
|
S_CLEAR_EXTERNAL (symbolP);
|
|
|
|
|
S_SET_SIZE (symbolP, size);
|
|
|
|
|
subseg_set (old_sec, old_subsec);
|
|
|
|
|
}
|
|
|
|
|
else
|
2000-07-27 06:05:05 +02:00
|
|
|
|
#endif /* OBJ_ELF */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
allocate_common:
|
|
|
|
|
S_SET_VALUE (symbolP, (valueT) size);
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
S_SET_ALIGN (symbolP, temp);
|
|
|
|
|
S_SET_SIZE (symbolP, size);
|
|
|
|
|
#endif
|
|
|
|
|
S_SET_EXTERNAL (symbolP);
|
|
|
|
|
S_SET_SEGMENT (symbolP, bfd_com_section_ptr);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
/* @@ Some use the dot, some don't. Can we get some consistency?? */
|
|
|
|
|
if (*input_line_pointer == '.')
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
/* @@ Some say data, some say bss. */
|
|
|
|
|
if (strncmp (input_line_pointer, "bss\"", 4)
|
|
|
|
|
&& strncmp (input_line_pointer, "data\"", 5))
|
|
|
|
|
{
|
|
|
|
|
while (*--input_line_pointer != '"')
|
|
|
|
|
;
|
|
|
|
|
input_line_pointer--;
|
|
|
|
|
goto bad_common_segment;
|
|
|
|
|
}
|
|
|
|
|
while (*input_line_pointer++ != '"')
|
|
|
|
|
;
|
|
|
|
|
goto allocate_common;
|
|
|
|
|
}
|
|
|
|
|
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_get_bfdsym (symbolP)->flags |= BSF_OBJECT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
bad_common_segment:
|
|
|
|
|
p = input_line_pointer;
|
|
|
|
|
while (*p && *p != '\n')
|
|
|
|
|
p++;
|
|
|
|
|
c = *p;
|
|
|
|
|
*p = '\0';
|
|
|
|
|
as_bad (_("bad .common segment %s"), input_line_pointer + 1);
|
|
|
|
|
*p = c;
|
|
|
|
|
input_line_pointer = p;
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2003-11-22 03:35:31 +01:00
|
|
|
|
/* Handle the .empty pseudo-op. This suppresses the warnings about
|
1999-05-03 09:29:11 +02:00
|
|
|
|
invalid delay slot usage. */
|
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
s_empty (int ignore ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* The easy way to implement is to just forget about the last
|
|
|
|
|
instruction. */
|
|
|
|
|
last_insn = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
s_seg (int ignore ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
if (strncmp (input_line_pointer, "\"text\"", 6) == 0)
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer += 6;
|
|
|
|
|
s_text (0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (strncmp (input_line_pointer, "\"data\"", 6) == 0)
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer += 6;
|
|
|
|
|
s_data (0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (strncmp (input_line_pointer, "\"data1\"", 7) == 0)
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer += 7;
|
|
|
|
|
s_data1 ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (strncmp (input_line_pointer, "\"bss\"", 5) == 0)
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer += 5;
|
|
|
|
|
/* We only support 2 segments -- text and data -- for now, so
|
|
|
|
|
things in the "bss segment" will have to go into data for now.
|
2000-07-27 06:05:05 +02:00
|
|
|
|
You can still allocate SEG_BSS stuff with .lcomm or .reserve. */
|
|
|
|
|
subseg_set (data_section, 255); /* FIXME-SOMEDAY. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
as_bad (_("Unknown segment type"));
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
s_data1 (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
subseg_set (data_section, 1);
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
s_proc (int ignore ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
while (!is_end_of_line[(unsigned char) *input_line_pointer])
|
|
|
|
|
{
|
|
|
|
|
++input_line_pointer;
|
|
|
|
|
}
|
|
|
|
|
++input_line_pointer;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This static variable is set by s_uacons to tell sparc_cons_align
|
2003-11-22 03:35:31 +01:00
|
|
|
|
that the expression does not need to be aligned. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
static int sparc_no_align_cons = 0;
|
|
|
|
|
|
2001-12-21 23:35:24 +01:00
|
|
|
|
/* This static variable is set by sparc_cons to emit requested types
|
|
|
|
|
of relocations in cons_fix_new_sparc. */
|
|
|
|
|
|
|
|
|
|
static const char *sparc_cons_special_reloc;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* This handles the unaligned space allocation pseudo-ops, such as
|
|
|
|
|
.uaword. .uaword is just like .word, but the value does not need
|
|
|
|
|
to be aligned. */
|
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
s_uacons (int bytes)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* Tell sparc_cons_align not to align this value. */
|
|
|
|
|
sparc_no_align_cons = 1;
|
|
|
|
|
cons (bytes);
|
2001-08-12 10:47:02 +02:00
|
|
|
|
sparc_no_align_cons = 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
1999-06-07 14:40:36 +02:00
|
|
|
|
/* This handles the native word allocation pseudo-op .nword.
|
|
|
|
|
For sparc_arch_size 32 it is equivalent to .word, for
|
|
|
|
|
sparc_arch_size 64 it is equivalent to .xword. */
|
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
s_ncons (int bytes ATTRIBUTE_UNUSED)
|
1999-06-07 14:40:36 +02:00
|
|
|
|
{
|
|
|
|
|
cons (sparc_arch_size == 32 ? 4 : 8);
|
|
|
|
|
}
|
|
|
|
|
|
1999-07-30 23:39:53 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* Handle the SPARC ELF .register pseudo-op. This sets the binding of a
|
|
|
|
|
global register.
|
|
|
|
|
The syntax is:
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-07-30 23:39:53 +02:00
|
|
|
|
.register %g[2367],{#scratch|symbolname|#ignore}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
*/
|
1999-07-30 23:39:53 +02:00
|
|
|
|
|
|
|
|
|
static void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
s_register (int ignore ATTRIBUTE_UNUSED)
|
1999-07-30 23:39:53 +02:00
|
|
|
|
{
|
|
|
|
|
char c;
|
|
|
|
|
int reg;
|
|
|
|
|
int flags;
|
|
|
|
|
const char *regname;
|
|
|
|
|
|
|
|
|
|
if (input_line_pointer[0] != '%'
|
|
|
|
|
|| input_line_pointer[1] != 'g'
|
|
|
|
|
|| ((input_line_pointer[2] & ~1) != '2'
|
|
|
|
|
&& (input_line_pointer[2] & ~1) != '6')
|
|
|
|
|
|| input_line_pointer[3] != ',')
|
|
|
|
|
as_bad (_("register syntax is .register %%g[2367],{#scratch|symbolname|#ignore}"));
|
|
|
|
|
reg = input_line_pointer[2] - '0';
|
|
|
|
|
input_line_pointer += 4;
|
|
|
|
|
|
|
|
|
|
if (*input_line_pointer == '#')
|
|
|
|
|
{
|
|
|
|
|
++input_line_pointer;
|
|
|
|
|
regname = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
if (strcmp (regname, "scratch") && strcmp (regname, "ignore"))
|
|
|
|
|
as_bad (_("register syntax is .register %%g[2367],{#scratch|symbolname|#ignore}"));
|
2000-08-04 03:01:32 +02:00
|
|
|
|
if (regname[0] == 'i')
|
1999-07-30 23:39:53 +02:00
|
|
|
|
regname = NULL;
|
|
|
|
|
else
|
|
|
|
|
regname = "";
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
regname = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
}
|
|
|
|
|
if (sparc_arch_size == 64)
|
|
|
|
|
{
|
2000-07-27 06:05:05 +02:00
|
|
|
|
if (globals[reg])
|
1999-07-30 23:39:53 +02:00
|
|
|
|
{
|
2000-07-27 06:05:05 +02:00
|
|
|
|
if ((regname && globals[reg] != (symbolS *) 1
|
|
|
|
|
&& strcmp (S_GET_NAME (globals[reg]), regname))
|
|
|
|
|
|| ((regname != NULL) ^ (globals[reg] != (symbolS *) 1)))
|
1999-07-30 23:39:53 +02:00
|
|
|
|
as_bad (_("redefinition of global register"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (regname == NULL)
|
2000-07-27 06:05:05 +02:00
|
|
|
|
globals[reg] = (symbolS *) 1;
|
1999-07-30 23:39:53 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (*regname)
|
|
|
|
|
{
|
|
|
|
|
if (symbol_find (regname))
|
|
|
|
|
as_bad (_("Register symbol %s already defined."),
|
|
|
|
|
regname);
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
globals[reg] = symbol_make (regname);
|
|
|
|
|
flags = symbol_get_bfdsym (globals[reg])->flags;
|
1999-07-30 23:39:53 +02:00
|
|
|
|
if (! *regname)
|
|
|
|
|
flags = flags & ~(BSF_GLOBAL|BSF_LOCAL|BSF_WEAK);
|
|
|
|
|
if (! (flags & (BSF_GLOBAL|BSF_LOCAL|BSF_WEAK)))
|
|
|
|
|
flags |= BSF_GLOBAL;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
symbol_get_bfdsym (globals[reg])->flags = flags;
|
|
|
|
|
S_SET_VALUE (globals[reg], (valueT) reg);
|
|
|
|
|
S_SET_ALIGN (globals[reg], reg);
|
|
|
|
|
S_SET_SIZE (globals[reg], 0);
|
1999-07-30 23:39:53 +02:00
|
|
|
|
/* Although we actually want undefined_section here,
|
|
|
|
|
we have to use absolute_section, because otherwise
|
|
|
|
|
generic as code will make it a COM section.
|
|
|
|
|
We fix this up in sparc_adjust_symtab. */
|
2000-07-27 06:05:05 +02:00
|
|
|
|
S_SET_SEGMENT (globals[reg], absolute_section);
|
|
|
|
|
S_SET_OTHER (globals[reg], 0);
|
|
|
|
|
elf_symbol (symbol_get_bfdsym (globals[reg]))
|
1999-07-30 23:39:53 +02:00
|
|
|
|
->internal_elf_sym.st_info =
|
|
|
|
|
ELF_ST_INFO(STB_GLOBAL, STT_REGISTER);
|
2000-07-27 06:05:05 +02:00
|
|
|
|
elf_symbol (symbol_get_bfdsym (globals[reg]))
|
1999-07-30 23:39:53 +02:00
|
|
|
|
->internal_elf_sym.st_shndx = SHN_UNDEF;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
*input_line_pointer = c;
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Adjust the symbol table. We set undefined sections for STT_REGISTER
|
|
|
|
|
symbols which need it. */
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-07-30 23:39:53 +02:00
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
sparc_adjust_symtab (void)
|
1999-07-30 23:39:53 +02:00
|
|
|
|
{
|
|
|
|
|
symbolS *sym;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
1999-07-30 23:39:53 +02:00
|
|
|
|
for (sym = symbol_rootP; sym != NULL; sym = symbol_next (sym))
|
|
|
|
|
{
|
|
|
|
|
if (ELF_ST_TYPE (elf_symbol (symbol_get_bfdsym (sym))
|
|
|
|
|
->internal_elf_sym.st_info) != STT_REGISTER)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
if (ELF_ST_TYPE (elf_symbol (symbol_get_bfdsym (sym))
|
|
|
|
|
->internal_elf_sym.st_shndx != SHN_UNDEF))
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
S_SET_SEGMENT (sym, undefined_section);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* If the --enforce-aligned-data option is used, we require .word,
|
|
|
|
|
et. al., to be aligned correctly. We do it by setting up an
|
|
|
|
|
rs_align_code frag, and checking in HANDLE_ALIGN to make sure that
|
|
|
|
|
no unexpected alignment was introduced.
|
|
|
|
|
|
|
|
|
|
The SunOS and Solaris native assemblers enforce aligned data by
|
|
|
|
|
default. We don't want to do that, because gcc can deliberately
|
|
|
|
|
generate misaligned data if the packed attribute is used. Instead,
|
|
|
|
|
we permit misaligned data by default, and permit the user to set an
|
|
|
|
|
option to check for it. */
|
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
sparc_cons_align (int nbytes)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
int nalign;
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
/* Only do this if we are enforcing aligned data. */
|
|
|
|
|
if (! enforce_aligned_data)
|
|
|
|
|
return;
|
|
|
|
|
|
2001-05-28 11:23:54 +02:00
|
|
|
|
/* Don't align if this is an unaligned pseudo-op. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (sparc_no_align_cons)
|
2001-05-28 11:23:54 +02:00
|
|
|
|
return;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-02-17 14:46:05 +01:00
|
|
|
|
nalign = mylog2 (nbytes);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (nalign == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
* gas/app, gas/as.c, gas/as.h, gas/atof-generic.c, gas/cgen.c,
gas/config/atof-ieee.c, gas/config/obj-aout.c,
gas/config/obj-coff.c, gas/config/obj-ecoff.c,
gas/config/obj-elf.c, gas/config/obj-som.c, gas/config/tc-alpha.c,
gas/config/tc-arc.c, gas/config/tc-arm.c, gas/config/tc-cr16.c,
gas/config/tc-cris.c, gas/config/tc-crx.c, gas/config/tc-d30v.c,
gas/config/tc-dlx.c, gas/config/tc-hppa.c, gas/config/tc-i370.c,
gas/config/tc-i386-intel.c, gas/config/tc-i386.c,
gas/config/tc-i860.c, gas/config/tc-i960.c, gas/config/tc-ia64.c,
gas/config/tc-iq2000.c, gas/config/tc-m32c.c,
gas/config/tc-m32r.c, gas/config/tc-m68hc11.c,
gas/config/tc-m68k.c, gas/config/tc-maxq.c, gas/config/tc-mcore.c,
gas/config/tc-mep.c, gas/config/tc-mips.c, gas/config/tc-mmix.c,
gas/config/tc-mn10300.c, gas/config/tc-moxie.c,
gas/config/tc-ns32k.c, gas/config/tc-pj.c, gas/config/tc-ppc.c,
gas/config/tc-s390.c, gas/config/tc-score.c,
gas/config/tc-score7.c, gas/config/tc-sh.c, gas/config/tc-sparc.c,
gas/config/tc-spu.c, gas/config/tc-tic30.c, gas/config/tc-vax.c,
gas/config/tc-xtensa.c, gas/config/xtensa-relax.c,
gas/dw2gencfi.c, gas/dwarf2dbg.c, gas/ehopt.c, gas/expr.c,
gas/frags.c, gas/input-file.c, gas/read.c, gas/sb.c,
gas/subsegs.c, gas/symbols.c, gas/write.c: Change the name of the
gas macro `assert' to `gas_assert'.
2009-06-22 19:56:02 +02:00
|
|
|
|
gas_assert (nalign > 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (now_seg == absolute_section)
|
|
|
|
|
{
|
|
|
|
|
if ((abs_section_offset & ((1 << nalign) - 1)) != 0)
|
|
|
|
|
as_bad (_("misaligned data"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
p = frag_var (rs_align_test, 1, 1, (relax_substateT) 0,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
(symbolS *) NULL, (offsetT) nalign, (char *) NULL);
|
|
|
|
|
|
|
|
|
|
record_alignment (now_seg, nalign);
|
|
|
|
|
}
|
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
/* This is called from HANDLE_ALIGN in tc-sparc.h. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
sparc_handle_align (fragS *fragp)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2000-12-28 11:07:56 +01:00
|
|
|
|
int count, fix;
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
count = fragp->fr_next->fr_address - fragp->fr_address - fragp->fr_fix;
|
2001-01-14 19:54:06 +01:00
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
switch (fragp->fr_type)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2000-12-28 11:07:56 +01:00
|
|
|
|
case rs_align_test:
|
|
|
|
|
if (count != 0)
|
|
|
|
|
as_bad_where (fragp->fr_file, fragp->fr_line, _("misaligned data"));
|
|
|
|
|
break;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
case rs_align_code:
|
|
|
|
|
p = fragp->fr_literal + fragp->fr_fix;
|
|
|
|
|
fix = 0;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
if (count & 3)
|
|
|
|
|
{
|
|
|
|
|
fix = count & 3;
|
|
|
|
|
memset (p, 0, fix);
|
|
|
|
|
p += fix;
|
|
|
|
|
count -= fix;
|
|
|
|
|
}
|
2000-07-27 06:05:05 +02:00
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
if (SPARC_OPCODE_ARCH_V9_P (max_architecture) && count > 8)
|
|
|
|
|
{
|
|
|
|
|
unsigned wval = (0x30680000 | count >> 2); /* ba,a,pt %xcc, 1f */
|
|
|
|
|
if (INSN_BIG_ENDIAN)
|
|
|
|
|
number_to_chars_bigendian (p, wval, 4);
|
|
|
|
|
else
|
|
|
|
|
number_to_chars_littleendian (p, wval, 4);
|
|
|
|
|
p += 4;
|
|
|
|
|
count -= 4;
|
|
|
|
|
fix += 4;
|
2000-07-27 06:05:05 +02:00
|
|
|
|
}
|
2000-12-28 11:07:56 +01:00
|
|
|
|
|
|
|
|
|
if (INSN_BIG_ENDIAN)
|
|
|
|
|
number_to_chars_bigendian (p, 0x01000000, 4);
|
|
|
|
|
else
|
|
|
|
|
number_to_chars_littleendian (p, 0x01000000, 4);
|
|
|
|
|
|
|
|
|
|
fragp->fr_fix += fix;
|
|
|
|
|
fragp->fr_var = 4;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* Some special processing for a Sparc ELF file. */
|
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
sparc_elf_final_processing (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* Set the Sparc ELF flag bits. FIXME: There should probably be some
|
|
|
|
|
sort of BFD interface for this. */
|
|
|
|
|
if (sparc_arch_size == 64)
|
|
|
|
|
{
|
|
|
|
|
switch (sparc_memory_model)
|
|
|
|
|
{
|
|
|
|
|
case MM_RMO:
|
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= EF_SPARCV9_RMO;
|
|
|
|
|
break;
|
|
|
|
|
case MM_PSO:
|
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= EF_SPARCV9_PSO;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (current_architecture >= SPARC_OPCODE_ARCH_V9)
|
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= EF_SPARC_32PLUS;
|
|
|
|
|
if (current_architecture == SPARC_OPCODE_ARCH_V9A)
|
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= EF_SPARC_SUN_US1;
|
2000-10-20 12:38:47 +02:00
|
|
|
|
else if (current_architecture == SPARC_OPCODE_ARCH_V9B)
|
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= EF_SPARC_SUN_US1|EF_SPARC_SUN_US3;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-12-21 23:35:24 +01:00
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
sparc_cons (expressionS *exp, int size)
|
2001-12-21 23:35:24 +01:00
|
|
|
|
{
|
|
|
|
|
char *save;
|
|
|
|
|
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
sparc_cons_special_reloc = NULL;
|
|
|
|
|
save = input_line_pointer;
|
|
|
|
|
if (input_line_pointer[0] == '%'
|
|
|
|
|
&& input_line_pointer[1] == 'r'
|
|
|
|
|
&& input_line_pointer[2] == '_')
|
|
|
|
|
{
|
|
|
|
|
if (strncmp (input_line_pointer + 3, "disp", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer += 7;
|
|
|
|
|
sparc_cons_special_reloc = "disp";
|
|
|
|
|
}
|
|
|
|
|
else if (strncmp (input_line_pointer + 3, "plt", 3) == 0)
|
|
|
|
|
{
|
|
|
|
|
if (size != 4 && size != 8)
|
|
|
|
|
as_bad (_("Illegal operands: %%r_plt in %d-byte data field"), size);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer += 6;
|
|
|
|
|
sparc_cons_special_reloc = "plt";
|
|
|
|
|
}
|
|
|
|
|
}
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
else if (strncmp (input_line_pointer + 3, "tls_dtpoff", 10) == 0)
|
|
|
|
|
{
|
|
|
|
|
if (size != 4 && size != 8)
|
|
|
|
|
as_bad (_("Illegal operands: %%r_tls_dtpoff in %d-byte data field"), size);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer += 13;
|
|
|
|
|
sparc_cons_special_reloc = "tls_dtpoff";
|
|
|
|
|
}
|
|
|
|
|
}
|
2001-12-21 23:35:24 +01:00
|
|
|
|
if (sparc_cons_special_reloc)
|
|
|
|
|
{
|
|
|
|
|
int bad = 0;
|
|
|
|
|
|
|
|
|
|
switch (size)
|
|
|
|
|
{
|
|
|
|
|
case 1:
|
|
|
|
|
if (*input_line_pointer != '8')
|
|
|
|
|
bad = 1;
|
|
|
|
|
input_line_pointer--;
|
|
|
|
|
break;
|
|
|
|
|
case 2:
|
|
|
|
|
if (input_line_pointer[0] != '1' || input_line_pointer[1] != '6')
|
|
|
|
|
bad = 1;
|
|
|
|
|
break;
|
|
|
|
|
case 4:
|
|
|
|
|
if (input_line_pointer[0] != '3' || input_line_pointer[1] != '2')
|
|
|
|
|
bad = 1;
|
|
|
|
|
break;
|
|
|
|
|
case 8:
|
|
|
|
|
if (input_line_pointer[0] != '6' || input_line_pointer[1] != '4')
|
|
|
|
|
bad = 1;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
bad = 1;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (bad)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: Only %%r_%s%d allowed in %d-byte data fields"),
|
|
|
|
|
sparc_cons_special_reloc, size * 8, size);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer += 2;
|
|
|
|
|
if (*input_line_pointer != '(')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: %%r_%s%d requires arguments in ()"),
|
|
|
|
|
sparc_cons_special_reloc, size * 8);
|
|
|
|
|
bad = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (bad)
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer = save;
|
|
|
|
|
sparc_cons_special_reloc = NULL;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int c;
|
|
|
|
|
char *end = ++input_line_pointer;
|
|
|
|
|
int npar = 0;
|
|
|
|
|
|
|
|
|
|
while (! is_end_of_line[(c = *end)])
|
|
|
|
|
{
|
|
|
|
|
if (c == '(')
|
|
|
|
|
npar++;
|
|
|
|
|
else if (c == ')')
|
|
|
|
|
{
|
|
|
|
|
if (!npar)
|
|
|
|
|
break;
|
|
|
|
|
npar--;
|
|
|
|
|
}
|
|
|
|
|
end++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (c != ')')
|
|
|
|
|
as_bad (_("Illegal operands: %%r_%s%d requires arguments in ()"),
|
|
|
|
|
sparc_cons_special_reloc, size * 8);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
*end = '\0';
|
|
|
|
|
expression (exp);
|
|
|
|
|
*end = c;
|
|
|
|
|
if (input_line_pointer != end)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: %%r_%s%d requires arguments in ()"),
|
|
|
|
|
sparc_cons_special_reloc, size * 8);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
c = *input_line_pointer;
|
|
|
|
|
if (! is_end_of_line[c] && c != ',')
|
|
|
|
|
as_bad (_("Illegal operands: garbage after %%r_%s%d()"),
|
|
|
|
|
sparc_cons_special_reloc, size * 8);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (sparc_cons_special_reloc == NULL)
|
|
|
|
|
expression (exp);
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* This is called by emit_expr via TC_CONS_FIX_NEW when creating a
|
|
|
|
|
reloc for a cons. We could use the definition there, except that
|
|
|
|
|
we want to handle little endian relocs specially. */
|
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
cons_fix_new_sparc (fragS *frag,
|
|
|
|
|
int where,
|
|
|
|
|
unsigned int nbytes,
|
|
|
|
|
expressionS *exp)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
bfd_reloc_code_real_type r;
|
|
|
|
|
|
|
|
|
|
r = (nbytes == 1 ? BFD_RELOC_8 :
|
|
|
|
|
(nbytes == 2 ? BFD_RELOC_16 :
|
|
|
|
|
(nbytes == 4 ? BFD_RELOC_32 : BFD_RELOC_64)));
|
|
|
|
|
|
2001-05-28 11:23:54 +02:00
|
|
|
|
if (target_little_endian_data
|
|
|
|
|
&& nbytes == 4
|
2000-07-27 06:05:05 +02:00
|
|
|
|
&& now_seg->flags & SEC_ALLOC)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
r = BFD_RELOC_SPARC_REV32;
|
2001-05-28 11:23:54 +02:00
|
|
|
|
|
2001-12-21 23:35:24 +01:00
|
|
|
|
if (sparc_cons_special_reloc)
|
|
|
|
|
{
|
|
|
|
|
if (*sparc_cons_special_reloc == 'd')
|
|
|
|
|
switch (nbytes)
|
|
|
|
|
{
|
|
|
|
|
case 1: r = BFD_RELOC_8_PCREL; break;
|
|
|
|
|
case 2: r = BFD_RELOC_16_PCREL; break;
|
|
|
|
|
case 4: r = BFD_RELOC_32_PCREL; break;
|
|
|
|
|
case 8: r = BFD_RELOC_64_PCREL; break;
|
|
|
|
|
default: abort ();
|
|
|
|
|
}
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
else if (*sparc_cons_special_reloc == 'p')
|
2001-12-21 23:35:24 +01:00
|
|
|
|
switch (nbytes)
|
|
|
|
|
{
|
|
|
|
|
case 4: r = BFD_RELOC_SPARC_PLT32; break;
|
|
|
|
|
case 8: r = BFD_RELOC_SPARC_PLT64; break;
|
|
|
|
|
}
|
bfd/
* elf32-sparc.c (_bfd_sparc_elf_howto_table): Add TLS relocs.
(elf32_sparc_rev32_howto): New variable.
(sparc_reloc_map): Add TLS relocs.
(elf32_sparc_reloc_type_lookup, elf32_sparc_info_to_howto):
Handle REV32.
(sparc_elf_hix22_reloc, sparc_elf_lox10_reloc, elf32_sparc_mkobject):
New functions.
(struct elf32_sparc_dyn_relocs, struct elf32_sparc_link_hash_entry,
struct elf32_sparc_link_hash_table):
New structures.
(elf32_sparc_tdata, elf32_sparc_local_got_tls_type,
elf32_sparc_hash_table): Define.
(link_hash_newfunc, elf32_sparc_link_hash_table_create,
create_got_section, elf32_sparc_create_dynamic_sections,
elf32_sparc_copy_indirect_symbol, elf32_sparc_tls_transition): New
functions.
(elf32_sparc_check_relocs): Handle TLS relocs. Add dynamic reloc
reference counting.
(elf32_sparc_gc_sweep_hook): Likewise.
(elf32_sparc_adjust_dynamic_symbol): Likewise.
(elf32_sparc_size_dynamic_sections): Likewise.
(elf32_sparc_relocate_section): Likewise.
(allocate_dynrelocs, readonly_dynrelocs, dtpoff_base, tpoff):
New functions.
(elf32_sparc_object_p): Allocate backend private object data.
(bfd_elf32_bfd_link_hash_table_create,
elf_backend_copy_indirect_symbol, bfd_elf32_mkobject,
elf_backend_can_refcount): Define.
(elf_backend_create_dynamic_sections): Define to
elf32_sparc_create_dynamic_sections.
* reloc.c: Add SPARC TLS relocs.
* bfd-in2.h, libbfd.h: Rebuilt.
* elf64-sparc.c (sparc64_elf_howto_table): Add TLS relocs.
(sparc_reloc_map): Likewise.
gas/
* config/tc-sparc.c (sparc_ip): Handle TLS % operators.
(tc_gen_reloc): Handle TLS relocs.
(sparc_cons, cons_fix_new_sparc): Handle %r_tls_dtpoff.
* config/tc-sparc.h (tc_fix_adjustable): Don't adjust TLS
relocs.
* config/obj-elf.c (obj_elf_section_word): Handle tls.
(obj_elf_type): Handle tls_object.
include/
* elf/sparc.h: Add TLS relocs. Move R_SPARC_REV32 to 252.
ld/testsuite/
* ld-sparc/sparc.exp: New.
* ld-sparc/tlsg32.s: New test.
* ld-sparc/tlsg32.sd: Likewise.
* ld-sparc/tlsg64.s: Likewise.
* ld-sparc/tlsg64.sd: Likewise.
* ld-sparc/tlslib.s: Likewise.
* ld-sparc/tlsnopic.s: Likewise.
* ld-sparc/tlspic.s: Likewise.
* ld-sparc/tlssunbin32.dd: Likewise.
* ld-sparc/tlssunbin32.rd: Likewise.
* ld-sparc/tlssunbin32.s: Likewise.
* ld-sparc/tlssunbin32.sd: Likewise.
* ld-sparc/tlssunbin32.td: Likewise.
* ld-sparc/tlssunbin64.dd: Likewise.
* ld-sparc/tlssunbin64.rd: Likewise.
* ld-sparc/tlssunbin64.s: Likewise.
* ld-sparc/tlssunbin64.sd: Likewise.
* ld-sparc/tlssunbin64.td: Likewise.
* ld-sparc/tlssunbinpic32.s: Likewise.
* ld-sparc/tlssunbinpic64.s: Likewise.
* ld-sparc/tlssunnopic32.dd: Likewise.
* ld-sparc/tlssunnopic32.rd: Likewise.
* ld-sparc/tlssunnopic32.s: Likewise.
* ld-sparc/tlssunnopic32.sd: Likewise.
* ld-sparc/tlssunnopic64.dd: Likewise.
* ld-sparc/tlssunnopic64.rd: Likewise.
* ld-sparc/tlssunnopic64.s: Likewise.
* ld-sparc/tlssunnopic64.sd: Likewise.
* ld-sparc/tlssunpic32.dd: Likewise.
* ld-sparc/tlssunpic32.rd: Likewise.
* ld-sparc/tlssunpic32.s: Likewise.
* ld-sparc/tlssunpic32.sd: Likewise.
* ld-sparc/tlssunpic32.td: Likewise.
* ld-sparc/tlssunpic64.dd: Likewise.
* ld-sparc/tlssunpic64.rd: Likewise.
* ld-sparc/tlssunpic64.s: Likewise.
* ld-sparc/tlssunpic64.sd: Likewise.
* ld-sparc/tlssunpic64.td: Likewise.
2003-01-25 00:44:45 +01:00
|
|
|
|
else
|
|
|
|
|
switch (nbytes)
|
|
|
|
|
{
|
|
|
|
|
case 4: r = BFD_RELOC_SPARC_TLS_DTPOFF32; break;
|
|
|
|
|
case 8: r = BFD_RELOC_SPARC_TLS_DTPOFF64; break;
|
|
|
|
|
}
|
2001-12-21 23:35:24 +01:00
|
|
|
|
}
|
|
|
|
|
else if (sparc_no_align_cons)
|
2001-05-28 11:23:54 +02:00
|
|
|
|
{
|
|
|
|
|
switch (nbytes)
|
|
|
|
|
{
|
|
|
|
|
case 2: r = BFD_RELOC_SPARC_UA16; break;
|
|
|
|
|
case 4: r = BFD_RELOC_SPARC_UA32; break;
|
|
|
|
|
case 8: r = BFD_RELOC_SPARC_UA64; break;
|
|
|
|
|
default: abort ();
|
|
|
|
|
}
|
2001-08-12 10:47:02 +02:00
|
|
|
|
}
|
2001-05-28 11:23:54 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fix_new_exp (frag, where, (int) nbytes, exp, 0, r);
|
2003-08-29 22:20:18 +02:00
|
|
|
|
sparc_cons_special_reloc = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2008-08-13 01:39:31 +02:00
|
|
|
|
sparc_cfi_frame_initial_instructions (void)
|
2003-08-29 22:20:18 +02:00
|
|
|
|
{
|
|
|
|
|
cfi_add_CFA_def_cfa (14, sparc_arch_size == 64 ? 0x7ff : 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
int
|
2006-05-19 13:26:11 +02:00
|
|
|
|
sparc_regname_to_dw2regnum (char *regname)
|
2003-08-29 22:20:18 +02:00
|
|
|
|
{
|
|
|
|
|
char *p, *q;
|
|
|
|
|
|
|
|
|
|
if (!regname[0])
|
|
|
|
|
return -1;
|
|
|
|
|
|
|
|
|
|
q = "goli";
|
|
|
|
|
p = strchr (q, regname[0]);
|
|
|
|
|
if (p)
|
|
|
|
|
{
|
|
|
|
|
if (regname[1] < '0' || regname[1] > '8' || regname[2])
|
|
|
|
|
return -1;
|
|
|
|
|
return (p - q) * 8 + regname[1] - '0';
|
|
|
|
|
}
|
|
|
|
|
if (regname[0] == 's' && regname[1] == 'p' && !regname[2])
|
|
|
|
|
return 14;
|
|
|
|
|
if (regname[0] == 'f' && regname[1] == 'p' && !regname[2])
|
|
|
|
|
return 30;
|
|
|
|
|
if (regname[0] == 'f' || regname[0] == 'r')
|
|
|
|
|
{
|
|
|
|
|
unsigned int regnum;
|
|
|
|
|
|
|
|
|
|
regnum = strtoul (regname + 1, &q, 10);
|
|
|
|
|
if (p == q || *q)
|
|
|
|
|
return -1;
|
|
|
|
|
if (regnum >= ((regname[0] == 'f'
|
|
|
|
|
&& SPARC_OPCODE_ARCH_V9_P (max_architecture))
|
|
|
|
|
? 64 : 32))
|
|
|
|
|
return -1;
|
|
|
|
|
if (regname[0] == 'f')
|
|
|
|
|
{
|
|
|
|
|
regnum += 32;
|
|
|
|
|
if (regnum >= 64 && (regnum & 1))
|
|
|
|
|
return -1;
|
|
|
|
|
}
|
|
|
|
|
return regnum;
|
|
|
|
|
}
|
|
|
|
|
return -1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
sparc_cfi_emit_pcrel_expr (expressionS *exp, unsigned int nbytes)
|
|
|
|
|
{
|
|
|
|
|
sparc_cons_special_reloc = "disp";
|
|
|
|
|
sparc_no_align_cons = 1;
|
|
|
|
|
emit_expr (exp, nbytes);
|
|
|
|
|
sparc_no_align_cons = 0;
|
|
|
|
|
sparc_cons_special_reloc = NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|