* config/obj-elf.c (obj_elf_symver): Temporarily modify lex_type

[binutils.git] / gas / config / tc-s390.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;
}