mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-11-27 03:51:15 +08:00
468cced8b9
to include '@' in symbol names when parsing versioned symbols rather than calling get_symbol_end multiple times. * config/tc-i370.c (register_name): Format fixes. Don't call get_symbol_end after parsing number. * config/tc-mn10200.c (data_register_name): Format fixes. Hoist code out of conditional. (address_register_name): Likewise. (other_register_name): Likewise. * config/tc-mn10300.c (r_register_name): Likewise. (xr_register_name): Likewise. (data_register_name): Likewise. (address_register_name): Likewise. (other_register_name): Likewise. * config/tc-ppc.c (register_name): Likewise. * config/tc-s390.c (register_name): Likewise.
1897 lines
48 KiB
C
1897 lines
48 KiB
C
/* tc-s390.c -- Assemble for the S390
|
|
Copyright 2000, 2001 Free Software Foundation, Inc.
|
|
Contributed by Martin Schwidefsky (schwidefsky@de.ibm.com).
|
|
|
|
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 "struc-symbol.h"
|
|
|
|
#include "opcode/s390.h"
|
|
#include "elf/s390.h"
|
|
|
|
/* The default architecture */
|
|
#ifndef DEFAULT_ARCH
|
|
#define DEFAULT_ARCH "s390"
|
|
#endif
|
|
static char *default_arch = DEFAULT_ARCH;
|
|
/* Either 32 or 64, selects file format. */
|
|
static int s390_arch_size;
|
|
/* Current architecture. Start with the smallest instruction set */
|
|
static enum s390_opcode_arch_val current_architecture = S390_OPCODE_ESA;
|
|
static int current_arch_mask = 1 << S390_OPCODE_ESA;
|
|
static int current_arch_requested = 0;
|
|
|
|
/* Whether to use user friendly register names. Default is true. */
|
|
#ifndef TARGET_REG_NAMES_P
|
|
#define TARGET_REG_NAMES_P true
|
|
#endif
|
|
|
|
static boolean reg_names_p = TARGET_REG_NAMES_P;
|
|
|
|
/* Generic assembler global variables which must be defined by all
|
|
targets. */
|
|
|
|
const char comment_chars[] = "#";
|
|
|
|
/* Characters which start a comment at the beginning of a line. */
|
|
const char line_comment_chars[] = "#";
|
|
|
|
/* Characters which may be used to separate multiple commands on a
|
|
single line. */
|
|
const char line_separator_chars[] = ";";
|
|
|
|
/* Characters which are used to indicate an exponent in a floating
|
|
point number. */
|
|
const char EXP_CHARS[] = "eE";
|
|
|
|
/* Characters which mean that a number is a floating point constant,
|
|
as in 0d1.0. */
|
|
const char FLT_CHARS[] = "dD";
|
|
|
|
/* The target specific pseudo-ops which we support. */
|
|
|
|
/* Define the prototypes for the pseudo-ops */
|
|
static void s390_byte PARAMS ((int));
|
|
static void s390_elf_cons PARAMS ((int));
|
|
static void s390_bss PARAMS ((int));
|
|
static void s390_insn PARAMS ((int));
|
|
static void s390_literals PARAMS ((int));
|
|
|
|
const pseudo_typeS md_pseudo_table[] =
|
|
{
|
|
{ "align", s_align_bytes, 0 },
|
|
/* Pseudo-ops which must be defined. */
|
|
{ "bss", s390_bss, 0 },
|
|
{ "insn", s390_insn, 0 },
|
|
/* Pseudo-ops which must be overridden. */
|
|
{ "byte", s390_byte, 0 },
|
|
{ "short", s390_elf_cons, 2 },
|
|
{ "long", s390_elf_cons, 4 },
|
|
{ "quad", s390_elf_cons, 8 },
|
|
{ "ltorg", s390_literals, 0 },
|
|
{ "string", stringer, 2 },
|
|
{ NULL, NULL, 0 }
|
|
};
|
|
|
|
|
|
/* Structure to hold information about predefined registers. */
|
|
struct pd_reg
|
|
{
|
|
char *name;
|
|
int value;
|
|
};
|
|
|
|
/* List of registers that are pre-defined:
|
|
|
|
Each access register has a predefined name of the form:
|
|
a<reg_num> which has the value <reg_num>.
|
|
|
|
Each control register has a predefined name of the form:
|
|
c<reg_num> which has the value <reg_num>.
|
|
|
|
Each general register has a predefined name of the form:
|
|
r<reg_num> which has the value <reg_num>.
|
|
|
|
Each floating point register a has predefined name of the form:
|
|
f<reg_num> which has the value <reg_num>.
|
|
|
|
There are individual registers as well:
|
|
sp has the value 15
|
|
lit has the value 12
|
|
|
|
The table is sorted. Suitable for searching by a binary search. */
|
|
|
|
static const struct pd_reg pre_defined_registers[] =
|
|
{
|
|
{ "a0", 0 }, /* Access registers */
|
|
{ "a1", 1 },
|
|
{ "a10", 10 },
|
|
{ "a11", 11 },
|
|
{ "a12", 12 },
|
|
{ "a13", 13 },
|
|
{ "a14", 14 },
|
|
{ "a15", 15 },
|
|
{ "a2", 2 },
|
|
{ "a3", 3 },
|
|
{ "a4", 4 },
|
|
{ "a5", 5 },
|
|
{ "a6", 6 },
|
|
{ "a7", 7 },
|
|
{ "a8", 8 },
|
|
{ "a9", 9 },
|
|
|
|
{ "c0", 0 }, /* Control registers */
|
|
{ "c1", 1 },
|
|
{ "c10", 10 },
|
|
{ "c11", 11 },
|
|
{ "c12", 12 },
|
|
{ "c13", 13 },
|
|
{ "c14", 14 },
|
|
{ "c15", 15 },
|
|
{ "c2", 2 },
|
|
{ "c3", 3 },
|
|
{ "c4", 4 },
|
|
{ "c5", 5 },
|
|
{ "c6", 6 },
|
|
{ "c7", 7 },
|
|
{ "c8", 8 },
|
|
{ "c9", 9 },
|
|
|
|
{ "f0", 0 }, /* Floating point registers */
|
|
{ "f1", 1 },
|
|
{ "f10", 10 },
|
|
{ "f11", 11 },
|
|
{ "f12", 12 },
|
|
{ "f13", 13 },
|
|
{ "f14", 14 },
|
|
{ "f15", 15 },
|
|
{ "f2", 2 },
|
|
{ "f3", 3 },
|
|
{ "f4", 4 },
|
|
{ "f5", 5 },
|
|
{ "f6", 6 },
|
|
{ "f7", 7 },
|
|
{ "f8", 8 },
|
|
{ "f9", 9 },
|
|
|
|
{ "lit", 13 }, /* Pointer to literal pool */
|
|
|
|
{ "r0", 0 }, /* General purpose registers */
|
|
{ "r1", 1 },
|
|
{ "r10", 10 },
|
|
{ "r11", 11 },
|
|
{ "r12", 12 },
|
|
{ "r13", 13 },
|
|
{ "r14", 14 },
|
|
{ "r15", 15 },
|
|
{ "r2", 2 },
|
|
{ "r3", 3 },
|
|
{ "r4", 4 },
|
|
{ "r5", 5 },
|
|
{ "r6", 6 },
|
|
{ "r7", 7 },
|
|
{ "r8", 8 },
|
|
{ "r9", 9 },
|
|
|
|
{ "sp", 15 }, /* Stack pointer */
|
|
|
|
};
|
|
|
|
#define REG_NAME_CNT (sizeof (pre_defined_registers) / sizeof (struct pd_reg))
|
|
|
|
/* Given NAME, find the register number associated with that name, return
|
|
the integer value associated with the given name or -1 on failure. */
|
|
|
|
static int
|
|
reg_name_search (regs, regcount, name)
|
|
const struct pd_reg *regs;
|
|
int regcount;
|
|
const char *name;
|
|
{
|
|
int middle, low, high;
|
|
int cmp;
|
|
|
|
low = 0;
|
|
high = regcount - 1;
|
|
|
|
do
|
|
{
|
|
middle = (low + high) / 2;
|
|
cmp = strcasecmp (name, regs[middle].name);
|
|
if (cmp < 0)
|
|
high = middle - 1;
|
|
else if (cmp > 0)
|
|
low = middle + 1;
|
|
else
|
|
return regs[middle].value;
|
|
}
|
|
while (low <= high);
|
|
|
|
return -1;
|
|
}
|
|
|
|
|
|
/*
|
|
* Summary of register_name().
|
|
*
|
|
* in: Input_line_pointer points to 1st char of operand.
|
|
*
|
|
* out: A expressionS.
|
|
* The operand may have been a register: in this case, X_op == O_register,
|
|
* X_add_number is set to the register number, and truth is returned.
|
|
* Input_line_pointer->(next non-blank) char after operand, or is in its
|
|
* original state.
|
|
*/
|
|
|
|
static boolean
|
|
register_name (expressionP)
|
|
expressionS *expressionP;
|
|
{
|
|
int reg_number;
|
|
char *name;
|
|
char *start;
|
|
char c;
|
|
|
|
/* Find the spelling of the operand. */
|
|
start = name = input_line_pointer;
|
|
if (name[0] == '%' && isalpha (name[1]))
|
|
name = ++input_line_pointer;
|
|
else
|
|
return false;
|
|
|
|
c = get_symbol_end ();
|
|
reg_number = reg_name_search (pre_defined_registers, REG_NAME_CNT, name);
|
|
|
|
/* Put back the delimiting char. */
|
|
*input_line_pointer = c;
|
|
|
|
/* Look to see if it's in the register table. */
|
|
if (reg_number >= 0)
|
|
{
|
|
expressionP->X_op = O_register;
|
|
expressionP->X_add_number = reg_number;
|
|
|
|
/* Make the rest nice. */
|
|
expressionP->X_add_symbol = NULL;
|
|
expressionP->X_op_symbol = NULL;
|
|
return true;
|
|
}
|
|
|
|
/* Reset the line as if we had not done anything. */
|
|
input_line_pointer = start;
|
|
return false;
|
|
}
|
|
|
|
/* Local variables. */
|
|
|
|
/* Opformat hash table. */
|
|
static struct hash_control *s390_opformat_hash;
|
|
|
|
/* Opcode hash table. */
|
|
static struct hash_control *s390_opcode_hash;
|
|
|
|
/* Flags to set in the elf header */
|
|
static flagword s390_flags = 0;
|
|
|
|
symbolS *GOT_symbol; /* Pre-defined "_GLOBAL_OFFSET_TABLE_" */
|
|
|
|
#ifndef WORKING_DOT_WORD
|
|
const int md_short_jump_size = 4;
|
|
const int md_long_jump_size = 4;
|
|
#endif
|
|
|
|
CONST char *md_shortopts = "A:m:kVQ:";
|
|
struct option md_longopts[] = {
|
|
{NULL, no_argument, NULL, 0}
|
|
};
|
|
size_t md_longopts_size = sizeof (md_longopts);
|
|
|
|
/* Initialize the default opcode arch and word size from the default
|
|
architecture name. */
|
|
static void
|
|
init_default_arch ()
|
|
{
|
|
if (current_arch_requested)
|
|
return;
|
|
|
|
if (strcmp (default_arch, "s390") == 0)
|
|
{
|
|
s390_arch_size = 32;
|
|
current_architecture = S390_OPCODE_ESA;
|
|
}
|
|
else if (strcmp (default_arch, "s390x") == 0)
|
|
{
|
|
s390_arch_size = 64;
|
|
current_architecture = S390_OPCODE_ESAME;
|
|
}
|
|
else
|
|
as_fatal ("Invalid default architecture, broken assembler.");
|
|
current_arch_mask = 1 << current_architecture;
|
|
}
|
|
|
|
/* Called by TARGET_FORMAT. */
|
|
const char *
|
|
s390_target_format ()
|
|
{
|
|
/* We don't get a chance to initialize anything before we're called,
|
|
so handle that now. */
|
|
if (! s390_arch_size)
|
|
init_default_arch ();
|
|
|
|
return s390_arch_size == 64 ? "elf64-s390" : "elf32-s390";
|
|
}
|
|
|
|
int
|
|
md_parse_option (c, arg)
|
|
int c;
|
|
char *arg;
|
|
{
|
|
switch (c)
|
|
{
|
|
/* -k: Ignore for FreeBSD compatibility. */
|
|
case 'k':
|
|
break;
|
|
case 'm':
|
|
if (arg != NULL && strcmp (arg, "regnames") == 0)
|
|
reg_names_p = true;
|
|
|
|
else if (arg != NULL && strcmp (arg, "no-regnames") == 0)
|
|
reg_names_p = false;
|
|
|
|
else
|
|
{
|
|
as_bad (_("invalid switch -m%s"), arg);
|
|
return 0;
|
|
}
|
|
break;
|
|
|
|
case 'A':
|
|
if (arg != NULL && strcmp (arg, "esa") == 0)
|
|
{
|
|
current_architecture = S390_OPCODE_ESA;
|
|
s390_arch_size = 32;
|
|
}
|
|
else if (arg != NULL && strcmp (arg, "esame") == 0)
|
|
{
|
|
current_architecture = S390_OPCODE_ESAME;
|
|
s390_arch_size = 64;
|
|
}
|
|
else
|
|
as_bad ("invalid architecture -A%s", arg);
|
|
current_arch_mask = 1 << current_architecture;
|
|
current_arch_requested = 1;
|
|
break;
|
|
|
|
/* -V: SVR4 argument to print version ID. */
|
|
case 'V':
|
|
print_version_id ();
|
|
break;
|
|
|
|
/* -Qy, -Qn: SVR4 arguments controlling whether a .comment section
|
|
should be emitted or not. FIXME: Not implemented. */
|
|
case 'Q':
|
|
break;
|
|
|
|
default:
|
|
return 0;
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
void
|
|
md_show_usage (stream)
|
|
FILE *stream;
|
|
{
|
|
fprintf (stream, _("\
|
|
S390 options:\n\
|
|
-mregnames \tAllow symbolic names for registers\n\
|
|
-mno-regnames\tDo not allow symbolic names for registers\n"));
|
|
fprintf (stream, _("\
|
|
-V \tprint assembler version number\n\
|
|
-Qy, -Qn \tignored\n"));
|
|
}
|
|
|
|
/* This function is called when the assembler starts up. It is called
|
|
after the options have been parsed and the output file has been
|
|
opened. */
|
|
|
|
void
|
|
md_begin ()
|
|
{
|
|
register const struct s390_opcode *op;
|
|
const struct s390_opcode *op_end;
|
|
boolean dup_insn = false;
|
|
const char *retval;
|
|
|
|
/* Set the ELF flags if desired. */
|
|
if (s390_flags)
|
|
bfd_set_private_flags (stdoutput, s390_flags);
|
|
|
|
/* Insert the opcode formats into a hash table. */
|
|
s390_opformat_hash = hash_new ();
|
|
|
|
op_end = s390_opformats + s390_num_opformats;
|
|
for (op = s390_opformats; op < op_end; op++)
|
|
{
|
|
retval = hash_insert (s390_opformat_hash, op->name, (PTR) op);
|
|
if (retval != (const char *) NULL)
|
|
{
|
|
as_bad (_("Internal assembler error for instruction format %s"),
|
|
op->name);
|
|
dup_insn = true;
|
|
}
|
|
}
|
|
|
|
/* Insert the opcodes into a hash table. */
|
|
s390_opcode_hash = hash_new ();
|
|
|
|
op_end = s390_opcodes + s390_num_opcodes;
|
|
for (op = s390_opcodes; op < op_end; op++)
|
|
{
|
|
retval = hash_insert (s390_opcode_hash, op->name, (PTR) op);
|
|
if (retval != (const char *) NULL)
|
|
{
|
|
as_bad (_("Internal assembler error for instruction %s"), op->name);
|
|
dup_insn = true;
|
|
}
|
|
}
|
|
|
|
if (dup_insn)
|
|
abort ();
|
|
|
|
record_alignment (text_section, 2);
|
|
record_alignment (data_section, 2);
|
|
record_alignment (bss_section, 2);
|
|
|
|
}
|
|
|
|
/* Called after all assembly has been done. */
|
|
void
|
|
s390_md_end ()
|
|
{
|
|
if (s390_arch_size == 64)
|
|
bfd_set_arch_mach (stdoutput, bfd_arch_s390, bfd_mach_s390_esame);
|
|
else
|
|
bfd_set_arch_mach (stdoutput, bfd_arch_s390, bfd_mach_s390_esa);
|
|
}
|
|
|
|
void
|
|
s390_align_code (fragP, count)
|
|
fragS *fragP;
|
|
int count;
|
|
{
|
|
/* We use nop pattern 0x0707. */
|
|
if (count > 0)
|
|
{
|
|
memset (fragP->fr_literal + fragP->fr_fix, 0x07, count);
|
|
fragP->fr_var = count;
|
|
}
|
|
}
|
|
|
|
/* Insert an operand value into an instruction. */
|
|
|
|
static void
|
|
s390_insert_operand (insn, operand, val, file, line)
|
|
unsigned char *insn;
|
|
const struct s390_operand *operand;
|
|
offsetT val;
|
|
char *file;
|
|
unsigned int line;
|
|
{
|
|
addressT uval;
|
|
int offset;
|
|
|
|
if (operand->flags & (S390_OPERAND_SIGNED|S390_OPERAND_PCREL))
|
|
{
|
|
offsetT min, max;
|
|
|
|
max = ((offsetT) 1 << (operand->bits - 1)) - 1;
|
|
min = - ((offsetT) 1 << (operand->bits - 1));
|
|
/* Halve PCREL operands. */
|
|
if (operand->flags & S390_OPERAND_PCREL)
|
|
val >>= 1;
|
|
/* Check for underflow / overflow. */
|
|
if (val < min || val > max)
|
|
{
|
|
const char *err =
|
|
"operand out of range (%s not between %ld and %ld)";
|
|
char buf[100];
|
|
|
|
if (operand->flags & S390_OPERAND_PCREL)
|
|
{
|
|
val <<= 1;
|
|
min <<= 1;
|
|
max <<= 1;
|
|
}
|
|
sprint_value (buf, val);
|
|
if (file == (char *) NULL)
|
|
as_bad (err, buf, (int) min, (int) max);
|
|
else
|
|
as_bad_where (file, line, err, buf, (int) min, (int) max);
|
|
return;
|
|
}
|
|
/* val is ok, now restrict it to operand->bits bits. */
|
|
uval = (addressT) val & ((((addressT) 1 << (operand->bits-1)) << 1) - 1);
|
|
}
|
|
else
|
|
{
|
|
addressT min, max;
|
|
|
|
max = (((addressT) 1 << (operand->bits - 1))<<1) - 1;
|
|
min = (offsetT) 0;
|
|
uval = (addressT) val;
|
|
/* Length x in an instructions has real length x+1. */
|
|
if (operand->flags & S390_OPERAND_LENGTH)
|
|
uval--;
|
|
/* Check for underflow / overflow. */
|
|
if (uval < min || uval > max)
|
|
{
|
|
const char *err =
|
|
"operand out of range (%s not between %ld and %ld)";
|
|
char buf[100];
|
|
|
|
if (operand->flags & S390_OPERAND_LENGTH)
|
|
{
|
|
uval++;
|
|
min++;
|
|
max++;
|
|
}
|
|
sprint_value (buf, uval);
|
|
if (file == (char *) NULL)
|
|
as_bad (err, buf, (int) min, (int) max);
|
|
else
|
|
as_bad_where (file, line, err, buf, (int) min, (int) max);
|
|
return;
|
|
}
|
|
}
|
|
|
|
/* Insert fragments of the operand byte for byte. */
|
|
offset = operand->shift + operand->bits;
|
|
uval <<= (-offset) & 7;
|
|
insn += (offset - 1)/8;
|
|
while (uval != 0)
|
|
{
|
|
*insn-- |= uval;
|
|
uval >>= 8;
|
|
}
|
|
}
|
|
|
|
/* Structure used to hold suffixes. */
|
|
typedef enum
|
|
{
|
|
ELF_SUFFIX_NONE = 0,
|
|
ELF_SUFFIX_GOT,
|
|
ELF_SUFFIX_PLT,
|
|
ELF_SUFFIX_GOTENT
|
|
}
|
|
elf_suffix_type;
|
|
|
|
struct map_bfd
|
|
{
|
|
char *string;
|
|
int length;
|
|
elf_suffix_type suffix;
|
|
};
|
|
|
|
/* Parse @got/@plt/@gotoff. and return the desired relocation. */
|
|
static elf_suffix_type
|
|
s390_elf_suffix (str_p, exp_p)
|
|
char **str_p;
|
|
expressionS *exp_p;
|
|
{
|
|
static struct map_bfd mapping[] =
|
|
{
|
|
{ "got", 3, ELF_SUFFIX_GOT },
|
|
{ "got12", 5, ELF_SUFFIX_GOT },
|
|
{ "plt", 3, ELF_SUFFIX_PLT },
|
|
{ "gotent", 6, ELF_SUFFIX_GOTENT },
|
|
{ NULL, 0, ELF_SUFFIX_NONE }
|
|
};
|
|
|
|
struct map_bfd *ptr;
|
|
char *str = *str_p;
|
|
char *ident;
|
|
int len;
|
|
|
|
if (*str++ != '@')
|
|
return ELF_SUFFIX_NONE;
|
|
|
|
ident = str;
|
|
while (isalnum (*str))
|
|
str++;
|
|
len = str - ident;
|
|
|
|
for (ptr = &mapping[0]; ptr->length > 0; ptr++)
|
|
if (len == ptr->length &&
|
|
strncasecmp (ident, ptr->string, ptr->length) == 0)
|
|
{
|
|
if (exp_p->X_add_number != 0)
|
|
as_warn (_("identifier+constant@%s means identifier@%s+constant"),
|
|
ptr->string, ptr->string);
|
|
/* Now check for identifier@suffix+constant. */
|
|
if (*str == '-' || *str == '+')
|
|
{
|
|
char *orig_line = input_line_pointer;
|
|
expressionS new_exp;
|
|
|
|
input_line_pointer = str;
|
|
expression (&new_exp);
|
|
|
|
switch (new_exp.X_op)
|
|
{
|
|
case O_constant: /* X_add_number (a constant expression). */
|
|
exp_p->X_add_number += new_exp.X_add_number;
|
|
str = input_line_pointer;
|
|
break;
|
|
case O_symbol: /* X_add_symbol + X_add_number. */
|
|
/* this case is used for e.g. xyz@PLT+.Label. */
|
|
exp_p->X_add_number += new_exp.X_add_number;
|
|
exp_p->X_op_symbol = new_exp.X_add_symbol;
|
|
exp_p->X_op = O_add;
|
|
str = input_line_pointer;
|
|
break;
|
|
case O_uminus: /* (- X_add_symbol) + X_add_number. */
|
|
/* this case is used for e.g. xyz@PLT-.Label. */
|
|
exp_p->X_add_number += new_exp.X_add_number;
|
|
exp_p->X_op_symbol = new_exp.X_add_symbol;
|
|
exp_p->X_op = O_subtract;
|
|
str = input_line_pointer;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
|
|
/* If s390_elf_suffix has not been called with
|
|
&input_line_pointer as first parameter, we have
|
|
clobbered the input_line_pointer. We have to
|
|
undo that. */
|
|
if (&input_line_pointer != str_p)
|
|
input_line_pointer = orig_line;
|
|
}
|
|
*str_p = str;
|
|
return ptr->suffix;
|
|
}
|
|
|
|
return BFD_RELOC_UNUSED;
|
|
}
|
|
|
|
/* Structure used to hold a literal pool entry. */
|
|
struct s390_lpe
|
|
{
|
|
struct s390_lpe *next;
|
|
expressionS ex;
|
|
FLONUM_TYPE floatnum; /* used if X_op == O_big && X_add_number <= 0 */
|
|
LITTLENUM_TYPE bignum[4]; /* used if X_op == O_big && X_add_number > 0 */
|
|
int nbytes;
|
|
bfd_reloc_code_real_type reloc;
|
|
symbolS *sym;
|
|
};
|
|
|
|
static struct s390_lpe *lpe_free_list = NULL;
|
|
static struct s390_lpe *lpe_list = NULL;
|
|
static struct s390_lpe *lpe_list_tail = NULL;
|
|
static symbolS *lp_sym = NULL;
|
|
static int lp_count = 0;
|
|
static int lpe_count = 0;
|
|
|
|
static int
|
|
s390_exp_compare(exp1, exp2)
|
|
expressionS *exp1;
|
|
expressionS *exp2;
|
|
{
|
|
if (exp1->X_op != exp2->X_op)
|
|
return 0;
|
|
|
|
switch (exp1->X_op)
|
|
{
|
|
case O_constant: /* X_add_number must be equal. */
|
|
case O_register:
|
|
return exp1->X_add_number == exp2->X_add_number;
|
|
|
|
case O_big:
|
|
as_bad (_("Can't handle O_big in s390_exp_compare"));
|
|
|
|
case O_symbol: /* X_add_symbol & X_add_number must be equal. */
|
|
case O_symbol_rva:
|
|
case O_uminus:
|
|
case O_bit_not:
|
|
case O_logical_not:
|
|
return (exp1->X_add_symbol == exp2->X_add_symbol) &&
|
|
(exp1->X_add_number == exp2->X_add_number);
|
|
|
|
case O_multiply: /* X_add_symbol,X_op_symbol&X_add_number must be equal. */
|
|
case O_divide:
|
|
case O_modulus:
|
|
case O_left_shift:
|
|
case O_right_shift:
|
|
case O_bit_inclusive_or:
|
|
case O_bit_or_not:
|
|
case O_bit_exclusive_or:
|
|
case O_bit_and:
|
|
case O_add:
|
|
case O_subtract:
|
|
case O_eq:
|
|
case O_ne:
|
|
case O_lt:
|
|
case O_le:
|
|
case O_ge:
|
|
case O_gt:
|
|
case O_logical_and:
|
|
case O_logical_or:
|
|
return (exp1->X_add_symbol == exp2->X_add_symbol) &&
|
|
(exp1->X_op_symbol == exp2->X_op_symbol) &&
|
|
(exp1->X_add_number == exp2->X_add_number);
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
/* Test for @lit and if its present make an entry in the literal pool and
|
|
modify the current expression to be an offset into the literal pool. */
|
|
static elf_suffix_type
|
|
s390_lit_suffix (str_p, exp_p, suffix)
|
|
char **str_p;
|
|
expressionS *exp_p;
|
|
elf_suffix_type suffix;
|
|
{
|
|
bfd_reloc_code_real_type reloc;
|
|
char tmp_name[64];
|
|
char *str = *str_p;
|
|
char *ident;
|
|
struct s390_lpe *lpe;
|
|
int nbytes, len;
|
|
|
|
if (*str++ != ':')
|
|
return suffix; /* No modification. */
|
|
|
|
/* We look for a suffix of the form "@lit1", "@lit2", "@lit4" or "@lit8". */
|
|
ident = str;
|
|
while (isalnum (*str))
|
|
str++;
|
|
len = str - ident;
|
|
if (len != 4 || strncasecmp (ident, "lit", 3) != 0 ||
|
|
(ident[3]!='1' && ident[3]!='2' && ident[3]!='4' && ident[3]!='8'))
|
|
return suffix; /* no modification */
|
|
nbytes = ident[3] - '0';
|
|
|
|
reloc = BFD_RELOC_UNUSED;
|
|
if (suffix == ELF_SUFFIX_GOT)
|
|
{
|
|
if (nbytes == 2)
|
|
reloc = BFD_RELOC_390_GOT16;
|
|
else if (nbytes == 4)
|
|
reloc = BFD_RELOC_32_GOT_PCREL;
|
|
else if (nbytes == 8)
|
|
reloc = BFD_RELOC_390_GOT64;
|
|
}
|
|
else if (suffix == ELF_SUFFIX_PLT)
|
|
{
|
|
if (nbytes == 4)
|
|
reloc = BFD_RELOC_390_PLT32;
|
|
else if (nbytes == 8)
|
|
reloc = BFD_RELOC_390_PLT64;
|
|
}
|
|
|
|
if (suffix != ELF_SUFFIX_NONE && reloc == BFD_RELOC_UNUSED)
|
|
as_bad (_("Invalid suffix for literal pool entry"));
|
|
|
|
/* Search the pool if the new entry is a duplicate. */
|
|
if (exp_p->X_op == O_big)
|
|
{
|
|
/* Special processing for big numbers. */
|
|
for (lpe = lpe_list; lpe != NULL; lpe = lpe->next)
|
|
{
|
|
if (lpe->ex.X_op == O_big)
|
|
{
|
|
if (exp_p->X_add_number <= 0 && lpe->ex.X_add_number <= 0)
|
|
{
|
|
if (memcmp (&generic_floating_point_number, &lpe->floatnum,
|
|
sizeof (FLONUM_TYPE)) == 0)
|
|
break;
|
|
}
|
|
else if (exp_p->X_add_number == lpe->ex.X_add_number)
|
|
{
|
|
if (memcmp (generic_bignum, lpe->bignum,
|
|
sizeof (LITTLENUM_TYPE)*exp_p->X_add_number) == 0)
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
/* Processing for 'normal' data types. */
|
|
for (lpe = lpe_list; lpe != NULL; lpe = lpe->next)
|
|
if (lpe->nbytes == nbytes && lpe->reloc == reloc &&
|
|
s390_exp_compare(exp_p, &lpe->ex) != 0)
|
|
break;
|
|
}
|
|
|
|
if (lpe == NULL)
|
|
{
|
|
/* A new literal. */
|
|
if (lpe_free_list != NULL)
|
|
{
|
|
lpe = lpe_free_list;
|
|
lpe_free_list = lpe_free_list->next;
|
|
}
|
|
else
|
|
{
|
|
lpe = (struct s390_lpe *) xmalloc(sizeof (struct s390_lpe));
|
|
}
|
|
|
|
lpe->ex = *exp_p;
|
|
|
|
if (exp_p->X_op == O_big)
|
|
{
|
|
if (exp_p->X_add_number <= 0)
|
|
lpe->floatnum = generic_floating_point_number;
|
|
else if (exp_p->X_add_number <= 4)
|
|
memcpy (lpe->bignum, generic_bignum,
|
|
exp_p->X_add_number*sizeof (LITTLENUM_TYPE));
|
|
else
|
|
as_bad (_("Big number is too big"));
|
|
}
|
|
|
|
lpe->nbytes = nbytes;
|
|
lpe->reloc = reloc;
|
|
/* Literal pool name defined ? */
|
|
if (lp_sym == NULL)
|
|
{
|
|
sprintf (tmp_name, ".L\001%i", lp_count);
|
|
lp_sym = symbol_make(tmp_name);
|
|
}
|
|
|
|
/* Make name for literal pool entry. */
|
|
sprintf (tmp_name, ".L\001%i\002%i", lp_count, lpe_count);
|
|
lpe_count++;
|
|
lpe->sym = symbol_make(tmp_name);
|
|
|
|
/* Add to literal pool list. */
|
|
lpe->next = NULL;
|
|
if (lpe_list_tail != NULL)
|
|
{
|
|
lpe_list_tail->next = lpe;
|
|
lpe_list_tail = lpe;
|
|
}
|
|
else
|
|
lpe_list = lpe_list_tail = lpe;
|
|
}
|
|
|
|
/* Now change exp_p to the offset into the literal pool.
|
|
Thats the expression: .L^Ax^By-.L^Ax */
|
|
exp_p->X_add_symbol = lpe->sym;
|
|
exp_p->X_op_symbol = lp_sym;
|
|
exp_p->X_op = O_subtract;
|
|
exp_p->X_add_number = 0;
|
|
|
|
*str_p = str;
|
|
|
|
/* We change the suffix type to ELF_SUFFIX_NONE, because
|
|
the difference of two local labels is just a number. */
|
|
return ELF_SUFFIX_NONE;
|
|
}
|
|
|
|
/* Like normal .long/.short/.word, except support @got, etc.
|
|
clobbers input_line_pointer, checks end-of-line. */
|
|
static void
|
|
s390_elf_cons (nbytes)
|
|
register int nbytes; /* 1=.byte, 2=.word, 4=.long */
|
|
{
|
|
expressionS exp;
|
|
elf_suffix_type suffix;
|
|
|
|
if (is_it_end_of_statement ())
|
|
{
|
|
demand_empty_rest_of_line ();
|
|
return;
|
|
}
|
|
|
|
do
|
|
{
|
|
expression (&exp);
|
|
|
|
if (exp.X_op == O_symbol
|
|
&& *input_line_pointer == '@'
|
|
&& (suffix = s390_elf_suffix (&input_line_pointer, &exp)) != ELF_SUFFIX_NONE)
|
|
{
|
|
bfd_reloc_code_real_type reloc;
|
|
reloc_howto_type *reloc_howto;
|
|
int size;
|
|
char *where;
|
|
|
|
if (nbytes == 2 && suffix == ELF_SUFFIX_GOT)
|
|
reloc = BFD_RELOC_390_GOT16;
|
|
else if (nbytes == 4 && suffix == ELF_SUFFIX_GOT)
|
|
reloc = BFD_RELOC_32_GOT_PCREL;
|
|
else if (nbytes == 8 && suffix == ELF_SUFFIX_GOT)
|
|
reloc = BFD_RELOC_390_GOT64;
|
|
else if (nbytes == 4 && suffix == ELF_SUFFIX_PLT)
|
|
reloc = BFD_RELOC_390_PLT32;
|
|
else if (nbytes == 8 && suffix == ELF_SUFFIX_PLT)
|
|
reloc = BFD_RELOC_390_PLT64;
|
|
else
|
|
reloc = BFD_RELOC_UNUSED;
|
|
|
|
if (reloc != BFD_RELOC_UNUSED)
|
|
{
|
|
reloc_howto = bfd_reloc_type_lookup (stdoutput, reloc);
|
|
size = bfd_get_reloc_size (reloc_howto);
|
|
if (size > nbytes)
|
|
as_bad (_("%s relocations do not fit in %d bytes"),
|
|
reloc_howto->name, nbytes);
|
|
where = frag_more (nbytes);
|
|
md_number_to_chars (where, 0, size);
|
|
fix_new_exp (frag_now, where - frag_now->fr_literal,
|
|
size, &exp, reloc_howto->pc_relative, reloc);
|
|
}
|
|
else
|
|
as_bad (_("relocation not applicable"));
|
|
}
|
|
else
|
|
emit_expr (&exp, (unsigned int) nbytes);
|
|
}
|
|
while (*input_line_pointer++ == ',');
|
|
|
|
input_line_pointer--; /* Put terminator back into stream. */
|
|
demand_empty_rest_of_line ();
|
|
}
|
|
|
|
/* We need to keep a list of fixups. We can't simply generate them as
|
|
we go, because that would require us to first create the frag, and
|
|
that would screw up references to ``.''. */
|
|
|
|
struct s390_fixup
|
|
{
|
|
expressionS exp;
|
|
int opindex;
|
|
bfd_reloc_code_real_type reloc;
|
|
};
|
|
|
|
#define MAX_INSN_FIXUPS (4)
|
|
|
|
/* This routine is called for each instruction to be assembled. */
|
|
|
|
char *
|
|
md_gather_operands (str, insn, opcode)
|
|
char *str;
|
|
unsigned char *insn;
|
|
const struct s390_opcode *opcode;
|
|
{
|
|
struct s390_fixup fixups[MAX_INSN_FIXUPS];
|
|
const struct s390_operand *operand;
|
|
const unsigned char *opindex_ptr;
|
|
elf_suffix_type suffix;
|
|
bfd_reloc_code_real_type reloc;
|
|
int skip_optional;
|
|
int parentheses;
|
|
char *f;
|
|
int fc, i;
|
|
|
|
while (isspace(*str)) str++;
|
|
|
|
parentheses = 0;
|
|
skip_optional = 0;
|
|
|
|
/* Gather the operands. */
|
|
fc = 0;
|
|
for (opindex_ptr = opcode->operands; *opindex_ptr != 0; opindex_ptr++)
|
|
{
|
|
expressionS ex;
|
|
char *hold;
|
|
|
|
operand = s390_operands + *opindex_ptr;
|
|
|
|
if (skip_optional && (operand->flags & S390_OPERAND_INDEX))
|
|
{
|
|
/* We do an early skip. For D(X,B) constructions the index
|
|
register is skipped (X is optional). For D(L,B) the base
|
|
register will be the skipped operand, because L is NOT
|
|
optional. */
|
|
skip_optional = 0;
|
|
continue;
|
|
}
|
|
|
|
/* Gather the operand. */
|
|
hold = input_line_pointer;
|
|
input_line_pointer = str;
|
|
|
|
if (! register_name (&ex)) /* parse the operand */
|
|
expression (&ex);
|
|
|
|
str = input_line_pointer;
|
|
input_line_pointer = hold;
|
|
|
|
/* Write the operand to the insn. */
|
|
if (ex.X_op == O_illegal)
|
|
as_bad (_("illegal operand"));
|
|
else if (ex.X_op == O_absent)
|
|
as_bad (_("missing operand"));
|
|
else if (ex.X_op == O_register || ex.X_op == O_constant)
|
|
{
|
|
s390_lit_suffix (&str, &ex, ELF_SUFFIX_NONE);
|
|
|
|
if (ex.X_op != O_register && ex.X_op != O_constant)
|
|
{
|
|
/* We need to generate a fixup for the
|
|
expression returned by s390_lit_suffix. */
|
|
if (fc >= MAX_INSN_FIXUPS)
|
|
as_fatal (_("too many fixups"));
|
|
fixups[fc].exp = ex;
|
|
fixups[fc].opindex = *opindex_ptr;
|
|
fixups[fc].reloc = BFD_RELOC_UNUSED;
|
|
++fc;
|
|
}
|
|
else
|
|
{
|
|
if ((operand->flags & S390_OPERAND_INDEX) && ex.X_add_number == 0)
|
|
as_warn ("index register specified but zero");
|
|
if ((operand->flags & S390_OPERAND_BASE) && ex.X_add_number == 0)
|
|
as_warn ("base register specified but zero");
|
|
s390_insert_operand (insn, operand, ex.X_add_number, NULL, 0);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
suffix = s390_elf_suffix (&str, &ex);
|
|
suffix = s390_lit_suffix (&str, &ex, suffix);
|
|
reloc = BFD_RELOC_UNUSED;
|
|
|
|
if (suffix == ELF_SUFFIX_GOT)
|
|
{
|
|
if (operand->flags & S390_OPERAND_DISP)
|
|
reloc = BFD_RELOC_390_GOT12;
|
|
else if ((operand->flags & S390_OPERAND_SIGNED) &&
|
|
(operand->bits == 16))
|
|
reloc = BFD_RELOC_390_GOT16;
|
|
else if ((operand->flags & S390_OPERAND_PCREL) &&
|
|
(operand->bits == 32))
|
|
reloc = BFD_RELOC_390_GOTENT;
|
|
}
|
|
else if (suffix == ELF_SUFFIX_PLT)
|
|
{
|
|
if ((operand->flags & S390_OPERAND_PCREL) &&
|
|
(operand->bits == 16))
|
|
reloc = BFD_RELOC_390_PLT16DBL;
|
|
else if ((operand->flags & S390_OPERAND_PCREL) &&
|
|
(operand->bits == 32))
|
|
reloc = BFD_RELOC_390_PLT32DBL;
|
|
}
|
|
else if (suffix == ELF_SUFFIX_GOTENT)
|
|
{
|
|
if ((operand->flags & S390_OPERAND_PCREL) &&
|
|
(operand->bits == 32))
|
|
reloc = BFD_RELOC_390_GOTENT;
|
|
}
|
|
|
|
if (suffix != ELF_SUFFIX_NONE && reloc == BFD_RELOC_UNUSED)
|
|
as_bad (_("invalid operand suffix"));
|
|
/* We need to generate a fixup of type 'reloc' for this
|
|
expression. */
|
|
if (fc >= MAX_INSN_FIXUPS)
|
|
as_fatal (_("too many fixups"));
|
|
fixups[fc].exp = ex;
|
|
fixups[fc].opindex = *opindex_ptr;
|
|
fixups[fc].reloc = reloc;
|
|
++fc;
|
|
}
|
|
|
|
/* Check the next character. The call to expression has advanced
|
|
str past any whitespace. */
|
|
if (operand->flags & S390_OPERAND_DISP)
|
|
{
|
|
/* After a displacement a block in parentheses can start. */
|
|
if (*str != '(')
|
|
{
|
|
/* Check if parethesed block can be skipped. If the next
|
|
operand is neiter an optional operand nor a base register
|
|
then we have a syntax error. */
|
|
operand = s390_operands + *(++opindex_ptr);
|
|
if (!(operand->flags & (S390_OPERAND_INDEX|S390_OPERAND_BASE)))
|
|
as_bad (_("syntax error; missing '(' after displacement"));
|
|
|
|
/* Ok, skip all operands until S390_OPERAND_BASE. */
|
|
while (!(operand->flags & S390_OPERAND_BASE))
|
|
operand = s390_operands + *(++opindex_ptr);
|
|
|
|
/* If there is a next operand it must be seperated by a comma. */
|
|
if (opindex_ptr[1] != '\0')
|
|
{
|
|
if (*str++ != ',')
|
|
as_bad (_("syntax error; expected ,"));
|
|
}
|
|
}
|
|
else
|
|
{
|
|
/* We found an opening parentheses. */
|
|
str++;
|
|
for (f = str; *f != '\0'; f++)
|
|
if (*f == ',' || *f == ')')
|
|
break;
|
|
/* If there is no comma until the closing parentheses OR
|
|
there is a comma right after the opening parentheses,
|
|
we have to skip optional operands. */
|
|
if (*f == ',' && f == str)
|
|
{
|
|
/* comma directly after '(' ? */
|
|
skip_optional = 1;
|
|
str++;
|
|
}
|
|
else
|
|
skip_optional = (*f != ',');
|
|
}
|
|
}
|
|
else if (operand->flags & S390_OPERAND_BASE)
|
|
{
|
|
/* After the base register the parenthesed block ends. */
|
|
if (*str++ != ')')
|
|
as_bad (_("syntax error; missing ')' after base register"));
|
|
skip_optional = 0;
|
|
/* If there is a next operand it must be seperated by a comma. */
|
|
if (opindex_ptr[1] != '\0')
|
|
{
|
|
if (*str++ != ',')
|
|
as_bad (_("syntax error; expected ,"));
|
|
}
|
|
}
|
|
else
|
|
{
|
|
/* We can find an 'early' closing parentheses in e.g. D(L) instead
|
|
of D(L,B). In this case the base register has to be skipped. */
|
|
if (*str == ')')
|
|
{
|
|
operand = s390_operands + *(++opindex_ptr);
|
|
|
|
if (!(operand->flags & S390_OPERAND_BASE))
|
|
as_bad (_("syntax error; ')' not allowed here"));
|
|
str++;
|
|
}
|
|
/* If there is a next operand it must be seperated by a comma. */
|
|
if (opindex_ptr[1] != '\0')
|
|
{
|
|
if (*str++ != ',')
|
|
as_bad (_("syntax error; expected ,"));
|
|
}
|
|
}
|
|
}
|
|
|
|
while (isspace (*str))
|
|
++str;
|
|
|
|
if (*str != '\0')
|
|
{
|
|
char *linefeed;
|
|
|
|
if ((linefeed = strchr (str, '\n')) != NULL)
|
|
*linefeed = '\0';
|
|
as_bad (_("junk at end of line: `%s'"), str);
|
|
if (linefeed != NULL)
|
|
*linefeed = '\n';
|
|
}
|
|
|
|
/* Write out the instruction. */
|
|
f = frag_more (opcode->oplen);
|
|
memcpy (f, insn, opcode->oplen);
|
|
|
|
/* Create any fixups. At this point we do not use a
|
|
bfd_reloc_code_real_type, but instead just use the
|
|
BFD_RELOC_UNUSED plus the operand index. This lets us easily
|
|
handle fixups for any operand type, although that is admittedly
|
|
not a very exciting feature. We pick a BFD reloc type in
|
|
md_apply_fix3. */
|
|
for (i = 0; i < fc; i++)
|
|
{
|
|
operand = s390_operands + fixups[i].opindex;
|
|
|
|
if (fixups[i].reloc != BFD_RELOC_UNUSED)
|
|
{
|
|
reloc_howto_type *reloc_howto;
|
|
fixS *fixP;
|
|
int size;
|
|
|
|
reloc_howto = bfd_reloc_type_lookup (stdoutput, fixups[i].reloc);
|
|
if (!reloc_howto)
|
|
abort ();
|
|
|
|
size = bfd_get_reloc_size (reloc_howto);
|
|
|
|
if (size < 1 || size > 4)
|
|
abort ();
|
|
|
|
fixP = fix_new_exp (frag_now,
|
|
f - frag_now->fr_literal + (operand->shift/8),
|
|
size, &fixups[i].exp, reloc_howto->pc_relative,
|
|
fixups[i].reloc);
|
|
/* Turn off overflow checking in fixup_segment. This is necessary
|
|
because fixup_segment will signal an overflow for large 4 byte
|
|
quantities for GOT12 relocations. */
|
|
if (fixups[i].reloc == BFD_RELOC_390_GOT12 ||
|
|
fixups[i].reloc == BFD_RELOC_390_GOT16)
|
|
fixP->fx_no_overflow = 1;
|
|
}
|
|
else
|
|
fix_new_exp (frag_now, f - frag_now->fr_literal, 4, &fixups[i].exp,
|
|
(operand->flags & S390_OPERAND_PCREL) != 0,
|
|
((bfd_reloc_code_real_type)
|
|
(fixups[i].opindex + (int) BFD_RELOC_UNUSED)));
|
|
}
|
|
return str;
|
|
}
|
|
|
|
/* This routine is called for each instruction to be assembled. */
|
|
|
|
void
|
|
md_assemble (str)
|
|
char *str;
|
|
{
|
|
const struct s390_opcode *opcode;
|
|
unsigned char insn[6];
|
|
char *s;
|
|
|
|
/* Get the opcode. */
|
|
for (s = str; *s != '\0' && ! isspace (*s); s++)
|
|
;
|
|
if (*s != '\0')
|
|
*s++ = '\0';
|
|
|
|
/* Look up the opcode in the hash table. */
|
|
opcode = (struct s390_opcode *) hash_find (s390_opcode_hash, str);
|
|
if (opcode == (const struct s390_opcode *) NULL)
|
|
{
|
|
as_bad (_("Unrecognized opcode: `%s'"), str);
|
|
return;
|
|
}
|
|
else if (!(opcode->architecture & current_arch_mask))
|
|
{
|
|
as_bad ("Opcode %s not available in this architecture", str);
|
|
return;
|
|
}
|
|
|
|
memcpy (insn, opcode->opcode, sizeof (insn));
|
|
md_gather_operands (s, insn, opcode);
|
|
}
|
|
|
|
#ifndef WORKING_DOT_WORD
|
|
/* Handle long and short jumps. We don't support these */
|
|
void
|
|
md_create_short_jump (ptr, from_addr, to_addr, frag, to_symbol)
|
|
char *ptr;
|
|
addressT from_addr, to_addr;
|
|
fragS *frag;
|
|
symbolS *to_symbol;
|
|
{
|
|
abort ();
|
|
}
|
|
|
|
void
|
|
md_create_long_jump (ptr, from_addr, to_addr, frag, to_symbol)
|
|
char *ptr;
|
|
addressT from_addr, to_addr;
|
|
fragS *frag;
|
|
symbolS *to_symbol;
|
|
{
|
|
abort ();
|
|
}
|
|
#endif
|
|
|
|
void
|
|
s390_bss (ignore)
|
|
int ignore ATTRIBUTE_UNUSED;
|
|
{
|
|
/* We don't support putting frags in the BSS segment, we fake it
|
|
by marking in_bss, then looking at s_skip for clues. */
|
|
|
|
subseg_set (bss_section, 0);
|
|
demand_empty_rest_of_line ();
|
|
}
|
|
|
|
/* Pseudo-op handling. */
|
|
|
|
void
|
|
s390_insn (ignore)
|
|
int ignore ATTRIBUTE_UNUSED;
|
|
{
|
|
expressionS exp;
|
|
const struct s390_opcode *opformat;
|
|
unsigned char insn[6];
|
|
char *s;
|
|
|
|
/* Get the opcode format. */
|
|
s = input_line_pointer;
|
|
while (*s != '\0' && *s != ',' && ! isspace (*s))
|
|
s++;
|
|
if (*s != ',')
|
|
as_bad (_("Invalid .insn format\n"));
|
|
*s++ = '\0';
|
|
|
|
/* Look up the opcode in the hash table. */
|
|
opformat = (struct s390_opcode *)
|
|
hash_find (s390_opformat_hash, input_line_pointer);
|
|
if (opformat == (const struct s390_opcode *) NULL)
|
|
{
|
|
as_bad (_("Unrecognized opcode format: `%s'"), input_line_pointer);
|
|
return;
|
|
}
|
|
input_line_pointer = s;
|
|
expression (&exp);
|
|
if (exp.X_op == O_constant)
|
|
{
|
|
if (opformat->oplen == 4 ||
|
|
(opformat->oplen == 2 && exp.X_op < 0x10000))
|
|
md_number_to_chars (insn, exp.X_add_number, opformat->oplen);
|
|
else
|
|
as_bad (_("Invalid .insn format\n"));
|
|
}
|
|
else if (exp.X_op == O_big)
|
|
{
|
|
if (exp.X_add_number > 0 &&
|
|
opformat->oplen == 6 &&
|
|
generic_bignum[3] == 0)
|
|
{
|
|
md_number_to_chars (insn, generic_bignum[2], 2);
|
|
md_number_to_chars (&insn[2], generic_bignum[1], 2);
|
|
md_number_to_chars (&insn[4], generic_bignum[0], 2);
|
|
}
|
|
else
|
|
as_bad (_("Invalid .insn format\n"));
|
|
}
|
|
else
|
|
as_bad (_("second operand of .insn not a constant\n"));
|
|
if (*input_line_pointer++ != ',')
|
|
as_bad (_("missing comma after insn constant\n"));
|
|
|
|
if ((s = strchr (input_line_pointer, '\n')) != NULL)
|
|
*s = '\0';
|
|
input_line_pointer = md_gather_operands (input_line_pointer, insn, opformat);
|
|
if (s != NULL)
|
|
*s = '\n';
|
|
demand_empty_rest_of_line ();
|
|
}
|
|
|
|
/* The .byte pseudo-op. This is similar to the normal .byte
|
|
pseudo-op, but it can also take a single ASCII string. */
|
|
|
|
static void
|
|
s390_byte (ignore)
|
|
int ignore ATTRIBUTE_UNUSED;
|
|
{
|
|
if (*input_line_pointer != '\"')
|
|
{
|
|
cons (1);
|
|
return;
|
|
}
|
|
|
|
/* Gather characters. A real double quote is doubled. Unusual
|
|
characters are not permitted. */
|
|
++input_line_pointer;
|
|
while (1)
|
|
{
|
|
char c;
|
|
|
|
c = *input_line_pointer++;
|
|
|
|
if (c == '\"')
|
|
{
|
|
if (*input_line_pointer != '\"')
|
|
break;
|
|
++input_line_pointer;
|
|
}
|
|
|
|
FRAG_APPEND_1_CHAR (c);
|
|
}
|
|
|
|
demand_empty_rest_of_line ();
|
|
}
|
|
|
|
/* The .ltorg pseudo-op.This emits all literals defined since the last
|
|
.ltorg or the invocation of gas. Literals are defined with the
|
|
@lit suffix. */
|
|
|
|
static void
|
|
s390_literals (ignore)
|
|
int ignore ATTRIBUTE_UNUSED;
|
|
{
|
|
struct s390_lpe *lpe;
|
|
|
|
if (lp_sym == NULL || lpe_count == 0)
|
|
return; /* nothing to be done */
|
|
|
|
/* Emit symbol for start of literal pool. */
|
|
S_SET_SEGMENT (lp_sym, now_seg);
|
|
S_SET_VALUE (lp_sym, (valueT) frag_now_fix ());
|
|
lp_sym->sy_frag = frag_now;
|
|
|
|
while (lpe_list)
|
|
{
|
|
lpe = lpe_list;
|
|
lpe_list = lpe_list->next;
|
|
S_SET_SEGMENT (lpe->sym, now_seg);
|
|
S_SET_VALUE (lpe->sym, (valueT) frag_now_fix ());
|
|
lpe->sym->sy_frag = frag_now;
|
|
|
|
/* Emit literal pool entry. */
|
|
if (lpe->reloc != BFD_RELOC_UNUSED)
|
|
{
|
|
reloc_howto_type *reloc_howto =
|
|
bfd_reloc_type_lookup (stdoutput, lpe->reloc);
|
|
int size = bfd_get_reloc_size (reloc_howto);
|
|
char *where;
|
|
|
|
if (size > lpe->nbytes)
|
|
as_bad (_("%s relocations do not fit in %d bytes"),
|
|
reloc_howto->name, lpe->nbytes);
|
|
where = frag_more (lpe->nbytes);
|
|
md_number_to_chars (where, 0, size);
|
|
fix_new_exp (frag_now, where - frag_now->fr_literal,
|
|
size, &lpe->ex, reloc_howto->pc_relative, lpe->reloc);
|
|
}
|
|
else
|
|
{
|
|
if (lpe->ex.X_op == O_big)
|
|
{
|
|
if (lpe->ex.X_add_number <= 0)
|
|
generic_floating_point_number = lpe->floatnum;
|
|
else
|
|
memcpy (generic_bignum, lpe->bignum,
|
|
lpe->ex.X_add_number*sizeof (LITTLENUM_TYPE));
|
|
}
|
|
emit_expr (&lpe->ex, lpe->nbytes);
|
|
}
|
|
|
|
lpe->next = lpe_free_list;
|
|
lpe_free_list = lpe;
|
|
}
|
|
lpe_list_tail = NULL;
|
|
lp_sym = NULL;
|
|
lp_count++;
|
|
lpe_count = 0;
|
|
}
|
|
|
|
/* 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. */
|
|
|
|
char *
|
|
md_atof (type, litp, sizep)
|
|
int type;
|
|
char *litp;
|
|
int *sizep;
|
|
{
|
|
int prec;
|
|
LITTLENUM_TYPE words[4];
|
|
char *t;
|
|
int i;
|
|
|
|
switch (type)
|
|
{
|
|
case 'f':
|
|
prec = 2;
|
|
break;
|
|
|
|
case 'd':
|
|
prec = 4;
|
|
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 * 2;
|
|
|
|
for (i = 0; i < prec; i++)
|
|
{
|
|
md_number_to_chars (litp, (valueT) words[i], 2);
|
|
litp += 2;
|
|
}
|
|
|
|
return NULL;
|
|
}
|
|
|
|
/* Align a section (I don't know why this is machine dependent). */
|
|
|
|
valueT
|
|
md_section_align (seg, addr)
|
|
asection *seg;
|
|
valueT addr;
|
|
{
|
|
int align = bfd_get_section_alignment (stdoutput, seg);
|
|
|
|
return ((addr + (1 << align) - 1) & (-1 << align));
|
|
}
|
|
|
|
/* We don't have any form of relaxing. */
|
|
|
|
int
|
|
md_estimate_size_before_relax (fragp, seg)
|
|
fragS *fragp ATTRIBUTE_UNUSED;
|
|
asection *seg ATTRIBUTE_UNUSED;
|
|
{
|
|
abort ();
|
|
return 0;
|
|
}
|
|
|
|
/* Convert a machine dependent frag. We never generate these. */
|
|
|
|
void
|
|
md_convert_frag (abfd, sec, fragp)
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
|
asection *sec ATTRIBUTE_UNUSED;
|
|
fragS *fragp ATTRIBUTE_UNUSED;
|
|
{
|
|
abort ();
|
|
}
|
|
|
|
symbolS *
|
|
md_undefined_symbol (name)
|
|
char *name;
|
|
{
|
|
if (*name == '_' && *(name+1) == 'G'
|
|
&& strcmp (name, "_GLOBAL_OFFSET_TABLE_") == 0)
|
|
{
|
|
if (!GOT_symbol)
|
|
{
|
|
if (symbol_find (name))
|
|
as_bad (_("GOT already in symbol table"));
|
|
GOT_symbol = symbol_new (name, undefined_section,
|
|
(valueT) 0, &zero_address_frag);
|
|
}
|
|
return GOT_symbol;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/* Functions concerning relocs. */
|
|
|
|
/* The location from which a PC relative jump should be calculated,
|
|
given a PC relative reloc. */
|
|
|
|
long
|
|
md_pcrel_from_section (fixp, sec)
|
|
fixS *fixp;
|
|
segT sec ATTRIBUTE_UNUSED;
|
|
{
|
|
return fixp->fx_frag->fr_address + fixp->fx_where;
|
|
}
|
|
|
|
/* Here we decide which fixups can be adjusted to make them relative to
|
|
the beginning of the section instead of the symbol. Basically we need
|
|
to make sure that the dynamic relocations are done correctly, so in
|
|
some cases we force the original symbol to be used. */
|
|
int
|
|
tc_s390_fix_adjustable(fixP)
|
|
fixS * fixP;
|
|
{
|
|
/* Prevent all adjustments to global symbols. */
|
|
if (S_IS_EXTERN (fixP->fx_addsy))
|
|
return 0;
|
|
if (S_IS_WEAK (fixP->fx_addsy))
|
|
return 0;
|
|
/* adjust_reloc_syms doesn't know about the GOT. */
|
|
if (fixP->fx_r_type == BFD_RELOC_32_GOTOFF
|
|
|| fixP->fx_r_type == BFD_RELOC_390_PLT16DBL
|
|
|| fixP->fx_r_type == BFD_RELOC_390_PLT32
|
|
|| fixP->fx_r_type == BFD_RELOC_390_PLT32DBL
|
|
|| fixP->fx_r_type == BFD_RELOC_390_PLT64
|
|
|| fixP->fx_r_type == BFD_RELOC_390_GOT12
|
|
|| fixP->fx_r_type == BFD_RELOC_390_GOT16
|
|
|| fixP->fx_r_type == BFD_RELOC_32_GOT_PCREL
|
|
|| fixP->fx_r_type == BFD_RELOC_390_GOT64
|
|
|| fixP->fx_r_type == BFD_RELOC_390_GOTENT
|
|
|| fixP->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
|
|| fixP->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
|
return 0;
|
|
return 1;
|
|
}
|
|
|
|
/* Apply a fixup to the object code. This is called for all the
|
|
fixups we generated by the call to fix_new_exp, above. In the call
|
|
above we used a reloc code which was the largest legal reloc code
|
|
plus the operand index. Here we undo that to recover the operand
|
|
index. At this point all symbol values should be fully resolved,
|
|
and we attempt to completely resolve the reloc. If we can not do
|
|
that, we determine the correct reloc code and put it back in the
|
|
fixup. */
|
|
|
|
int
|
|
md_apply_fix3 (fixp, valuep, seg)
|
|
fixS *fixp;
|
|
valueT *valuep;
|
|
segT seg ATTRIBUTE_UNUSED;
|
|
{
|
|
char *where;
|
|
valueT value;
|
|
|
|
value = *valuep;
|
|
where = fixp->fx_frag->fr_literal + fixp->fx_where;
|
|
|
|
if (fixp->fx_subsy != NULL)
|
|
{
|
|
if (!S_IS_DEFINED (fixp->fx_subsy))
|
|
as_bad_where (fixp->fx_file, fixp->fx_line,
|
|
_("unresolved fx_subsy symbol that must be resolved"));
|
|
value -= S_GET_VALUE(fixp->fx_subsy);
|
|
}
|
|
|
|
if (fixp->fx_addsy != NULL)
|
|
{
|
|
/* `*valuep' may contain the value of the symbol on which the reloc
|
|
will be based; we have to remove it. */
|
|
if (fixp->fx_addsy->sy_used_in_reloc
|
|
&& 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)))
|
|
value -= S_GET_VALUE (fixp->fx_addsy);
|
|
|
|
if (fixp->fx_pcrel)
|
|
value += fixp->fx_frag->fr_address + fixp->fx_where;
|
|
}
|
|
else
|
|
fixp->fx_done = 1;
|
|
|
|
if ((int) fixp->fx_r_type >= (int) BFD_RELOC_UNUSED)
|
|
{
|
|
const struct s390_operand *operand;
|
|
int opindex;
|
|
|
|
opindex = (int) fixp->fx_r_type - (int) BFD_RELOC_UNUSED;
|
|
operand = &s390_operands[opindex];
|
|
|
|
if (fixp->fx_done)
|
|
{
|
|
/* Insert the fully resolved operand value. */
|
|
s390_insert_operand (where, operand, (offsetT) value,
|
|
fixp->fx_file, fixp->fx_line);
|
|
|
|
return 1;
|
|
}
|
|
|
|
/* Determine a BFD reloc value based on the operand information.
|
|
We are only prepared to turn a few of the operands into
|
|
relocs. */
|
|
fixp->fx_offset = value;
|
|
if (operand->bits == 12 && operand->shift == 20)
|
|
{
|
|
fixp->fx_size = 2;
|
|
fixp->fx_where += 2;
|
|
fixp->fx_r_type = BFD_RELOC_390_12;
|
|
}
|
|
else if (operand->bits == 12 && operand->shift == 36)
|
|
{
|
|
fixp->fx_size = 2;
|
|
fixp->fx_where += 4;
|
|
fixp->fx_r_type = BFD_RELOC_390_12;
|
|
}
|
|
else if (operand->bits == 8 && operand->shift == 8)
|
|
{
|
|
fixp->fx_size = 1;
|
|
fixp->fx_where += 1;
|
|
fixp->fx_r_type = BFD_RELOC_8;
|
|
}
|
|
else if (operand->bits == 16 && operand->shift == 16)
|
|
{
|
|
fixp->fx_size = 2;
|
|
fixp->fx_where += 2;
|
|
if (operand->flags & S390_OPERAND_PCREL)
|
|
{
|
|
fixp->fx_r_type = BFD_RELOC_390_PC16DBL;
|
|
fixp->fx_offset += 2;
|
|
}
|
|
else
|
|
fixp->fx_r_type = BFD_RELOC_16;
|
|
}
|
|
else if (operand->bits == 32 && operand->shift == 16 &&
|
|
(operand->flags & S390_OPERAND_PCREL))
|
|
{
|
|
fixp->fx_size = 4;
|
|
fixp->fx_where += 2;
|
|
fixp->fx_offset += 2;
|
|
fixp->fx_r_type = BFD_RELOC_390_PC32DBL;
|
|
}
|
|
else
|
|
{
|
|
char *sfile;
|
|
unsigned int sline;
|
|
|
|
/* Use expr_symbol_where to see if this is an expression
|
|
symbol. */
|
|
if (expr_symbol_where (fixp->fx_addsy, &sfile, &sline))
|
|
as_bad_where (fixp->fx_file, fixp->fx_line,
|
|
_("unresolved expression that must be resolved"));
|
|
else
|
|
as_bad_where (fixp->fx_file, fixp->fx_line,
|
|
_("unsupported relocation type"));
|
|
fixp->fx_done = 1;
|
|
return 1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
switch (fixp->fx_r_type)
|
|
{
|
|
case BFD_RELOC_8:
|
|
if (fixp->fx_pcrel)
|
|
abort ();
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, value, 1);
|
|
break;
|
|
case BFD_RELOC_390_12:
|
|
case BFD_RELOC_390_GOT12:
|
|
if (fixp->fx_done)
|
|
{
|
|
unsigned short mop;
|
|
|
|
mop = bfd_getb16 ((unsigned char *) where);
|
|
mop |= (unsigned short) (value & 0xfff);
|
|
bfd_putb16 ((bfd_vma) mop, (unsigned char *) where);
|
|
}
|
|
break;
|
|
|
|
case BFD_RELOC_16:
|
|
case BFD_RELOC_GPREL16:
|
|
case BFD_RELOC_16_GOT_PCREL:
|
|
case BFD_RELOC_16_GOTOFF:
|
|
if (fixp->fx_pcrel)
|
|
as_bad_where (fixp->fx_file, fixp->fx_line,
|
|
"cannot emit PC relative %s relocation%s%s",
|
|
bfd_get_reloc_code_name (fixp->fx_r_type),
|
|
fixp->fx_addsy != NULL ? " against " : "",
|
|
(fixp->fx_addsy != NULL
|
|
? S_GET_NAME (fixp->fx_addsy)
|
|
: ""));
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, value, 2);
|
|
break;
|
|
case BFD_RELOC_390_GOT16:
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, value, 2);
|
|
break;
|
|
case BFD_RELOC_390_PC16DBL:
|
|
case BFD_RELOC_390_PLT16DBL:
|
|
value += 2;
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, (offsetT) value >> 1, 2);
|
|
break;
|
|
|
|
case BFD_RELOC_32:
|
|
if (fixp->fx_pcrel)
|
|
fixp->fx_r_type = BFD_RELOC_32_PCREL;
|
|
else
|
|
fixp->fx_r_type = BFD_RELOC_32;
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, value, 4);
|
|
break;
|
|
case BFD_RELOC_32_PCREL:
|
|
case BFD_RELOC_32_BASEREL:
|
|
fixp->fx_r_type = BFD_RELOC_32_PCREL;
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, value, 4);
|
|
break;
|
|
case BFD_RELOC_32_GOT_PCREL:
|
|
case BFD_RELOC_390_PLT32:
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, value, 4);
|
|
break;
|
|
case BFD_RELOC_390_PC32DBL:
|
|
case BFD_RELOC_390_PLT32DBL:
|
|
case BFD_RELOC_390_GOTPCDBL:
|
|
case BFD_RELOC_390_GOTENT:
|
|
value += 2;
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, (offsetT) value >> 1, 4);
|
|
break;
|
|
|
|
case BFD_RELOC_32_GOTOFF:
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, value, sizeof (int));
|
|
break;
|
|
|
|
case BFD_RELOC_390_GOT64:
|
|
case BFD_RELOC_390_PLT64:
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, value, 8);
|
|
break;
|
|
|
|
case BFD_RELOC_64:
|
|
if (fixp->fx_pcrel)
|
|
fixp->fx_r_type = BFD_RELOC_64_PCREL;
|
|
else
|
|
fixp->fx_r_type = BFD_RELOC_64;
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, value, 8);
|
|
break;
|
|
|
|
case BFD_RELOC_64_PCREL:
|
|
fixp->fx_r_type = BFD_RELOC_64_PCREL;
|
|
if (fixp->fx_done)
|
|
md_number_to_chars (where, value, 8);
|
|
break;
|
|
|
|
case BFD_RELOC_VTABLE_INHERIT:
|
|
case BFD_RELOC_VTABLE_ENTRY:
|
|
fixp->fx_done = 0;
|
|
return 1;
|
|
|
|
default:
|
|
{
|
|
const char *reloc_name = bfd_get_reloc_code_name (fixp->fx_r_type);
|
|
|
|
if (reloc_name != NULL)
|
|
fprintf (stderr, "Gas failure, reloc type %s\n", reloc_name);
|
|
else
|
|
fprintf (stderr, "Gas failure, reloc type #%i\n", fixp->fx_r_type);
|
|
fflush (stderr);
|
|
abort ();
|
|
}
|
|
}
|
|
|
|
fixp->fx_offset = value;
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
/* Generate a reloc for a fixup. */
|
|
|
|
arelent *
|
|
tc_gen_reloc (seg, fixp)
|
|
asection *seg ATTRIBUTE_UNUSED;
|
|
fixS *fixp;
|
|
{
|
|
bfd_reloc_code_real_type code;
|
|
arelent *reloc;
|
|
|
|
code = fixp->fx_r_type;
|
|
if (GOT_symbol && fixp->fx_addsy == GOT_symbol)
|
|
{
|
|
if ((s390_arch_size == 32 && code == BFD_RELOC_32_PCREL) ||
|
|
(s390_arch_size == 64 && code == BFD_RELOC_64_PCREL))
|
|
code = BFD_RELOC_390_GOTPC;
|
|
if (code == BFD_RELOC_390_PC32DBL)
|
|
code = BFD_RELOC_390_GOTPCDBL;
|
|
}
|
|
|
|
reloc = (arelent *) xmalloc (sizeof (arelent));
|
|
reloc->sym_ptr_ptr = (asymbol **) xmalloc (sizeof (asymbol *));
|
|
*reloc->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
|
|
reloc->address = fixp->fx_frag->fr_address + fixp->fx_where;
|
|
reloc->howto = bfd_reloc_type_lookup (stdoutput, code);
|
|
if (reloc->howto == NULL)
|
|
{
|
|
as_bad_where (fixp->fx_file, fixp->fx_line,
|
|
_("cannot represent relocation type %s"),
|
|
bfd_get_reloc_code_name (code));
|
|
/* Set howto to a garbage value so that we can keep going. */
|
|
reloc->howto = bfd_reloc_type_lookup (stdoutput, BFD_RELOC_32);
|
|
assert (reloc->howto != NULL);
|
|
}
|
|
reloc->addend = fixp->fx_offset;
|
|
|
|
return reloc;
|
|
}
|