1999-05-03 15:29:11 +08:00
|
|
|
|
/* tc-sparc.c -- Assemble for the SPARC
|
2000-07-27 12:05:05 +08:00
|
|
|
|
Copyright (C) 1989, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 2000
|
|
|
|
|
Free Software Foundation, Inc.
|
1999-05-03 15:29:11 +08: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
|
|
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
|
|
|
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
|
|
|
|
|
to the Free Software Foundation, 59 Temple Place - Suite 330,
|
|
|
|
|
Boston, MA 02111-1307, USA. */
|
|
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
#include <ctype.h>
|
|
|
|
|
|
|
|
|
|
#include "as.h"
|
|
|
|
|
#include "subsegs.h"
|
|
|
|
|
|
|
|
|
|
#include "opcode/sparc.h"
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
#include "elf/sparc.h"
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
static struct sparc_arch *lookup_arch PARAMS ((char *));
|
|
|
|
|
static void init_default_arch PARAMS ((void));
|
1999-06-11 05:11:39 +08:00
|
|
|
|
static int sparc_ip PARAMS ((char *, const struct sparc_opcode **));
|
1999-05-03 15:29:11 +08:00
|
|
|
|
static int in_signed_range PARAMS ((bfd_signed_vma, bfd_signed_vma));
|
|
|
|
|
static int in_unsigned_range PARAMS ((bfd_vma, bfd_vma));
|
|
|
|
|
static int in_bitfield_range PARAMS ((bfd_signed_vma, bfd_signed_vma));
|
|
|
|
|
static int sparc_ffs PARAMS ((unsigned int));
|
1999-06-11 05:11:39 +08:00
|
|
|
|
static void synthetize_setuw PARAMS ((const struct sparc_opcode *));
|
|
|
|
|
static void synthetize_setsw PARAMS ((const struct sparc_opcode *));
|
|
|
|
|
static void synthetize_setx PARAMS ((const struct sparc_opcode *));
|
1999-05-03 15:29:11 +08:00
|
|
|
|
static bfd_vma BSR PARAMS ((bfd_vma, int));
|
|
|
|
|
static int cmp_reg_entry PARAMS ((const PTR, const PTR));
|
|
|
|
|
static int parse_keyword_arg PARAMS ((int (*) (const char *), char **, int *));
|
|
|
|
|
static int parse_const_expr_arg PARAMS ((char **, int *));
|
|
|
|
|
static int get_expression PARAMS ((char *str));
|
|
|
|
|
|
|
|
|
|
/* 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-31 05:39:53 +08: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 14:45:55 +08:00
|
|
|
|
/* Non-zero if we should try to relax jumps and calls. */
|
|
|
|
|
static int sparc_relax;
|
|
|
|
|
|
1999-05-03 15:29:11 +08: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-31 05:39:53 +08:00
|
|
|
|
/* Symbols for global registers on v9. */
|
|
|
|
|
static symbolS *globals[8];
|
|
|
|
|
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
/* Handle of the OPCODE hash table. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
static struct hash_control *op_hash;
|
|
|
|
|
|
|
|
|
|
static int log2 PARAMS ((int));
|
|
|
|
|
static void s_data1 PARAMS ((void));
|
|
|
|
|
static void s_seg PARAMS ((int));
|
|
|
|
|
static void s_proc PARAMS ((int));
|
|
|
|
|
static void s_reserve PARAMS ((int));
|
|
|
|
|
static void s_common PARAMS ((int));
|
|
|
|
|
static void s_empty PARAMS ((int));
|
|
|
|
|
static void s_uacons PARAMS ((int));
|
1999-06-07 20:40:36 +08:00
|
|
|
|
static void s_ncons PARAMS ((int));
|
1999-07-31 05:39:53 +08:00
|
|
|
|
static void s_register PARAMS ((int));
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
const pseudo_typeS md_pseudo_table[] =
|
|
|
|
|
{
|
2000-07-27 12:05:05 +08:00
|
|
|
|
{"align", s_align_bytes, 0}, /* Defaulting is invalid (0). */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
{"common", s_common, 0},
|
|
|
|
|
{"empty", s_empty, 0},
|
|
|
|
|
{"global", s_globl, 0},
|
|
|
|
|
{"half", cons, 2},
|
1999-06-07 20:40:36 +08:00
|
|
|
|
{"nword", s_ncons, 0},
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
/* These are specific to sparc/svr4. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
{"2byte", s_uacons, 2},
|
|
|
|
|
{"4byte", s_uacons, 4},
|
|
|
|
|
{"8byte", s_uacons, 8},
|
1999-07-31 05:39:53 +08:00
|
|
|
|
{"register", s_register, 0},
|
1999-05-03 15:29:11 +08:00
|
|
|
|
#endif
|
|
|
|
|
{NULL, 0, 0},
|
|
|
|
|
};
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Size of relocation record. */
|
|
|
|
|
const int md_reloc_size = 12;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
/* This array holds the chars that always start a comment. If the
|
2000-07-27 12:05:05 +08:00
|
|
|
|
pre-processor is disabled, these aren't very useful. */
|
|
|
|
|
const char comment_chars[] = "!"; /* JF removed '|' from
|
|
|
|
|
comment_chars. */
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
.line and .file directives will appear in the pre-processed output. */
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
#NO_APP at the beginning of its output. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
/* Also note that comments started like this one will always
|
2000-07-27 12:05:05 +08:00
|
|
|
|
work if '/' isn't otherwise defined. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
const char line_comment_chars[] = "#";
|
|
|
|
|
|
2000-06-09 08:00:04 +08:00
|
|
|
|
const char line_separator_chars[] = ";";
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Chars that can be used to separate mant from exp in floating point
|
|
|
|
|
nums. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
const char EXP_CHARS[] = "eE";
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Chars that mean this number is a floating point constant.
|
|
|
|
|
As in 0f12.456
|
|
|
|
|
or 0d1.2345e12 */
|
1999-05-03 15:29:11 +08: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. */
|
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
#define isoctal(c) ((unsigned)((c) - '0') < '8')
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
struct sparc_it
|
|
|
|
|
{
|
|
|
|
|
char *error;
|
|
|
|
|
unsigned long opcode;
|
|
|
|
|
struct nlist *nlistp;
|
|
|
|
|
expressionS exp;
|
1999-06-07 20:40:36 +08:00
|
|
|
|
expressionS exp2;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
int pcrel;
|
|
|
|
|
bfd_reloc_code_real_type reloc;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
struct sparc_it the_insn, set_insn;
|
|
|
|
|
|
|
|
|
|
static void output_insn
|
|
|
|
|
PARAMS ((const struct sparc_opcode *, struct sparc_it *));
|
|
|
|
|
|
|
|
|
|
/* 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,
|
|
|
|
|
v8plusa, v9, v9a, v9_64};
|
|
|
|
|
|
|
|
|
|
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 },
|
|
|
|
|
{ "v9", "v9", v9, 0, 1 },
|
|
|
|
|
{ "v9a", "v9a", v9, 0, 1 },
|
|
|
|
|
/* 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 *
|
|
|
|
|
lookup_arch (name)
|
|
|
|
|
char *name;
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
init_default_arch ()
|
|
|
|
|
{
|
|
|
|
|
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 *
|
|
|
|
|
sparc_target_format ()
|
|
|
|
|
{
|
|
|
|
|
/* 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 09:01:32 +08:00
|
|
|
|
else
|
|
|
|
|
return "a.out-sparc-little";
|
1999-05-03 15:29:11 +08: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
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
return sparc_arch_size == 64 ? "elf64-sparc" : "elf32-sparc";
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* md_parse_option
|
1999-05-03 15:29:11 +08: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.
|
|
|
|
|
* -Av8plus, -Av8plusa
|
|
|
|
|
* Sparc64 in a 32 bit world.
|
|
|
|
|
* -Av9, -Av9a
|
|
|
|
|
* 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).
|
|
|
|
|
* -xarch=v8plus, -xarch=v8plusa
|
|
|
|
|
* Same as -Av8plus{,a}, for compatibility with Sun's assembler.
|
|
|
|
|
*
|
|
|
|
|
* 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
|
|
|
|
|
* -Av8plus{,a}.
|
|
|
|
|
*
|
|
|
|
|
* 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
|
|
|
|
|
CONST char *md_shortopts = "A:K:VQ:sq";
|
|
|
|
|
#else
|
|
|
|
|
#ifdef OBJ_AOUT
|
|
|
|
|
CONST char *md_shortopts = "A:k";
|
|
|
|
|
#else
|
|
|
|
|
CONST char *md_shortopts = "A:";
|
|
|
|
|
#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-31 05:39:53 +08: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 11:51:32 +08:00
|
|
|
|
#define OPTION_UNDECLARED_REGS (OPTION_MD_BASE + 13)
|
|
|
|
|
{"undeclared-regs", no_argument, NULL, OPTION_UNDECLARED_REGS},
|
1999-07-31 05:39:53 +08:00
|
|
|
|
#endif
|
2000-05-26 14:45:55 +08: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 15:29:11 +08:00
|
|
|
|
{NULL, no_argument, NULL, 0}
|
|
|
|
|
};
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
|
|
|
|
size_t md_longopts_size = sizeof (md_longopts);
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
md_parse_option (c, arg)
|
|
|
|
|
int c;
|
|
|
|
|
char *arg;
|
|
|
|
|
{
|
|
|
|
|
/* 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:
|
|
|
|
|
/* This is for compatibility with Sun's assembler. */
|
|
|
|
|
if (strcmp (arg, "v8plus") != 0
|
|
|
|
|
&& strcmp (arg, "v8plusa") != 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("invalid architecture -xarch=%s"), arg);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Fall through. */
|
1999-05-03 15:29:11 +08: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)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("invalid architecture -A%s"), arg);
|
|
|
|
|
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)
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (*l, "elf32-sparc") == 0)
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (*l, "elf64-sparc") == 0)
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (*l == NULL)
|
|
|
|
|
as_fatal (_("No compiled in support for %d bit object file format"),
|
|
|
|
|
sparc_arch_size);
|
|
|
|
|
free (list);
|
|
|
|
|
}
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
Qn - do not emit .comment. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 's':
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Use .stab instead of .stab.excl. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'q':
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* quick -- Native assembler does fewer checks. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'K':
|
|
|
|
|
if (strcmp (arg, "PIC") != 0)
|
|
|
|
|
as_warn (_("Unrecognized option following -K"));
|
|
|
|
|
else
|
|
|
|
|
sparc_pic_code = 1;
|
|
|
|
|
break;
|
1999-07-31 05:39:53 +08:00
|
|
|
|
|
|
|
|
|
case OPTION_NO_UNDECLARED_REGS:
|
|
|
|
|
no_undeclared_regs = 1;
|
|
|
|
|
break;
|
2000-02-28 11:51:32 +08:00
|
|
|
|
|
|
|
|
|
case OPTION_UNDECLARED_REGS:
|
|
|
|
|
no_undeclared_regs = 0;
|
|
|
|
|
break;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
#endif
|
|
|
|
|
|
2000-05-26 14:45:55 +08:00
|
|
|
|
case OPTION_RELAX:
|
|
|
|
|
sparc_relax = 1;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_NO_RELAX:
|
|
|
|
|
sparc_relax = 0;
|
|
|
|
|
break;
|
|
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
|
default:
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_show_usage (stream)
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
|
|
|
|
const struct sparc_arch *arch;
|
|
|
|
|
|
|
|
|
|
/* 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 12:05:05 +08:00
|
|
|
|
fprintf (stream, _("SPARC options:\n"));
|
1999-05-03 15:29:11 +08:00
|
|
|
|
for (arch = &sparc_arch_table[0]; arch->name; arch++)
|
|
|
|
|
{
|
|
|
|
|
if (arch != &sparc_arch_table[0])
|
|
|
|
|
fprintf (stream, " | ");
|
|
|
|
|
if (arch->user_option_p)
|
|
|
|
|
fprintf (stream, "-A%s", arch->name);
|
|
|
|
|
}
|
|
|
|
|
fprintf (stream, _("\n-xarch=v8plus | -xarch=v8plusa\n"));
|
|
|
|
|
fprintf (stream, _("\
|
|
|
|
|
specify variant of SPARC architecture\n\
|
|
|
|
|
-bump warn when assembler switches architectures\n\
|
|
|
|
|
-sparc ignored\n\
|
2000-05-26 14:45:55 +08: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 15:29:11 +08: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 11:51:32 +08: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 15:29:11 +08: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 22:10:05 +08:00
|
|
|
|
instructions and little endian data.\n"));
|
1999-05-03 15:29:11 +08:00
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Native operand size opcode translation. */
|
1999-06-07 20:40:36 +08: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},
|
|
|
|
|
};
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* sparc64 priviledged registers. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
struct priv_reg_entry
|
2000-08-04 09:01:32 +08:00
|
|
|
|
{
|
|
|
|
|
char *name;
|
|
|
|
|
int regnum;
|
|
|
|
|
};
|
1999-05-03 15:29:11 +08: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},
|
|
|
|
|
{"ver", 31},
|
2000-07-27 12:05:05 +08:00
|
|
|
|
{"", -1}, /* End marker. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
};
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* v9a specific asrs. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
struct priv_reg_entry v9a_asr_table[] =
|
|
|
|
|
{
|
|
|
|
|
{"tick_cmpr", 23},
|
|
|
|
|
{"softint", 22},
|
|
|
|
|
{"set_softint", 20},
|
|
|
|
|
{"pic", 17},
|
|
|
|
|
{"pcr", 16},
|
|
|
|
|
{"gsr", 19},
|
|
|
|
|
{"dcr", 18},
|
|
|
|
|
{"clear_softint", 21},
|
2000-07-27 12:05:05 +08:00
|
|
|
|
{"", -1}, /* End marker. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
cmp_reg_entry (parg, qarg)
|
|
|
|
|
const PTR parg;
|
|
|
|
|
const PTR qarg;
|
|
|
|
|
{
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
set up all the tables, etc. that the MD part of the assembler will
|
|
|
|
|
need. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_begin ()
|
|
|
|
|
{
|
|
|
|
|
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 ();
|
|
|
|
|
|
|
|
|
|
op_hash = hash_new ();
|
|
|
|
|
|
|
|
|
|
while (i < (unsigned int) sparc_num_opcodes)
|
|
|
|
|
{
|
|
|
|
|
const char *name = sparc_opcodes[i].name;
|
|
|
|
|
retval = hash_insert (op_hash, name, (PTR) &sparc_opcodes[i]);
|
|
|
|
|
if (retval != NULL)
|
|
|
|
|
{
|
1999-06-07 20:40:36 +08:00
|
|
|
|
as_bad (_("Internal error: can't hash `%s': %s\n"),
|
|
|
|
|
sparc_opcodes[i].name, retval);
|
1999-05-03 15:29:11 +08:00
|
|
|
|
lose = 1;
|
|
|
|
|
}
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (sparc_opcodes[i].match & sparc_opcodes[i].lose)
|
|
|
|
|
{
|
1999-06-07 20:40:36 +08:00
|
|
|
|
as_bad (_("Internal error: losing opcode: `%s' \"%s\"\n"),
|
|
|
|
|
sparc_opcodes[i].name, sparc_opcodes[i].args);
|
1999-05-03 15:29:11 +08:00
|
|
|
|
lose = 1;
|
|
|
|
|
}
|
|
|
|
|
++i;
|
|
|
|
|
}
|
|
|
|
|
while (i < (unsigned int) sparc_num_opcodes
|
|
|
|
|
&& !strcmp (sparc_opcodes[i].name, name));
|
|
|
|
|
}
|
|
|
|
|
|
1999-06-07 20:40:36 +08:00
|
|
|
|
for (i = 0; native_op_table[i].name; i++)
|
|
|
|
|
{
|
|
|
|
|
const struct sparc_opcode *insn;
|
2000-08-05 06:23:32 +08:00
|
|
|
|
char *name = ((sparc_arch_size == 32)
|
|
|
|
|
? native_op_table[i].name32
|
|
|
|
|
: native_op_table[i].name64);
|
2000-07-27 12:05:05 +08:00
|
|
|
|
insn = (struct sparc_opcode *) hash_find (op_hash, name);
|
1999-06-07 20:40:36 +08:00
|
|
|
|
if (insn == NULL)
|
2000-07-27 12:05:05 +08:00
|
|
|
|
{
|
|
|
|
|
as_bad (_("Internal error: can't find opcode `%s' for `%s'\n"),
|
|
|
|
|
name, native_op_table[i].name);
|
|
|
|
|
lose = 1;
|
|
|
|
|
}
|
1999-06-07 20:40:36 +08:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
retval = hash_insert (op_hash, native_op_table[i].name, (PTR) insn);
|
|
|
|
|
if (retval != NULL)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Internal error: can't hash `%s': %s\n"),
|
|
|
|
|
sparc_opcodes[i].name, retval);
|
|
|
|
|
lose = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 15:29:11 +08: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
|
|
|
|
|
sparc_md_end ()
|
|
|
|
|
{
|
|
|
|
|
if (sparc_arch_size == 64)
|
|
|
|
|
{
|
|
|
|
|
if (current_architecture == SPARC_OPCODE_ARCH_V9A)
|
|
|
|
|
bfd_set_arch_mach (stdoutput, bfd_arch_sparc, bfd_mach_sparc_v9a);
|
|
|
|
|
else
|
|
|
|
|
bfd_set_arch_mach (stdoutput, bfd_arch_sparc, bfd_mach_sparc_v9);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (current_architecture == SPARC_OPCODE_ARCH_V9)
|
|
|
|
|
bfd_set_arch_mach (stdoutput, bfd_arch_sparc, bfd_mach_sparc_v8plus);
|
|
|
|
|
else if (current_architecture == SPARC_OPCODE_ARCH_V9A)
|
|
|
|
|
bfd_set_arch_mach (stdoutput, bfd_arch_sparc, bfd_mach_sparc_v8plusa);
|
|
|
|
|
else if (current_architecture == SPARC_OPCODE_ARCH_SPARCLET)
|
|
|
|
|
bfd_set_arch_mach (stdoutput, bfd_arch_sparc, bfd_mach_sparc_sparclet);
|
|
|
|
|
else if (default_arch_type == sparc86x && target_little_endian_data)
|
|
|
|
|
bfd_set_arch_mach (stdoutput, bfd_arch_sparc, bfd_mach_sparc_sparclite_le);
|
|
|
|
|
else
|
|
|
|
|
{
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* 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). */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
bfd_set_arch_mach (stdoutput, bfd_arch_sparc, bfd_mach_sparc);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return non-zero if VAL is in the range -(MAX+1) to MAX. */
|
|
|
|
|
|
|
|
|
|
static INLINE int
|
|
|
|
|
in_signed_range (val, max)
|
|
|
|
|
bfd_signed_vma val, max;
|
|
|
|
|
{
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
bfd_signed_vma sign = (bfd_signed_vma) 1 << 31;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
val = ((val & 0xffffffff) ^ sign) - sign;
|
|
|
|
|
}
|
|
|
|
|
if (val > max)
|
|
|
|
|
return 0;
|
|
|
|
|
if (val < ~max)
|
|
|
|
|
return 0;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return non-zero if VAL is in the range 0 to MAX. */
|
|
|
|
|
|
|
|
|
|
static INLINE int
|
|
|
|
|
in_unsigned_range (val, max)
|
|
|
|
|
bfd_vma val, max;
|
|
|
|
|
{
|
|
|
|
|
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). */
|
|
|
|
|
|
|
|
|
|
static INLINE int
|
|
|
|
|
in_bitfield_range (val, max)
|
|
|
|
|
bfd_signed_vma val, max;
|
|
|
|
|
{
|
|
|
|
|
if (max <= 0)
|
|
|
|
|
abort ();
|
|
|
|
|
if (val > max)
|
|
|
|
|
return 0;
|
|
|
|
|
if (val < ~(max >> 1))
|
|
|
|
|
return 0;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
sparc_ffs (mask)
|
|
|
|
|
unsigned int mask;
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
BSR (val, amount)
|
|
|
|
|
bfd_vma val;
|
|
|
|
|
int amount;
|
|
|
|
|
{
|
|
|
|
|
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 20:53:56 +08:00
|
|
|
|
#define XOR_INSN 0x80180000
|
1999-05-03 15:29:11 +08: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-11 05:11:39 +08:00
|
|
|
|
/* Handle the set and setuw synthetic instructions. */
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
static void
|
|
|
|
|
synthetize_setuw (insn)
|
|
|
|
|
const struct sparc_opcode *insn;
|
|
|
|
|
{
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
if (sizeof (offsetT) > 4
|
1999-06-11 05:11:39 +08:00
|
|
|
|
&& (the_insn.exp.X_add_number < 0
|
|
|
|
|
|| the_insn.exp.X_add_number > (offsetT) 0xffffffff))
|
|
|
|
|
as_warn (_("set: number not in 0..4294967295 range"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2000-07-27 12:05:05 +08:00
|
|
|
|
if (sizeof (offsetT) > 4
|
1999-06-11 05:11:39 +08:00
|
|
|
|
&& (the_insn.exp.X_add_number < -(offsetT) 0x80000000
|
|
|
|
|
|| the_insn.exp.X_add_number > (offsetT) 0xffffffff))
|
|
|
|
|
as_warn (_("set: number not in -2147483648..4294967295 range"));
|
2000-07-27 12:05:05 +08:00
|
|
|
|
the_insn.exp.X_add_number = (int) the_insn.exp.X_add_number;
|
1999-06-11 05:11:39 +08: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 09:01:32 +08:00
|
|
|
|
& (the_insn.exp.X_op == O_constant
|
|
|
|
|
? 0x3fffff : 0)));
|
1999-06-11 05:11:39 +08:00
|
|
|
|
the_insn.reloc = (the_insn.exp.X_op != O_constant
|
2000-08-04 09:01:32 +08:00
|
|
|
|
? BFD_RELOC_HI22 : BFD_RELOC_NONE);
|
1999-06-11 05:11:39 +08: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 09:01:32 +08:00
|
|
|
|
& (the_insn.exp.X_op != O_constant
|
|
|
|
|
? 0 : need_hi22_p ? 0x3ff : 0x1fff)));
|
1999-06-11 05:11:39 +08:00
|
|
|
|
the_insn.reloc = (the_insn.exp.X_op != O_constant
|
2000-08-04 09:01:32 +08:00
|
|
|
|
? BFD_RELOC_LO10 : BFD_RELOC_NONE);
|
1999-06-11 05:11:39 +08:00
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
}
|
|
|
|
|
}
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
/* Handle the setsw synthetic instruction. */
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
static void
|
|
|
|
|
synthetize_setsw (insn)
|
|
|
|
|
const struct sparc_opcode *insn;
|
|
|
|
|
{
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
if (sizeof (offsetT) > 4
|
1999-06-11 05:11:39 +08:00
|
|
|
|
&& (the_insn.exp.X_add_number < -(offsetT) 0x80000000
|
|
|
|
|
|| the_insn.exp.X_add_number > (offsetT) 0xffffffff))
|
|
|
|
|
as_warn (_("setsw: number not in -2147483648..4294967295 range"));
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
low32 = the_insn.exp.X_add_number;
|
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
if (low32 >= 0)
|
|
|
|
|
{
|
|
|
|
|
synthetize_setuw (insn);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
opc = OR_INSN;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
static void
|
|
|
|
|
synthetize_setx (insn)
|
|
|
|
|
const struct sparc_opcode *insn;
|
|
|
|
|
{
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
#define SIGNEXT32(x) ((((x) & 0xffffffff) ^ 0x80000000) - 0x80000000)
|
|
|
|
|
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 09:01:32 +08:00
|
|
|
|
lower32 = 0;
|
|
|
|
|
upper32 = 0;
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
if (need_hi22_p)
|
|
|
|
|
{
|
|
|
|
|
the_insn.opcode = (SETHI_INSN | RD (dstreg)
|
|
|
|
|
| (((need_xor10_p ? ~lower32 : lower32)
|
2000-08-04 09:01:32 +08:00
|
|
|
|
>> 10) & 0x3fffff));
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08: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 15:29:11 +08:00
|
|
|
|
/* Main entry point to assemble one instruction. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_assemble (str)
|
|
|
|
|
char *str;
|
|
|
|
|
{
|
|
|
|
|
const struct sparc_opcode *insn;
|
1999-06-11 05:11:39 +08:00
|
|
|
|
int special_case;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
know (str);
|
1999-06-11 05:11:39 +08:00
|
|
|
|
special_case = sparc_ip (str, &insn);
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
/* We warn about attempts to put a floating point branch in a delay slot,
|
|
|
|
|
unless the delay slot has been annulled. */
|
|
|
|
|
if (insn != NULL
|
|
|
|
|
&& last_insn != NULL
|
|
|
|
|
&& (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
|
|
|
|
|
&& insn != NULL
|
|
|
|
|
&& 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-11 05:11:39 +08:00
|
|
|
|
switch (special_case)
|
|
|
|
|
{
|
|
|
|
|
case SPECIAL_CASE_NONE:
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Normal insn. */
|
1999-06-11 05:11:39 +08:00
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
break;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
case SPECIAL_CASE_SETSW:
|
|
|
|
|
synthetize_setsw (insn);
|
|
|
|
|
break;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
case SPECIAL_CASE_SET:
|
|
|
|
|
synthetize_setuw (insn);
|
|
|
|
|
break;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
case SPECIAL_CASE_SETX:
|
|
|
|
|
synthetize_setx (insn);
|
|
|
|
|
break;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
case SPECIAL_CASE_FDIV:
|
|
|
|
|
{
|
|
|
|
|
int rd = (the_insn.opcode >> 25) & 0x1f;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
output_insn (insn, &the_insn);
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08: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 12:05:05 +08:00
|
|
|
|
with Weitek 1165 float chips, such as the Sun-4/260 and /280. */
|
1999-06-11 05:11:39 +08:00
|
|
|
|
assert (the_insn.reloc == BFD_RELOC_NONE);
|
|
|
|
|
the_insn.opcode = FMOVS_INSN | rd | RD (rd);
|
|
|
|
|
output_insn (insn, &the_insn);
|
|
|
|
|
return;
|
|
|
|
|
}
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
default:
|
|
|
|
|
as_fatal (_("failed special case insn sanity check"));
|
1999-05-03 15:29:11 +08:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Subroutine of md_assemble to do the actual parsing. */
|
|
|
|
|
|
1999-06-11 05:11:39 +08:00
|
|
|
|
static int
|
1999-05-03 15:29:11 +08:00
|
|
|
|
sparc_ip (str, pinsn)
|
|
|
|
|
char *str;
|
|
|
|
|
const struct sparc_opcode **pinsn;
|
|
|
|
|
{
|
|
|
|
|
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-11 05:11:39 +08:00
|
|
|
|
int special_case = SPECIAL_CASE_NONE;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
s = str;
|
|
|
|
|
if (islower ((unsigned char) *s))
|
|
|
|
|
{
|
|
|
|
|
do
|
|
|
|
|
++s;
|
|
|
|
|
while (islower ((unsigned char) *s) || isdigit ((unsigned char) *s));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (*s)
|
|
|
|
|
{
|
|
|
|
|
case '\0':
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ',':
|
|
|
|
|
comma = 1;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Fall through. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
case ' ':
|
|
|
|
|
*s++ = '\0';
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
as_fatal (_("Unknown opcode: `%s'"), str);
|
|
|
|
|
}
|
|
|
|
|
insn = (struct sparc_opcode *) hash_find (op_hash, str);
|
|
|
|
|
*pinsn = insn;
|
|
|
|
|
if (insn == NULL)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Unknown opcode: `%s'"), str);
|
1999-06-11 05:11:39 +08:00
|
|
|
|
return special_case;
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
/* Build the opcode, checking as we go to make sure that the
|
|
|
|
|
operands match. */
|
1999-05-03 15:29:11 +08: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-05 02:43:45 +08:00
|
|
|
|
while (*s == ' ')
|
|
|
|
|
++s;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (*s == '|' || *s == '+')
|
|
|
|
|
++s;
|
2000-08-05 02:43:45 +08:00
|
|
|
|
while (*s == ' ')
|
|
|
|
|
++s;
|
1999-05-03 15:29:11 +08: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;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
unsigned int len = 9999999; /* Init to make gcc happy. */
|
1999-05-03 15:29:11 +08: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;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
case '_':
|
|
|
|
|
case '/':
|
|
|
|
|
/* Parse a v9a ancillary state register. */
|
|
|
|
|
if (*s == '%')
|
|
|
|
|
{
|
|
|
|
|
struct priv_reg_entry *p = v9a_asr_table;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
unsigned int len = 9999999; /* Init to make gcc happy. */
|
1999-05-03 15:29:11 +08: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 v9a ancillary state register");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (*args == '/' && (p->regnum == 20 || p->regnum == 21))
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": rd on write only ancillary state register");
|
|
|
|
|
goto error;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
}
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (*args == '/')
|
|
|
|
|
opcode |= (p->regnum << 14);
|
|
|
|
|
else
|
|
|
|
|
opcode |= (p->regnum << 25);
|
|
|
|
|
s += len;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
error_message = _(": unrecognizable v9a ancillary state register");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
case 'M':
|
|
|
|
|
case 'm':
|
|
|
|
|
if (strncmp (s, "%asr", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
|
|
|
|
|
if (isdigit ((unsigned char) *s))
|
|
|
|
|
{
|
|
|
|
|
long num = 0;
|
|
|
|
|
|
|
|
|
|
while (isdigit ((unsigned char) *s))
|
|
|
|
|
{
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
} /* if %asr */
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
case '\0': /* End of args. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (*s == '\0')
|
|
|
|
|
{
|
|
|
|
|
match = 1;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '+':
|
|
|
|
|
if (*s == '+')
|
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
if (*s == '-')
|
|
|
|
|
{
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
case '[': /* These must match exactly. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
case ']':
|
|
|
|
|
case ',':
|
|
|
|
|
case ' ':
|
|
|
|
|
if (*s++ == *args)
|
|
|
|
|
continue;
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
case '#': /* Must be at least one digit. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (isdigit ((unsigned char) *s++))
|
|
|
|
|
{
|
|
|
|
|
while (isdigit ((unsigned char) *s))
|
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
case 'C': /* Coprocessor state register. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (strncmp (s, "%csr", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
case 'b': /* Next operand is a coprocessor register. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
case 'c':
|
|
|
|
|
case 'D':
|
|
|
|
|
if (*s++ == '%' && *s++ == 'c' && isdigit ((unsigned char) *s))
|
|
|
|
|
{
|
|
|
|
|
mask = *s++;
|
|
|
|
|
if (isdigit ((unsigned char) *s))
|
|
|
|
|
{
|
|
|
|
|
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-11 05:11:39 +08:00
|
|
|
|
c = *s++;
|
|
|
|
|
if (isoctal (c))
|
1999-05-03 15:29:11 +08:00
|
|
|
|
{
|
|
|
|
|
mask = c - '0';
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 'i': /* in register */
|
1999-06-11 05:11:39 +08:00
|
|
|
|
c = *s++;
|
|
|
|
|
if (isoctal (c))
|
1999-05-03 15:29:11 +08:00
|
|
|
|
{
|
|
|
|
|
mask = c - '0' + 24;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 'l': /* local register */
|
1999-06-11 05:11:39 +08:00
|
|
|
|
c = *s++;
|
|
|
|
|
if (isoctal (c))
|
1999-05-03 15:29:11 +08:00
|
|
|
|
{
|
|
|
|
|
mask = (c - '0' + 16);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 'o': /* out register */
|
1999-06-11 05:11:39 +08:00
|
|
|
|
c = *s++;
|
|
|
|
|
if (isoctal (c))
|
1999-05-03 15:29:11 +08:00
|
|
|
|
{
|
|
|
|
|
mask = (c - '0' + 8);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 's': /* stack pointer */
|
|
|
|
|
if (*s++ == 'p')
|
|
|
|
|
{
|
|
|
|
|
mask = 0xe;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
case 'r': /* any register */
|
|
|
|
|
if (!isdigit ((unsigned char) (c = *s++)))
|
|
|
|
|
{
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
/* FALLTHROUGH */
|
|
|
|
|
case '0':
|
|
|
|
|
case '1':
|
|
|
|
|
case '2':
|
|
|
|
|
case '3':
|
|
|
|
|
case '4':
|
|
|
|
|
case '5':
|
|
|
|
|
case '6':
|
|
|
|
|
case '7':
|
|
|
|
|
case '8':
|
|
|
|
|
case '9':
|
|
|
|
|
if (isdigit ((unsigned char) *s))
|
|
|
|
|
{
|
|
|
|
|
if ((c = 10 * (c - '0') + (*s++ - '0')) >= 32)
|
|
|
|
|
{
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
c -= '0';
|
|
|
|
|
}
|
|
|
|
|
mask = c;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
1999-07-31 05:39:53 +08:00
|
|
|
|
if ((mask & ~1) == 2 && sparc_arch_size == 64
|
2000-07-27 12:05:05 +08:00
|
|
|
|
&& no_undeclared_regs && ! globals[mask])
|
2000-04-05 17:38:43 +08:00
|
|
|
|
as_bad (_("detected global register use not covered by .register pseudo-op"));
|
1999-07-31 05:39:53 +08:00
|
|
|
|
|
1999-05-03 15:29:11 +08: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')
|
|
|
|
|
&& isdigit ((unsigned char) *++s))
|
|
|
|
|
{
|
|
|
|
|
for (mask = 0; isdigit ((unsigned char) *s); ++s)
|
|
|
|
|
{
|
|
|
|
|
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))
|
|
|
|
|
{
|
|
|
|
|
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 09:01:32 +08:00
|
|
|
|
} /* if not an 'f' register. */
|
1999-05-03 15:29:11 +08: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 09:01:32 +08:00
|
|
|
|
} /* Pack it in. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
know (0);
|
|
|
|
|
break;
|
2000-08-04 09:01:32 +08:00
|
|
|
|
} /* float arg */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
case 'F':
|
|
|
|
|
if (strncmp (s, "%fsr", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-08-04 09:01:32 +08:00
|
|
|
|
case '0': /* 64 bit immediate (set, setsw, setx insn) */
|
|
|
|
|
the_insn.reloc = BFD_RELOC_NONE; /* reloc handled elsewhere */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
goto immediate;
|
|
|
|
|
|
2000-08-04 09:01:32 +08:00
|
|
|
|
case 'l': /* 22 bit PC relative immediate */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC_WDISP22;
|
|
|
|
|
the_insn.pcrel = 1;
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
2000-08-04 09:01:32 +08:00
|
|
|
|
case 'L': /* 30 bit immediate */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
the_insn.reloc = BFD_RELOC_32_PCREL_S2;
|
|
|
|
|
the_insn.pcrel = 1;
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
1999-06-07 20:53:56 +08:00
|
|
|
|
case 'h':
|
2000-08-04 09:01:32 +08:00
|
|
|
|
case 'n': /* 22 bit immediate */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC22;
|
|
|
|
|
goto immediate;
|
|
|
|
|
|
2000-08-04 09:01:32 +08:00
|
|
|
|
case 'i': /* 13 bit immediate */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC13;
|
|
|
|
|
|
|
|
|
|
/* fallthrough */
|
|
|
|
|
|
|
|
|
|
immediate:
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
s++;
|
|
|
|
|
|
1999-06-07 20:40:36 +08:00
|
|
|
|
{
|
|
|
|
|
char *s1;
|
|
|
|
|
char *op_arg = NULL;
|
|
|
|
|
expressionS op_exp;
|
|
|
|
|
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 },
|
|
|
|
|
{ "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 },
|
|
|
|
|
{ NULL }
|
|
|
|
|
};
|
|
|
|
|
const struct ops *o;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-07 20:40:36 +08:00
|
|
|
|
for (o = ops; o->name; o++)
|
|
|
|
|
if (strncmp (s + 1, o->name, o->len) == 0)
|
|
|
|
|
break;
|
|
|
|
|
if (o->name == NULL)
|
1999-05-03 15:29:11 +08:00
|
|
|
|
break;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-07 20:40:36 +08:00
|
|
|
|
if (s[o->len + 1] != '(')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Illegal operands: %%%s requires arguments in ()"), o->name);
|
1999-06-11 05:11:39 +08:00
|
|
|
|
return special_case;
|
1999-06-07 20:40:36 +08:00
|
|
|
|
}
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
1999-06-07 20:40:36 +08: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 15:29:11 +08: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 20:40:36 +08: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-11 05:11:39 +08:00
|
|
|
|
return special_case;
|
1999-06-07 20:40:36 +08:00
|
|
|
|
}
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-06-07 20:40:36 +08: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-11 05:11:39 +08:00
|
|
|
|
return special_case;
|
1999-06-07 20:40:36 +08:00
|
|
|
|
}
|
|
|
|
|
*s1 = '0';
|
|
|
|
|
s = s1;
|
|
|
|
|
op_exp = the_insn.exp;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
memset (&the_insn.exp, 0, sizeof (the_insn.exp));
|
1999-06-07 20:40:36 +08:00
|
|
|
|
}
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
for (s1 = s; *s1 && *s1 != ',' && *s1 != ']'; s1++)
|
|
|
|
|
;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
if (s1 != s && isdigit ((unsigned char) s1[-1]))
|
|
|
|
|
{
|
|
|
|
|
if (s1[-2] == '%' && s1[-3] == '+')
|
1999-06-07 20:40:36 +08:00
|
|
|
|
s1 -= 3;
|
|
|
|
|
else if (strchr ("goli0123456789", s1[-2]) && s1[-3] == '%' && s1[-4] == '+')
|
|
|
|
|
s1 -= 4;
|
|
|
|
|
else
|
|
|
|
|
s1 = NULL;
|
|
|
|
|
if (s1)
|
1999-05-03 15:29:11 +08:00
|
|
|
|
{
|
|
|
|
|
*s1 = '\0';
|
1999-08-09 01:27:23 +08:00
|
|
|
|
if (op_arg && s1 == s + 1)
|
|
|
|
|
the_insn.exp.X_op = O_absent;
|
|
|
|
|
else
|
|
|
|
|
(void) get_expression (s);
|
1999-05-03 15:29:11 +08:00
|
|
|
|
*s1 = '+';
|
1999-06-07 20:40:36 +08:00
|
|
|
|
if (op_arg)
|
|
|
|
|
*s = ')';
|
1999-05-03 15:29:11 +08:00
|
|
|
|
s = s1;
|
|
|
|
|
}
|
1999-06-07 20:40:36 +08: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 15:29:11 +08:00
|
|
|
|
{
|
1999-06-07 20:40:36 +08: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-11 05:43:24 +08:00
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
|
1999-06-07 20:40:36 +08:00
|
|
|
|
case BFD_RELOC_SPARC_HH22:
|
|
|
|
|
val = BSR (val, 32);
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Fall through. */
|
1999-06-07 20:40:36 +08: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 12:05:05 +08:00
|
|
|
|
/* Fall through. */
|
1999-06-07 20:40:36 +08: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 09:01:32 +08:00
|
|
|
|
val = ~val;
|
1999-06-07 20:40:36 +08: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-11 05:11:39 +08:00
|
|
|
|
return special_case;
|
1999-06-07 20:40:36 +08:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1999-07-17 05:30:35 +08:00
|
|
|
|
if (old_reloc != BFD_RELOC_SPARC13
|
1999-06-07 20:40:36 +08: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-11 05:11:39 +08:00
|
|
|
|
return special_case;
|
1999-06-07 20:40:36 +08:00
|
|
|
|
}
|
|
|
|
|
the_insn.reloc = BFD_RELOC_SPARC_OLO10;
|
1999-05-03 15:29:11 +08: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;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Constants that won't fit are checked in md_apply_fix3
|
|
|
|
|
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
|
|
|
|
|
all the various cases (e.g. in md_apply_fix3 and
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
} /* Alternate space. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
case 'p':
|
|
|
|
|
if (strncmp (s, "%psr", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
case 'q': /* Floating point queue. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (strncmp (s, "%fq", 3) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
case 'Q': /* Coprocessor queue. */
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
} /* switch on arg code. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
/* Break out of for() loop. */
|
|
|
|
|
break;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
} /* For each arg that we expect. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
if (match == 0)
|
|
|
|
|
{
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Args don't match. */
|
1999-05-03 15:29:11 +08: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-11 05:11:39 +08:00
|
|
|
|
return special_case;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* We have a match. Now see if the architecture is OK. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
int needed_arch_mask = insn->architecture;
|
|
|
|
|
|
|
|
|
|
if (v9_arg_p)
|
|
|
|
|
{
|
2000-08-04 09:01:32 +08:00
|
|
|
|
needed_arch_mask &= ~((1 << SPARC_OPCODE_ARCH_V9)
|
|
|
|
|
| (1 << SPARC_OPCODE_ARCH_V9A));
|
1999-05-03 15:29:11 +08:00
|
|
|
|
needed_arch_mask |= (1 << SPARC_OPCODE_ARCH_V9);
|
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
if (needed_arch_mask
|
|
|
|
|
& SPARC_OPCODE_SUPPORTED (current_architecture))
|
|
|
|
|
/* OK. */
|
|
|
|
|
;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
/* Can we bump up the architecture? */
|
2000-07-27 12:05:05 +08:00
|
|
|
|
else if (needed_arch_mask
|
|
|
|
|
& SPARC_OPCODE_SUPPORTED (max_architecture))
|
1999-05-03 15:29:11 +08:00
|
|
|
|
{
|
|
|
|
|
enum sparc_opcode_arch_val needed_architecture =
|
|
|
|
|
sparc_ffs (SPARC_OPCODE_SUPPORTED (max_architecture)
|
|
|
|
|
& needed_arch_mask);
|
|
|
|
|
|
|
|
|
|
assert (needed_architecture <= SPARC_OPCODE_ARCH_MAX);
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
int arch, printed_one_p = 0;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
char *p;
|
|
|
|
|
char required_archs[SPARC_OPCODE_ARCH_MAX * 16];
|
|
|
|
|
|
|
|
|
|
/* Create a list of the architectures that support the insn. */
|
2000-07-27 12:05:05 +08:00
|
|
|
|
needed_arch_mask &= ~SPARC_OPCODE_SUPPORTED (max_architecture);
|
1999-05-03 15:29:11 +08: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-11 05:11:39 +08:00
|
|
|
|
return special_case;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
}
|
2000-07-27 12:05:05 +08:00
|
|
|
|
} /* If no match. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
break;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
} /* Forever looking for a match. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
the_insn.opcode = opcode;
|
1999-06-11 05:11:39 +08:00
|
|
|
|
return special_case;
|
1999-05-03 15:29:11 +08: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
|
|
|
|
|
parse_keyword_arg (lookup_fn, input_pointerP, valueP)
|
|
|
|
|
int (*lookup_fn) PARAMS ((const char *));
|
|
|
|
|
char **input_pointerP;
|
|
|
|
|
int *valueP;
|
|
|
|
|
{
|
|
|
|
|
int value;
|
|
|
|
|
char c, *p, *q;
|
|
|
|
|
|
|
|
|
|
p = *input_pointerP;
|
|
|
|
|
for (q = p + (*p == '#' || *p == '%');
|
|
|
|
|
isalnum ((unsigned char) *q) || *q == '_';
|
|
|
|
|
++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
|
|
|
|
|
parse_const_expr_arg (input_pointerP, valueP)
|
|
|
|
|
char **input_pointerP;
|
|
|
|
|
int *valueP;
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
get_expression (str)
|
|
|
|
|
char *str;
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
output_insn (insn, the_insn)
|
|
|
|
|
const struct sparc_opcode *insn;
|
|
|
|
|
struct sparc_it *the_insn;
|
|
|
|
|
{
|
|
|
|
|
char *toP = frag_more (4);
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Put out the opcode. */
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
/* Put out the symbol-dependent stuff. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (the_insn->reloc != BFD_RELOC_NONE)
|
|
|
|
|
{
|
2000-07-27 12:05:05 +08:00
|
|
|
|
fixS *fixP = fix_new_exp (frag_now, /* Which frag. */
|
|
|
|
|
(toP - frag_now->fr_literal), /* Where. */
|
|
|
|
|
4, /* Size. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
&the_insn->exp,
|
|
|
|
|
the_insn->pcrel,
|
|
|
|
|
the_insn->reloc);
|
|
|
|
|
/* Turn off overflow checking in fixup_segment. We'll do our
|
|
|
|
|
own overflow checking in md_apply_fix3. This is necessary because
|
|
|
|
|
the insn size is 4 and fixup_segment will signal an overflow for
|
|
|
|
|
large 8 byte quantities. */
|
|
|
|
|
fixP->fx_no_overflow = 1;
|
1999-07-17 05:30:35 +08:00
|
|
|
|
if (the_insn->reloc == BFD_RELOC_SPARC_OLO10)
|
|
|
|
|
fixP->tc_fix_data = the_insn->exp2.X_add_number;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
last_insn = insn;
|
|
|
|
|
last_opcode = the_insn->opcode;
|
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* This is identical to the md_atof in m68k.c. I think this is right,
|
|
|
|
|
but I'm not sure.
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
Turn a string in input_line_pointer into a floating point constant
|
|
|
|
|
of type TYPE, and store the appropriate bytes in *LITP. The number
|
|
|
|
|
of LITTLENUMS emitted is stored in *SIZEP. An error message is
|
|
|
|
|
returned, or NULL on OK. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Equal to MAX_PRECISION in atof-ieee.c. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
#define MAX_LITTLENUMS 6
|
|
|
|
|
|
|
|
|
|
char *
|
|
|
|
|
md_atof (type, litP, sizeP)
|
|
|
|
|
char type;
|
|
|
|
|
char *litP;
|
|
|
|
|
int *sizeP;
|
|
|
|
|
{
|
2000-07-27 12:05:05 +08:00
|
|
|
|
int i, prec;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
LITTLENUM_TYPE words[MAX_LITTLENUMS];
|
|
|
|
|
char *t;
|
|
|
|
|
|
|
|
|
|
switch (type)
|
|
|
|
|
{
|
|
|
|
|
case 'f':
|
|
|
|
|
case 'F':
|
|
|
|
|
case 's':
|
|
|
|
|
case 'S':
|
|
|
|
|
prec = 2;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'd':
|
|
|
|
|
case 'D':
|
|
|
|
|
case 'r':
|
|
|
|
|
case 'R':
|
|
|
|
|
prec = 4;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'x':
|
|
|
|
|
case 'X':
|
|
|
|
|
prec = 6;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'p':
|
|
|
|
|
case 'P':
|
|
|
|
|
prec = 6;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
*sizeP = 0;
|
|
|
|
|
return _("Bad call to MD_ATOF()");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
t = atof_ieee (input_line_pointer, type, words);
|
|
|
|
|
if (t)
|
|
|
|
|
input_line_pointer = t;
|
|
|
|
|
*sizeP = prec * sizeof (LITTLENUM_TYPE);
|
|
|
|
|
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
{
|
|
|
|
|
for (i = 0; i < prec; i++)
|
|
|
|
|
{
|
2000-08-04 09:01:32 +08:00
|
|
|
|
md_number_to_chars (litP, (valueT) words[i],
|
|
|
|
|
sizeof (LITTLENUM_TYPE));
|
1999-05-03 15:29:11 +08:00
|
|
|
|
litP += sizeof (LITTLENUM_TYPE);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
for (i = prec - 1; i >= 0; i--)
|
|
|
|
|
{
|
2000-08-04 09:01:32 +08:00
|
|
|
|
md_number_to_chars (litP, (valueT) words[i],
|
|
|
|
|
sizeof (LITTLENUM_TYPE));
|
1999-05-03 15:29:11 +08:00
|
|
|
|
litP += sizeof (LITTLENUM_TYPE);
|
|
|
|
|
}
|
|
|
|
|
}
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write a value out to the object file, using the appropriate
|
|
|
|
|
endianness. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_number_to_chars (buf, val, n)
|
|
|
|
|
char *buf;
|
|
|
|
|
valueT val;
|
|
|
|
|
int n;
|
|
|
|
|
{
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
/* Output debug words, which are not in allocated sections, as big
|
|
|
|
|
endian. */
|
1999-05-03 15:29:11 +08: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
|
|
|
|
|
hold. */
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
md_apply_fix3 (fixP, value, segment)
|
|
|
|
|
fixS *fixP;
|
|
|
|
|
valueT *value;
|
|
|
|
|
segT segment;
|
|
|
|
|
{
|
|
|
|
|
char *buf = fixP->fx_where + fixP->fx_frag->fr_literal;
|
|
|
|
|
offsetT val;
|
|
|
|
|
long insn;
|
|
|
|
|
|
|
|
|
|
val = *value;
|
|
|
|
|
|
|
|
|
|
assert (fixP->fx_r_type < BFD_RELOC_UNUSED);
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
fixP->fx_addnumber = val; /* Remember value for emit_reloc. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* FIXME: SPARC ELF relocations don't use an addend in the data
|
|
|
|
|
field itself. This whole approach should be somehow combined
|
|
|
|
|
with the calls to bfd_install_relocation. Also, the value passed
|
|
|
|
|
in by fixup_segment includes the value of a defined symbol. We
|
|
|
|
|
don't want to include the value of an externally visible symbol. */
|
|
|
|
|
if (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 08:29:48 +08:00
|
|
|
|
if (symbol_used_in_reloc_p (fixP->fx_addsy)
|
1999-05-03 15:29:11 +08:00
|
|
|
|
&& (S_IS_EXTERNAL (fixP->fx_addsy)
|
|
|
|
|
|| S_IS_WEAK (fixP->fx_addsy)
|
|
|
|
|
|| (sparc_pic_code && ! fixP->fx_pcrel)
|
|
|
|
|
|| (S_GET_SEGMENT (fixP->fx_addsy) != segment
|
|
|
|
|
&& ((bfd_get_section_flags (stdoutput,
|
|
|
|
|
S_GET_SEGMENT (fixP->fx_addsy))
|
|
|
|
|
& SEC_LINK_ONCE) != 0
|
|
|
|
|
|| strncmp (segment_name (S_GET_SEGMENT (fixP->fx_addsy)),
|
|
|
|
|
".gnu.linkonce",
|
|
|
|
|
sizeof ".gnu.linkonce" - 1) == 0)))
|
|
|
|
|
&& S_GET_SEGMENT (fixP->fx_addsy) != absolute_section
|
|
|
|
|
&& S_GET_SEGMENT (fixP->fx_addsy) != undefined_section
|
|
|
|
|
&& ! bfd_is_com_section (S_GET_SEGMENT (fixP->fx_addsy)))
|
|
|
|
|
fixP->fx_addnumber -= S_GET_VALUE (fixP->fx_addsy);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
#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 08:29:48 +08:00
|
|
|
|
&& symbol_section_p (fixP->fx_addsy))
|
1999-05-03 15:29:11 +08: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. */
|
|
|
|
|
|
|
|
|
|
if (fixP->fx_r_type == BFD_RELOC_16)
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (buf, val, 2);
|
|
|
|
|
}
|
|
|
|
|
else if (fixP->fx_r_type == BFD_RELOC_32
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_SPARC_REV32)
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (buf, val, 4);
|
|
|
|
|
}
|
|
|
|
|
else if (fixP->fx_r_type == BFD_RELOC_64)
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (buf, val, 8);
|
|
|
|
|
}
|
2000-07-27 12:05:05 +08:00
|
|
|
|
else if (fixP->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
|
|
|
|
{
|
|
|
|
|
fixP->fx_done = 0;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
|
1999-05-03 15:29:11 +08: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 08:29:48 +08:00
|
|
|
|
|| symbol_section_p (fixP->fx_addsy))
|
1999-05-03 15:29:11 +08:00
|
|
|
|
++val;
|
2000-05-26 14:45:55 +08:00
|
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
|
insn |= val & 0x3fffffff;
|
2000-05-26 14:45:55 +08:00
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* See if we have a delay slot. */
|
2000-05-26 14:45:55 +08: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 12:05:05 +08:00
|
|
|
|
if ((insn & OP (~0)) != OP (1) || (delay & OP (~0)) != OP (2))
|
2000-05-26 14:45:55 +08:00
|
|
|
|
break;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
if ((delay & OP3 (~0)) != OP3 (0x3d) /* Restore. */
|
|
|
|
|
&& ((delay & OP3 (0x28)) != 0 /* Arithmetic. */
|
|
|
|
|
|| ((delay & RD (~0)) != RD (O7))))
|
2000-05-26 14:45:55 +08:00
|
|
|
|
break;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
if ((delay & RS1 (~0)) == RS1 (O7)
|
|
|
|
|
|| ((delay & F3I (~0)) == 0
|
|
|
|
|
&& (delay & RS2 (~0)) == RS2 (O7)))
|
2000-05-26 14:45:55 +08: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 12:05:05 +08:00
|
|
|
|
/* ba,pt %xcc */
|
2000-05-26 14:45:55 +08:00
|
|
|
|
insn = INSN_BPA | (val & 0x7ffff);
|
|
|
|
|
else
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* ba */
|
2000-05-26 14:45:55 +08:00
|
|
|
|
insn = INSN_BA | (val & 0x3fffff);
|
|
|
|
|
if (fixP->fx_where >= 4
|
2000-07-27 12:05:05 +08:00
|
|
|
|
&& ((delay & (0xffffffff ^ RS1 (~0)))
|
|
|
|
|
== (INSN_OR | RD (O7) | RS2 (G0))))
|
2000-05-26 14:45:55 +08: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 12:05:05 +08:00
|
|
|
|
if ((setter & (0xffffffff ^ RD (~0)))
|
2000-08-04 09:01:32 +08:00
|
|
|
|
!= (INSN_OR | RS1 (O7) | RS2 (G0)))
|
2000-05-26 14:45:55 +08: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 12:05:05 +08:00
|
|
|
|
reg = (delay & RS1 (~0)) >> 14;
|
|
|
|
|
if (reg != ((setter & RD (~0)) >> 25)
|
2000-05-26 14:45:55 +08: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 15:29:11 +08: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:
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* FIXME: simplify. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (((val > 0) && (val & ~0x3fffc))
|
|
|
|
|
|| ((val < 0) && (~(val - 1) & ~0x3fffc)))
|
|
|
|
|
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:
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* FIXME: simplify. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (((val > 0) && (val & ~0x1ffffc))
|
|
|
|
|
|| ((val < 0) && (~(val - 1) & ~0x1ffffc)))
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
/* Fall through. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
case BFD_RELOC_SPARC_LM22:
|
|
|
|
|
case BFD_RELOC_HI22:
|
|
|
|
|
if (!fixP->fx_addsy)
|
|
|
|
|
{
|
|
|
|
|
insn |= (val >> 10) & 0x3fffff;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* FIXME: Need comment explaining why we do this. */
|
|
|
|
|
insn &= ~0xffff;
|
|
|
|
|
}
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
/* Fall through. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
case BFD_RELOC_LO10:
|
|
|
|
|
if (!fixP->fx_addsy)
|
|
|
|
|
{
|
|
|
|
|
insn |= val & 0x3ff;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* FIXME: Need comment explaining why we do this. */
|
|
|
|
|
insn &= ~0xff;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
1999-07-17 05:30:35 +08:00
|
|
|
|
case BFD_RELOC_SPARC_OLO10:
|
|
|
|
|
val &= 0x3ff;
|
|
|
|
|
val += fixP->tc_fix_data;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Fall through. */
|
1999-07-17 05:30:35 +08:00
|
|
|
|
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
/* Fall through. */
|
1999-05-03 15:29:11 +08: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 09:01:32 +08:00
|
|
|
|
val ^= ~(offsetT) 0;
|
1999-05-03 15:29:11 +08: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;
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Translate internal representation of relocation info to BFD target
|
|
|
|
|
format. */
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-07-17 05:30:35 +08:00
|
|
|
|
arelent **
|
1999-05-03 15:29:11 +08:00
|
|
|
|
tc_gen_reloc (section, fixp)
|
|
|
|
|
asection *section;
|
|
|
|
|
fixS *fixp;
|
|
|
|
|
{
|
1999-07-17 05:30:35 +08:00
|
|
|
|
static arelent *relocs[3];
|
1999-05-03 15:29:11 +08:00
|
|
|
|
arelent *reloc;
|
|
|
|
|
bfd_reloc_code_real_type code;
|
|
|
|
|
|
1999-07-17 05:30:35 +08:00
|
|
|
|
relocs[0] = reloc = (arelent *) xmalloc (sizeof (arelent));
|
|
|
|
|
relocs[1] = NULL;
|
1999-05-03 15:29:11 +08: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 08:29:48 +08:00
|
|
|
|
reloc->sym_ptr_ptr = (asymbol **) xmalloc (sizeof (asymbol *));
|
|
|
|
|
*reloc->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
|
1999-05-03 15:29:11 +08: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 20:53:56 +08:00
|
|
|
|
case BFD_RELOC_SPARC22:
|
1999-05-03 15:29:11 +08: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-17 05:30:35 +08:00
|
|
|
|
case BFD_RELOC_SPARC_OLO10:
|
1999-05-03 15:29:11 +08:00
|
|
|
|
case BFD_RELOC_VTABLE_ENTRY:
|
|
|
|
|
case BFD_RELOC_VTABLE_INHERIT:
|
|
|
|
|
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_"
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-08-09 00:04:36 +08:00
|
|
|
|
/* This code must be parallel to the OBJ_ELF tc_fix_adjustable. */
|
|
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (sparc_pic_code)
|
|
|
|
|
{
|
|
|
|
|
switch (code)
|
|
|
|
|
{
|
|
|
|
|
case BFD_RELOC_32_PCREL_S2:
|
|
|
|
|
if (! S_IS_DEFINED (fixp->fx_addsy)
|
|
|
|
|
|| S_IS_COMMON (fixp->fx_addsy)
|
|
|
|
|
|| S_IS_EXTERNAL (fixp->fx_addsy)
|
|
|
|
|
|| S_IS_WEAK (fixp->fx_addsy))
|
|
|
|
|
code = BFD_RELOC_SPARC_WPLT30;
|
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_HI22:
|
|
|
|
|
if (fixp->fx_addsy != NULL
|
|
|
|
|
&& strcmp (S_GET_NAME (fixp->fx_addsy), GOT_NAME) == 0)
|
|
|
|
|
code = BFD_RELOC_SPARC_PC22;
|
|
|
|
|
else
|
|
|
|
|
code = BFD_RELOC_SPARC_GOT22;
|
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_LO10:
|
|
|
|
|
if (fixp->fx_addsy != NULL
|
|
|
|
|
&& strcmp (S_GET_NAME (fixp->fx_addsy), GOT_NAME) == 0)
|
|
|
|
|
code = BFD_RELOC_SPARC_PC10;
|
|
|
|
|
else
|
|
|
|
|
code = BFD_RELOC_SPARC_GOT10;
|
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_SPARC13:
|
|
|
|
|
code = BFD_RELOC_SPARC_GOT13;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
2000-07-27 12:05:05 +08:00
|
|
|
|
#endif /* defined (OBJ_ELF) || defined (OBJ_AOUT) */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
1999-07-17 05:30:35 +08: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 15:29:11 +08: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-17 05:30:35 +08:00
|
|
|
|
xfree (reloc);
|
|
|
|
|
relocs[0] = NULL;
|
|
|
|
|
return relocs;
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
#else /* elf or coff */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
if (reloc->howto->pc_relative == 0
|
|
|
|
|
|| code == BFD_RELOC_SPARC_PC10
|
|
|
|
|
|| code == BFD_RELOC_SPARC_PC22)
|
|
|
|
|
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 08:29:48 +08:00
|
|
|
|
else if (symbol_section_p (fixp->fx_addsy))
|
1999-05-03 15:29:11 +08:00
|
|
|
|
reloc->addend = (section->vma
|
|
|
|
|
+ fixp->fx_addnumber
|
|
|
|
|
+ md_pcrel_from (fixp));
|
|
|
|
|
else
|
|
|
|
|
reloc->addend = fixp->fx_offset;
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-07-17 05:30:35 +08: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 09:01:32 +08:00
|
|
|
|
*reloc->sym_ptr_ptr
|
|
|
|
|
= symbol_get_bfdsym (section_symbol (absolute_section));
|
1999-07-17 05:30:35 +08: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 15:29:11 +08:00
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* We have no need to default values of symbols. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
symbolS *
|
|
|
|
|
md_undefined_symbol (name)
|
|
|
|
|
char *name;
|
|
|
|
|
{
|
|
|
|
|
return 0;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Round up a section size to the appropriate boundary. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
valueT
|
|
|
|
|
md_section_align (segment, size)
|
|
|
|
|
segT segment;
|
|
|
|
|
valueT size;
|
|
|
|
|
{
|
|
|
|
|
#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 12:05:05 +08:00
|
|
|
|
|
|
|
|
|
/* Turn alignment value into a mask. */
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
(??? Is this right? FIXME-SOON) */
|
|
|
|
|
long
|
1999-05-03 15:29:11 +08:00
|
|
|
|
md_pcrel_from (fixP)
|
|
|
|
|
fixS *fixP;
|
|
|
|
|
{
|
|
|
|
|
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 08:29:48 +08:00
|
|
|
|
|| symbol_section_p (fixP->fx_addsy))
|
1999-05-03 15:29:11 +08:00
|
|
|
|
ret += fixP->fx_size;
|
|
|
|
|
return ret;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return log2 (VALUE), or -1 if VALUE is not an exact positive power
|
|
|
|
|
of two. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
log2 (value)
|
|
|
|
|
int value;
|
|
|
|
|
{
|
|
|
|
|
int shift;
|
|
|
|
|
|
|
|
|
|
if (value <= 0)
|
|
|
|
|
return -1;
|
|
|
|
|
|
|
|
|
|
for (shift = 0; (value & 1) == 0; value >>= 1)
|
|
|
|
|
++shift;
|
|
|
|
|
|
|
|
|
|
return (value == 1) ? shift : -1;
|
|
|
|
|
}
|
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Sort of like s_lcomm. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
#ifndef OBJ_ELF
|
|
|
|
|
static int max_alignment = 15;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_reserve (ignore)
|
|
|
|
|
int ignore;
|
|
|
|
|
{
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
} /* Bad length. */
|
1999-05-03 15:29:11 +08: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)
|
|
|
|
|
{
|
|
|
|
|
temp = log2 (align);
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
/* Switch to bss. */
|
|
|
|
|
subseg_set (bss_section, 1);
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
if (align)
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Do alignment. */
|
|
|
|
|
frag_align (align, 0, 0);
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Detach from old frag. */
|
2000-08-04 09:01:32 +08: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 08:29:48 +08:00
|
|
|
|
symbol_get_frag (symbolP)->fr_symbol = NULL;
|
1999-05-03 15:29:11 +08: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 08:29:48 +08:00
|
|
|
|
symbol_set_frag (symbolP, frag_now);
|
2000-07-27 12:05:05 +08:00
|
|
|
|
pfrag = frag_var (rs_org, 1, 1, (relax_substateT) 0, symbolP,
|
|
|
|
|
(offsetT) size, (char *) 0);
|
1999-05-03 15:29:11 +08: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
|
|
|
|
|
{
|
2000-08-04 09:01:32 +08:00
|
|
|
|
as_warn ("Ignoring attempt to re-define symbol %s",
|
|
|
|
|
S_GET_NAME (symbolP));
|
2000-07-27 12:05:05 +08:00
|
|
|
|
} /* if not redefining. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_common (ignore)
|
|
|
|
|
int ignore;
|
|
|
|
|
{
|
|
|
|
|
char *name;
|
|
|
|
|
char c;
|
|
|
|
|
char *p;
|
|
|
|
|
int temp, size;
|
|
|
|
|
symbolS *symbolP;
|
|
|
|
|
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
2000-07-27 12:05:05 +08:00
|
|
|
|
/* Just after name is now '\0'. */
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
|
|
|
|
|
/* Skip ','. */
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if ((temp = get_absolute_expression ()) < 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_(".COMMon length (%d.) <0! Ignored."), temp);
|
|
|
|
|
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)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Length of .comm \"%s\" is already %ld. Not changed to %d."),
|
|
|
|
|
S_GET_NAME (symbolP), (long) S_GET_VALUE (symbolP), size);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
#ifndef OBJ_ELF
|
|
|
|
|
S_SET_VALUE (symbolP, (valueT) size);
|
|
|
|
|
S_SET_EXTERNAL (symbolP);
|
|
|
|
|
#endif
|
|
|
|
|
}
|
1999-06-22 22:53:01 +08:00
|
|
|
|
know (symbol_get_frag (symbolP) == &zero_address_frag);
|
1999-05-03 15:29:11 +08: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;
|
|
|
|
|
as_warn (_("alignment too large; assuming %d"), temp);
|
|
|
|
|
}
|
|
|
|
|
#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 08:29:48 +08:00
|
|
|
|
if (symbol_get_obj (symbolP)->local)
|
1999-05-03 15:29:11 +08: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
|
|
|
|
|
align = log2 (temp);
|
|
|
|
|
|
|
|
|
|
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 08:29:48 +08:00
|
|
|
|
symbol_get_frag (symbolP)->fr_symbol = 0;
|
|
|
|
|
symbol_set_frag (symbolP, frag_now);
|
1999-05-03 15:29:11 +08: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 12:05:05 +08:00
|
|
|
|
#endif /* OBJ_ELF */
|
1999-05-03 15:29:11 +08: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;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef BFD_ASSEMBLER
|
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 08:29:48 +08:00
|
|
|
|
symbol_get_bfdsym (symbolP)->flags |= BSF_OBJECT;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle the .empty pseudo-op. This supresses the warnings about
|
|
|
|
|
invalid delay slot usage. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_empty (ignore)
|
|
|
|
|
int ignore;
|
|
|
|
|
{
|
|
|
|
|
/* The easy way to implement is to just forget about the last
|
|
|
|
|
instruction. */
|
|
|
|
|
last_insn = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_seg (ignore)
|
|
|
|
|
int ignore;
|
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
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 12:05:05 +08:00
|
|
|
|
You can still allocate SEG_BSS stuff with .lcomm or .reserve. */
|
|
|
|
|
subseg_set (data_section, 255); /* FIXME-SOMEDAY. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
as_bad (_("Unknown segment type"));
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_data1 ()
|
|
|
|
|
{
|
|
|
|
|
subseg_set (data_section, 1);
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_proc (ignore)
|
|
|
|
|
int ignore;
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
that the expession does not need to be aligned. */
|
|
|
|
|
|
|
|
|
|
static int sparc_no_align_cons = 0;
|
|
|
|
|
|
|
|
|
|
/* 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
|
|
|
|
|
s_uacons (bytes)
|
|
|
|
|
int bytes;
|
|
|
|
|
{
|
|
|
|
|
/* Tell sparc_cons_align not to align this value. */
|
|
|
|
|
sparc_no_align_cons = 1;
|
|
|
|
|
cons (bytes);
|
|
|
|
|
}
|
|
|
|
|
|
1999-06-07 20:40:36 +08: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
|
|
|
|
|
s_ncons (bytes)
|
|
|
|
|
int bytes;
|
|
|
|
|
{
|
|
|
|
|
cons (sparc_arch_size == 32 ? 4 : 8);
|
|
|
|
|
}
|
|
|
|
|
|
1999-07-31 05:39:53 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-07-31 05:39:53 +08:00
|
|
|
|
.register %g[2367],{#scratch|symbolname|#ignore}
|
2000-07-27 12:05:05 +08:00
|
|
|
|
*/
|
1999-07-31 05:39:53 +08:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_register (ignore)
|
|
|
|
|
int ignore;
|
|
|
|
|
{
|
|
|
|
|
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 09:01:32 +08:00
|
|
|
|
if (regname[0] == 'i')
|
1999-07-31 05:39:53 +08:00
|
|
|
|
regname = NULL;
|
|
|
|
|
else
|
|
|
|
|
regname = "";
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
regname = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
}
|
|
|
|
|
if (sparc_arch_size == 64)
|
|
|
|
|
{
|
2000-07-27 12:05:05 +08:00
|
|
|
|
if (globals[reg])
|
1999-07-31 05:39:53 +08:00
|
|
|
|
{
|
2000-07-27 12:05:05 +08:00
|
|
|
|
if ((regname && globals[reg] != (symbolS *) 1
|
|
|
|
|
&& strcmp (S_GET_NAME (globals[reg]), regname))
|
|
|
|
|
|| ((regname != NULL) ^ (globals[reg] != (symbolS *) 1)))
|
1999-07-31 05:39:53 +08:00
|
|
|
|
as_bad (_("redefinition of global register"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (regname == NULL)
|
2000-07-27 12:05:05 +08:00
|
|
|
|
globals[reg] = (symbolS *) 1;
|
1999-07-31 05:39:53 +08:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (*regname)
|
|
|
|
|
{
|
|
|
|
|
if (symbol_find (regname))
|
|
|
|
|
as_bad (_("Register symbol %s already defined."),
|
|
|
|
|
regname);
|
|
|
|
|
}
|
2000-07-27 12:05:05 +08:00
|
|
|
|
globals[reg] = symbol_make (regname);
|
|
|
|
|
flags = symbol_get_bfdsym (globals[reg])->flags;
|
1999-07-31 05:39:53 +08: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 12:05:05 +08: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-31 05:39:53 +08: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 12:05:05 +08:00
|
|
|
|
S_SET_SEGMENT (globals[reg], absolute_section);
|
|
|
|
|
S_SET_OTHER (globals[reg], 0);
|
|
|
|
|
elf_symbol (symbol_get_bfdsym (globals[reg]))
|
1999-07-31 05:39:53 +08:00
|
|
|
|
->internal_elf_sym.st_info =
|
|
|
|
|
ELF_ST_INFO(STB_GLOBAL, STT_REGISTER);
|
2000-07-27 12:05:05 +08:00
|
|
|
|
elf_symbol (symbol_get_bfdsym (globals[reg]))
|
1999-07-31 05:39:53 +08: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 12:05:05 +08:00
|
|
|
|
|
1999-07-31 05:39:53 +08:00
|
|
|
|
void
|
|
|
|
|
sparc_adjust_symtab ()
|
|
|
|
|
{
|
|
|
|
|
symbolS *sym;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-07-31 05:39:53 +08: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 15:29:11 +08: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
|
|
|
|
|
sparc_cons_align (nbytes)
|
|
|
|
|
int nbytes;
|
|
|
|
|
{
|
|
|
|
|
int nalign;
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
/* Only do this if we are enforcing aligned data. */
|
|
|
|
|
if (! enforce_aligned_data)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if (sparc_no_align_cons)
|
|
|
|
|
{
|
|
|
|
|
/* This is an unaligned pseudo-op. */
|
|
|
|
|
sparc_no_align_cons = 0;
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
nalign = log2 (nbytes);
|
|
|
|
|
if (nalign == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
assert (nalign > 0);
|
|
|
|
|
|
|
|
|
|
if (now_seg == absolute_section)
|
|
|
|
|
{
|
|
|
|
|
if ((abs_section_offset & ((1 << nalign) - 1)) != 0)
|
|
|
|
|
as_bad (_("misaligned data"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
p = frag_var (rs_align_code, 1, 1, (relax_substateT) 0,
|
|
|
|
|
(symbolS *) NULL, (offsetT) nalign, (char *) NULL);
|
|
|
|
|
|
|
|
|
|
record_alignment (now_seg, nalign);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This is where we do the unexpected alignment check.
|
|
|
|
|
This is called from HANDLE_ALIGN in tc-sparc.h. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
sparc_handle_align (fragp)
|
|
|
|
|
fragS *fragp;
|
|
|
|
|
{
|
|
|
|
|
if (fragp->fr_type == rs_align_code && !fragp->fr_subtype
|
|
|
|
|
&& fragp->fr_next->fr_address - fragp->fr_address - fragp->fr_fix != 0)
|
|
|
|
|
as_bad_where (fragp->fr_file, fragp->fr_line, _("misaligned data"));
|
|
|
|
|
if (fragp->fr_type == rs_align_code && fragp->fr_subtype == 1024)
|
|
|
|
|
{
|
2000-08-04 09:01:32 +08:00
|
|
|
|
int count =
|
|
|
|
|
fragp->fr_next->fr_address - fragp->fr_address - fragp->fr_fix;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (count >= 4
|
|
|
|
|
&& !(count & 3)
|
|
|
|
|
&& count <= 1024
|
2000-07-27 12:05:05 +08:00
|
|
|
|
&& !((long) (fragp->fr_literal + fragp->fr_fix) & 3))
|
|
|
|
|
{
|
|
|
|
|
unsigned *p = (unsigned *) (fragp->fr_literal + fragp->fr_fix);
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < count; i += 4, p++)
|
|
|
|
|
if (INSN_BIG_ENDIAN)
|
|
|
|
|
/* Emit nops. */
|
|
|
|
|
number_to_chars_bigendian ((char *) p, 0x01000000, 4);
|
|
|
|
|
else
|
|
|
|
|
number_to_chars_littleendian ((char *) p, 0x10000000, 4);
|
|
|
|
|
|
|
|
|
|
if (SPARC_OPCODE_ARCH_V9_P (max_architecture) && count > 8)
|
|
|
|
|
{
|
1999-05-03 15:29:11 +08:00
|
|
|
|
char *waddr = &fragp->fr_literal[fragp->fr_fix];
|
2000-07-27 12:05:05 +08:00
|
|
|
|
unsigned wval = (0x30680000 | count >> 2); /* ba,a,pt %xcc, 1f */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
if (INSN_BIG_ENDIAN)
|
|
|
|
|
number_to_chars_bigendian (waddr, wval, 4);
|
|
|
|
|
else
|
|
|
|
|
number_to_chars_littleendian (waddr, wval, 4);
|
2000-07-27 12:05:05 +08:00
|
|
|
|
}
|
|
|
|
|
fragp->fr_var = count;
|
|
|
|
|
}
|
1999-05-03 15:29:11 +08:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* Some special processing for a Sparc ELF file. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
sparc_elf_final_processing ()
|
|
|
|
|
{
|
|
|
|
|
/* 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;
|
|
|
|
|
}
|
|
|
|
|
#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
|
|
|
|
|
cons_fix_new_sparc (frag, where, nbytes, exp)
|
|
|
|
|
fragS *frag;
|
|
|
|
|
int where;
|
|
|
|
|
unsigned int nbytes;
|
|
|
|
|
expressionS *exp;
|
|
|
|
|
{
|
|
|
|
|
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)));
|
|
|
|
|
|
|
|
|
|
if (target_little_endian_data && nbytes == 4
|
2000-07-27 12:05:05 +08:00
|
|
|
|
&& now_seg->flags & SEC_ALLOC)
|
1999-05-03 15:29:11 +08:00
|
|
|
|
r = BFD_RELOC_SPARC_REV32;
|
|
|
|
|
fix_new_exp (frag, where, (int) nbytes, exp, 0, r);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
int
|
|
|
|
|
elf32_sparc_force_relocation (fixp)
|
2000-07-27 12:05:05 +08:00
|
|
|
|
struct fix *fixp;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
{
|
|
|
|
|
if (fixp->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
|
|
|
|
return 1;
|
2000-07-27 12:05:05 +08:00
|
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
#endif
|