guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

68/207: Revert "gnu: binutils-boot: Update to 2.25."


From: Jan Nieuwenhuizen
Subject: 68/207: Revert "gnu: binutils-boot: Update to 2.25."
Date: Sat, 8 Sep 2018 13:26:06 -0400 (EDT)

janneke pushed a commit to branch wip-bootstrap
in repository guix.

commit bea24e677396dc0eb67afeac60af5b51448fb955
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Sun Jun 10 11:26:43 2018 +0200

    Revert "gnu: binutils-boot: Update to 2.25."
    
    This reverts commit 166af99078b14d4821ce7d5d286ddeda7d23454b.
---
 gnu/local.mk                                  |    1 -
 gnu/packages/mes.scm                          |   13 +-
 gnu/packages/patches/binutils-boot-2.25.patch | 6521 -------------------------
 3 files changed, 3 insertions(+), 6532 deletions(-)

diff --git a/gnu/local.mk b/gnu/local.mk
index b43277b..a2e5385 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -594,7 +594,6 @@ dist_patch_DATA =                                           
\
   %D%/packages/patches/bazaar-CVE-2017-14176.patch             \
   %D%/packages/patches/beignet-correct-file-names.patch                \
   %D%/packages/patches/binutils-aarch64-symbol-relocation.patch        \
-  %D%/packages/patches/binutils-boot-2.25.patch                        \
   %D%/packages/patches/binutils-loongson-workaround.patch      \
   %D%/packages/patches/blast+-fix-makefile.patch               \
   %D%/packages/patches/boost-fix-icu-build.patch               \
diff --git a/gnu/packages/mes.scm b/gnu/packages/mes.scm
index 41fbcf8..8f0cc51 100644
--- a/gnu/packages/mes.scm
+++ b/gnu/packages/mes.scm
@@ -545,15 +545,14 @@ standard.")
   (package
     (inherit binutils)
     (name "binutils-boot")
-    (version "2.25")
+    (version "2.14")
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://gnu/binutils/binutils-"
                                   version ".tar.gz"))
-              (patches (search-patches "binutils-boot-2.25.patch"))
               (sha256
                (base32
-                "0b9gj330zjv5hby6kgf1nda5ca7pp3z1ips6dykm46mld1qkgkyc"))))
+                "1w8xp7k44bkijr974x9918i4p1sw4g2fcd5mxvspkjpg38m214ds"))))
     (supported-systems '("i686-linux"))
     (native-inputs `(("flex" ,flex) ; MORTAL SIN HERE
                      ("mes" ,mes-boot)
@@ -577,13 +576,11 @@ standard.")
                                        (assoc-ref %build-inputs "bash")
                                        "/bin/sh"))
                (setenv "CPPFLAGS" cppflags)
-               (setenv "RANLIB" "true")
                (setenv "AR" "tcc -ar")
                (setenv "CXX" "false")
+               (setenv "RANLIB" "true")
                (setenv "CC" (string-append "tcc -static" " " cppflags))
-               (setenv "CC_FOR_BUILD" (getenv "CC"))
                (setenv "CPP" (string-append "tcc -E" " " cppflags))
-               (setenv "CXXCPP" (string-append "tcc -E" " " cppflags))
                (and
                 (zero?
                  (system* "./configure"
@@ -591,10 +588,6 @@ standard.")
                             "--enable-static"
                             "--host=i386-unknown-linux"
                             "--target=i386-unknown-linux"
-                            "--disable-plugins"
-                            "--disable-gold"
-                            "--disable-x86-relax-relocations"
-                            "--enable-compressed-debug-sections=no"
                             (string-append "--prefix=" out))))))))))))
 
 (define-public gcc-boot
diff --git a/gnu/packages/patches/binutils-boot-2.25.patch 
b/gnu/packages/patches/binutils-boot-2.25.patch
deleted file mode 100644
index c300d1f..0000000
--- a/gnu/packages/patches/binutils-boot-2.25.patch
+++ /dev/null
@@ -1,6521 +0,0 @@
-diff -purN -x config.status -x config.h -x BOOT ../binutils-2.25/adiff 
binutils-2.25/adiff
---- ../binutils-2.25/adiff     1970-01-01 01:00:00.000000000 +0100
-+++ binutils-2.25/adiff        2018-06-10 09:56:32.636929092 +0200
-@@ -0,0 +1,6 @@
-+libiberty/md5.c does not compile with our (patched) tcc-0.9.26,
-+so we use md5.c from binutils-2.14
-+
-+tcc-0.9.27 is known to compile that file, this md5.c patch can be
-+removed after upgrading tcc.
-+
-diff -purN -x config.status -x config.h -x BOOT 
../binutils-2.25/binutils/dwarf.c binutils-2.25/binutils/dwarf.c
---- ../binutils-2.25/binutils/dwarf.c  2014-12-23 09:47:10.000000000 +0100
-+++ binutils-2.25/binutils/dwarf.c     2018-06-10 09:54:46.423186167 +0200
-@@ -29,6 +29,10 @@
- #include "dwarf.h"
- #include "gdb/gdb-index.h"
- 
-+#if MES_BOOTSTRAP
-+#include "getopt.h"
-+#endif
-+
- static const char *regname (unsigned int regno, int row);
- 
- static int have_frame_base;
-diff -purN -x config.status -x config.h -x BOOT 
../binutils-2.25/etc/config.log binutils-2.25/etc/config.log
---- ../binutils-2.25/etc/config.log    1970-01-01 01:00:00.000000000 +0100
-+++ binutils-2.25/etc/config.log       2018-06-10 09:55:59.328382489 +0200
-@@ -0,0 +1,144 @@
-+This file contains any messages produced by compilers while
-+running configure, to aid debugging if configure makes a mistake.
-+
-+It was created by configure, which was
-+generated by GNU Autoconf 2.64.  Invocation command line was
-+
-+  $ /home/janneke/src/boot/binutils-2.25/etc/configure 
--cache-file=./config.cache --with-gnu-as --with-gnu-ld --with-system-zlib 
--disable-shared --enable-static --enable-compressed-debug-sections=no 
--disable-gold --disable-plugins --disable-x86-relax-relocations 
--with-system-libz --prefix=/home/janneke/src/boot/binutils-2.25/usr 
--program-transform-name=s,y,y, --disable-option-checking 
--build=x86_64-unknown-linux-gnu --host=i386-unknown-linux 
--target=i386-unknown-linux --srcdir=.././etc
-+
-+## --------- ##
-+## Platform. ##
-+## --------- ##
-+
-+hostname = dundal
-+uname -m = x86_64
-+uname -r = 4.15.12-gnu
-+uname -s = Linux
-+uname -v = #1 SMP 1
-+
-+/usr/bin/uname -p = unknown
-+/bin/uname -X     = unknown
-+
-+/bin/arch              = unknown
-+/usr/bin/arch -k       = unknown
-+/usr/convex/getsysinfo = unknown
-+/usr/bin/hostinfo      = unknown
-+/bin/machine           = unknown
-+/usr/bin/oslevel       = unknown
-+/bin/universe          = unknown
-+
-+PATH: /gnu/store/gqicgnqmcaf3nfvv9ck9m5fp7n510j0x-flex-2.6.4/bin
-+PATH: /gnu/store/c2qsh7vpa79fyi3x17k9lvgb7155mwxg-profile/bin
-+PATH: /gnu/store/ph38q0lkad7nlq4r8ykz85pc0scd4mv8-profile/bin
-+PATH: /gnu/store/ph38q0lkad7nlq4r8ykz85pc0scd4mv8-profile/sbin
-+PATH: /gnu/store/j5ajwc0migi8662a0x0dp7ryqms4xmny-profile/bin
-+PATH: /gnu/store/j5ajwc0migi8662a0x0dp7ryqms4xmny-profile/sbin
-+PATH: /gnu/store/c2qsh7vpa79fyi3x17k9lvgb7155mwxg-profile/bin
-+PATH: /home/janneke/bin
-+PATH: /home/janneke/.guix-profile/bin
-+PATH: /home/janneke/.guix-profile/sbin
-+PATH: /run/setuid-programs
-+PATH: /run/current-system/profile/bin
-+PATH: /run/current-system/profile/sbin
-+
-+
-+## ----------- ##
-+## Core tests. ##
-+## ----------- ##
-+
-+configure:1572: creating cache ./config.cache
-+configure:1683: checking for a BSD-compatible install
-+configure:1751: result: 
/gnu/store/ph38q0lkad7nlq4r8ykz85pc0scd4mv8-profile/bin/install -c
-+configure:1850: updating cache ./config.cache
-+configure:1923: creating ./config.status
-+
-+## ---------------------- ##
-+## Running config.status. ##
-+## ---------------------- ##
-+
-+This file was extended by config.status, which was
-+generated by GNU Autoconf 2.64.  Invocation command line was
-+
-+  CONFIG_FILES    = 
-+  CONFIG_HEADERS  = 
-+  CONFIG_LINKS    = 
-+  CONFIG_COMMANDS = 
-+  $ ./config.status 
-+
-+on dundal
-+
-+config.status:715: creating Makefile
-+
-+## ---------------- ##
-+## Cache variables. ##
-+## ---------------- ##
-+
-+ac_cv_env_build_alias_set=set
-+ac_cv_env_build_alias_value=x86_64-unknown-linux-gnu
-+ac_cv_env_host_alias_set=set
-+ac_cv_env_host_alias_value=i386-unknown-linux
-+ac_cv_env_target_alias_set=set
-+ac_cv_env_target_alias_value=i386-unknown-linux
-+
-+## ----------------- ##
-+## Output variables. ##
-+## ----------------- ##
-+
-+DEFS='-DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" 
-DPACKAGE_STRING=\"\" -DPACKAGE_BUGREPORT=\"\" -DPACKAGE_URL=\"\"'
-+ECHO_C=''
-+ECHO_N='-n'
-+ECHO_T=''
-+INSTALL_DATA='/gnu/store/ph38q0lkad7nlq4r8ykz85pc0scd4mv8-profile/bin/install 
-c -m 644'
-+INSTALL_PROGRAM='/gnu/store/ph38q0lkad7nlq4r8ykz85pc0scd4mv8-profile/bin/install
 -c'
-+INSTALL_SCRIPT='/gnu/store/ph38q0lkad7nlq4r8ykz85pc0scd4mv8-profile/bin/install
 -c'
-+LIBOBJS=''
-+LIBS=''
-+LTLIBOBJS=''
-+MAINT='#'
-+PACKAGE_BUGREPORT=''
-+PACKAGE_NAME=''
-+PACKAGE_STRING=''
-+PACKAGE_TARNAME=''
-+PACKAGE_URL=''
-+PACKAGE_VERSION=''
-+PATH_SEPARATOR=':'
-+SHELL='/bin/sh'
-+bindir='${exec_prefix}/bin'
-+build_alias='x86_64-unknown-linux-gnu'
-+datadir='${datarootdir}'
-+datarootdir='${prefix}/share'
-+docdir='${datarootdir}/doc/${PACKAGE}'
-+dvidir='${docdir}'
-+exec_prefix='${prefix}'
-+host_alias='i386-unknown-linux'
-+htmldir='${docdir}'
-+includedir='${prefix}/include'
-+infodir='${datarootdir}/info'
-+libdir='${exec_prefix}/lib'
-+libexecdir='${exec_prefix}/libexec'
-+localedir='${datarootdir}/locale'
-+localstatedir='${prefix}/var'
-+mandir='${datarootdir}/man'
-+oldincludedir='/usr/include'
-+pdfdir='${docdir}'
-+prefix='/home/janneke/src/boot/binutils-2.25/usr'
-+program_transform_name='s,y,y,'
-+psdir='${docdir}'
-+sbindir='${exec_prefix}/sbin'
-+sharedstatedir='${prefix}/com'
-+sysconfdir='${prefix}/etc'
-+target_alias='i386-unknown-linux'
-+
-+## ----------- ##
-+## confdefs.h. ##
-+## ----------- ##
-+
-+/* confdefs.h */
-+#define PACKAGE_NAME ""
-+#define PACKAGE_TARNAME ""
-+#define PACKAGE_VERSION ""
-+#define PACKAGE_STRING ""
-+#define PACKAGE_BUGREPORT ""
-+#define PACKAGE_URL ""
-+
-+configure: exit 0
-diff -purN -x config.status -x config.h -x BOOT ../binutils-2.25/gas/read.c 
binutils-2.25/gas/read.c
---- ../binutils-2.25/gas/read.c        2014-10-14 09:32:03.000000000 +0200
-+++ binutils-2.25/gas/read.c   2018-06-10 09:51:26.391904306 +0200
-@@ -38,7 +38,9 @@
- #include "obstack.h"
- #include "ecoff.h"
- #include "dw2gencfi.h"
-+#if !MES_BOOTSTRAP
- #include "wchar.h"
-+#endif
- 
- #ifndef TC_START_LABEL
- #define TC_START_LABEL(x,y,z) (x == ':')
-diff -purN -x config.status -x config.h -x BOOT 
../binutils-2.25/gas/read.c.orig binutils-2.25/gas/read.c.orig
---- ../binutils-2.25/gas/read.c.orig   1970-01-01 01:00:00.000000000 +0100
-+++ binutils-2.25/gas/read.c.orig      2014-10-14 09:32:03.000000000 +0200
-@@ -0,0 +1,6150 @@
-+/* read.c - read a source file -
-+   Copyright (C) 1986-2014 Free Software Foundation, Inc.
-+
-+   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 3, 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, 51 Franklin Street - Fifth Floor, Boston, MA
-+   02110-1301, USA.  */
-+
-+/* If your chars aren't 8 bits, you will change this a bit (eg. to 0xFF).
-+   But then, GNU isn't spozed to run on your machine anyway.
-+   (RMS is so shortsighted sometimes.)  */
-+#define MASK_CHAR ((int)(unsigned char) -1)
-+
-+/* This is the largest known floating point format (for now). It will
-+   grow when we do 4361 style flonums.  */
-+#define MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT (16)
-+
-+/* Routines that read assembler source text to build spaghetti in memory.
-+   Another group of these functions is in the expr.c module.  */
-+
-+#include "as.h"
-+#include "safe-ctype.h"
-+#include "subsegs.h"
-+#include "sb.h"
-+#include "macro.h"
-+#include "obstack.h"
-+#include "ecoff.h"
-+#include "dw2gencfi.h"
-+#include "wchar.h"
-+
-+#ifndef TC_START_LABEL
-+#define TC_START_LABEL(x,y,z) (x == ':')
-+#endif
-+
-+/* Set by the object-format or the target.  */
-+#ifndef TC_IMPLICIT_LCOMM_ALIGNMENT
-+#define TC_IMPLICIT_LCOMM_ALIGNMENT(SIZE, P2VAR)              \
-+  do                                                          \
-+    {                                                         \
-+      if ((SIZE) >= 8)                                                \
-+      (P2VAR) = 3;                                            \
-+      else if ((SIZE) >= 4)                                   \
-+      (P2VAR) = 2;                                            \
-+      else if ((SIZE) >= 2)                                   \
-+      (P2VAR) = 1;                                            \
-+      else                                                    \
-+      (P2VAR) = 0;                                            \
-+    }                                                         \
-+  while (0)
-+#endif
-+
-+char *input_line_pointer;     /*->next char of source file to parse.  */
-+
-+#if BITS_PER_CHAR != 8
-+/*  The following table is indexed by[(char)] and will break if
-+    a char does not have exactly 256 states (hopefully 0:255!)!  */
-+die horribly;
-+#endif
-+
-+#ifndef LEX_AT
-+#define LEX_AT 0
-+#endif
-+
-+#ifndef LEX_BR
-+/* The RS/6000 assembler uses {,},[,] as parts of symbol names.  */
-+#define LEX_BR 0
-+#endif
-+
-+#ifndef LEX_PCT
-+/* The Delta 68k assembler permits % inside label names.  */
-+#define LEX_PCT 0
-+#endif
-+
-+#ifndef LEX_QM
-+/* The PowerPC Windows NT assemblers permits ? inside label names.  */
-+#define LEX_QM 0
-+#endif
-+
-+#ifndef LEX_HASH
-+/* The IA-64 assembler uses # as a suffix designating a symbol.  We include
-+   it in the symbol and strip it out in tc_canonicalize_symbol_name.  */
-+#define LEX_HASH 0
-+#endif
-+
-+#ifndef LEX_DOLLAR
-+#define LEX_DOLLAR 3
-+#endif
-+
-+#ifndef LEX_TILDE
-+/* The Delta 68k assembler permits ~ at start of label names.  */
-+#define LEX_TILDE 0
-+#endif
-+
-+/* Used by is_... macros. our ctype[].  */
-+char lex_type[256] = {
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* @ABCDEFGHIJKLMNO */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* PQRSTUVWXYZ[\]^_ */
-+  0, 0, 0, LEX_HASH, LEX_DOLLAR, LEX_PCT, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, /* 
_!"#$%&'()*+,-./ */
-+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, LEX_QM,        /* 
0123456789:;<=>? */
-+  LEX_AT, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,        /* 
@ABCDEFGHIJKLMNO */
-+  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, LEX_BR, 0, LEX_BR, 0, 3, /* 
PQRSTUVWXYZ[\]^_ */
-+  0, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,     /* `abcdefghijklmno */
-+  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, LEX_BR, 0, LEX_BR, LEX_TILDE, 0, /* 
pqrstuvwxyz{|}~.  */
-+  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
-+  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
-+  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
-+  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
-+  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
-+  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
-+  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
-+  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3
-+};
-+
-+/* In: a character.
-+   Out: 1 if this character ends a line.
-+      2 if this character is a line separator.  */
-+char is_end_of_line[256] = {
-+#ifdef CR_EOL
-+  1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0,     /* @abcdefghijklmno */
-+#else
-+  1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0,     /* @abcdefghijklmno */
-+#endif
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* _!"#$%&'()*+,-./ */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* 0123456789:;<=>? */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,     /* */
-+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0      /* */
-+};
-+
-+#ifndef TC_CASE_SENSITIVE
-+char original_case_string[128];
-+#endif
-+
-+/* Functions private to this file.  */
-+
-+static char *buffer;  /* 1st char of each buffer of lines is here.  */
-+static char *buffer_limit;    /*->1 + last char in buffer.  */
-+
-+/* TARGET_BYTES_BIG_ENDIAN is required to be defined to either 0 or 1
-+   in the tc-<CPU>.h file.  See the "Porting GAS" section of the
-+   internals manual.  */
-+int target_big_endian = TARGET_BYTES_BIG_ENDIAN;
-+
-+/* Variables for handling include file directory table.  */
-+
-+/* Table of pointers to directories to search for .include's.  */
-+char **include_dirs;
-+
-+/* How many are in the table.  */
-+int include_dir_count;
-+
-+/* Length of longest in table.  */
-+int include_dir_maxlen = 1;
-+
-+#ifndef WORKING_DOT_WORD
-+struct broken_word *broken_words;
-+int new_broken_words;
-+#endif
-+
-+/* The current offset into the absolute section.  We don't try to
-+   build frags in the absolute section, since no data can be stored
-+   there.  We just keep track of the current offset.  */
-+addressT abs_section_offset;
-+
-+/* If this line had an MRI style label, it is stored in this variable.
-+   This is used by some of the MRI pseudo-ops.  */
-+symbolS *line_label;
-+
-+/* This global variable is used to support MRI common sections.  We
-+   translate such sections into a common symbol.  This variable is
-+   non-NULL when we are in an MRI common section.  */
-+symbolS *mri_common_symbol;
-+
-+/* In MRI mode, after a dc.b pseudo-op with an odd number of bytes, we
-+   need to align to an even byte boundary unless the next pseudo-op is
-+   dc.b, ds.b, or dcb.b.  This variable is set to 1 if an alignment
-+   may be needed.  */
-+static int mri_pending_align;
-+
-+#ifndef NO_LISTING
-+#ifdef OBJ_ELF
-+/* This variable is set to be non-zero if the next string we see might
-+   be the name of the source file in DWARF debugging information.  See
-+   the comment in emit_expr for the format we look for.  */
-+static int dwarf_file_string;
-+#endif
-+#endif
-+
-+/* If the target defines the md_frag_max_var hook then we know
-+   enough to implement the .bundle_align_mode features.  */
-+#ifdef md_frag_max_var
-+# define HANDLE_BUNDLE
-+#endif
-+
-+#ifdef HANDLE_BUNDLE
-+/* .bundle_align_mode sets this.  Normally it's zero.  When nonzero,
-+   it's the exponent of the bundle size, and aligned instruction bundle
-+   mode is in effect.  */
-+static unsigned int bundle_align_p2;
-+
-+/* These are set by .bundle_lock and .bundle_unlock.  .bundle_lock sets
-+   bundle_lock_frag to frag_now and then starts a new frag with
-+   frag_align_code.  At the same time, bundle_lock_frain gets frchain_now,
-+   so that .bundle_unlock can verify that we didn't change segments.
-+   .bundle_unlock resets both to NULL.  If we detect a bundling violation,
-+   then we reset bundle_lock_frchain to NULL as an indicator that we've
-+   already diagnosed the error with as_bad and don't need a cascade of
-+   redundant errors, but bundle_lock_frag remains set to indicate that
-+   we are expecting to see .bundle_unlock.  */
-+static fragS *bundle_lock_frag;
-+static frchainS *bundle_lock_frchain;
-+
-+/* This is incremented by .bundle_lock and decremented by .bundle_unlock,
-+   to allow nesting.  */
-+static unsigned int bundle_lock_depth;
-+#endif
-+
-+static void do_s_func (int end_p, const char *default_prefix);
-+static void do_align (int, char *, int, int);
-+static void s_align (int, int);
-+static void s_altmacro (int);
-+static void s_bad_end (int);
-+static void s_reloc (int);
-+static int hex_float (int, char *);
-+static segT get_known_segmented_expression (expressionS * expP);
-+static void pobegin (void);
-+static size_t get_non_macro_line_sb (sb *);
-+static void generate_file_debug (void);
-+static char *_find_end_of_line (char *, int, int, int);
-+
-+void
-+read_begin (void)
-+{
-+  const char *p;
-+
-+  pobegin ();
-+  obj_read_begin_hook ();
-+
-+  /* Something close -- but not too close -- to a multiple of 1024.
-+     The debugging malloc I'm using has 24 bytes of overhead.  */
-+  obstack_begin (&notes, chunksize);
-+  obstack_begin (&cond_obstack, chunksize);
-+
-+#ifndef tc_line_separator_chars
-+#define tc_line_separator_chars line_separator_chars
-+#endif
-+  /* Use machine dependent syntax.  */
-+  for (p = tc_line_separator_chars; *p; p++)
-+    is_end_of_line[(unsigned char) *p] = 2;
-+  /* Use more.  FIXME-SOMEDAY.  */
-+
-+  if (flag_mri)
-+    lex_type['?'] = 3;
-+}
-+
-+#ifndef TC_ADDRESS_BYTES
-+#define TC_ADDRESS_BYTES address_bytes
-+
-+static inline int
-+address_bytes (void)
-+{
-+  /* Choose smallest of 1, 2, 4, 8 bytes that is large enough to
-+     contain an address.  */
-+  int n = (stdoutput->arch_info->bits_per_address - 1) / 8;
-+  n |= n >> 1;
-+  n |= n >> 2;
-+  n += 1;
-+  return n;
-+}
-+#endif
-+
-+/* Set up pseudo-op tables.  */
-+
-+static struct hash_control *po_hash;
-+
-+static const pseudo_typeS potable[] = {
-+  {"abort", s_abort, 0},
-+  {"align", s_align_ptwo, 0},
-+  {"altmacro", s_altmacro, 1},
-+  {"ascii", stringer, 8+0},
-+  {"asciz", stringer, 8+1},
-+  {"balign", s_align_bytes, 0},
-+  {"balignw", s_align_bytes, -2},
-+  {"balignl", s_align_bytes, -4},
-+/* block  */
-+#ifdef HANDLE_BUNDLE
-+  {"bundle_align_mode", s_bundle_align_mode, 0},
-+  {"bundle_lock", s_bundle_lock, 0},
-+  {"bundle_unlock", s_bundle_unlock, 0},
-+#endif
-+  {"byte", cons, 1},
-+  {"comm", s_comm, 0},
-+  {"common", s_mri_common, 0},
-+  {"common.s", s_mri_common, 1},
-+  {"data", s_data, 0},
-+  {"dc", cons, 2},
-+#ifdef TC_ADDRESS_BYTES
-+  {"dc.a", cons, 0},
-+#endif
-+  {"dc.b", cons, 1},
-+  {"dc.d", float_cons, 'd'},
-+  {"dc.l", cons, 4},
-+  {"dc.s", float_cons, 'f'},
-+  {"dc.w", cons, 2},
-+  {"dc.x", float_cons, 'x'},
-+  {"dcb", s_space, 2},
-+  {"dcb.b", s_space, 1},
-+  {"dcb.d", s_float_space, 'd'},
-+  {"dcb.l", s_space, 4},
-+  {"dcb.s", s_float_space, 'f'},
-+  {"dcb.w", s_space, 2},
-+  {"dcb.x", s_float_space, 'x'},
-+  {"ds", s_space, 2},
-+  {"ds.b", s_space, 1},
-+  {"ds.d", s_space, 8},
-+  {"ds.l", s_space, 4},
-+  {"ds.p", s_space, 12},
-+  {"ds.s", s_space, 4},
-+  {"ds.w", s_space, 2},
-+  {"ds.x", s_space, 12},
-+  {"debug", s_ignore, 0},
-+#ifdef S_SET_DESC
-+  {"desc", s_desc, 0},
-+#endif
-+/* dim  */
-+  {"double", float_cons, 'd'},
-+/* dsect  */
-+  {"eject", listing_eject, 0},        /* Formfeed listing.  */
-+  {"else", s_else, 0},
-+  {"elsec", s_else, 0},
-+  {"elseif", s_elseif, (int) O_ne},
-+  {"end", s_end, 0},
-+  {"endc", s_endif, 0},
-+  {"endfunc", s_func, 1},
-+  {"endif", s_endif, 0},
-+  {"endm", s_bad_end, 0},
-+  {"endr", s_bad_end, 1},
-+/* endef  */
-+  {"equ", s_set, 0},
-+  {"equiv", s_set, 1},
-+  {"eqv", s_set, -1},
-+  {"err", s_err, 0},
-+  {"error", s_errwarn, 1},
-+  {"exitm", s_mexit, 0},
-+/* extend  */
-+  {"extern", s_ignore, 0},    /* We treat all undef as ext.  */
-+  {"appfile", s_app_file, 1},
-+  {"appline", s_app_line, 1},
-+  {"fail", s_fail, 0},
-+  {"file", s_app_file, 0},
-+  {"fill", s_fill, 0},
-+  {"float", float_cons, 'f'},
-+  {"format", s_ignore, 0},
-+  {"func", s_func, 0},
-+  {"global", s_globl, 0},
-+  {"globl", s_globl, 0},
-+  {"hword", cons, 2},
-+  {"if", s_if, (int) O_ne},
-+  {"ifb", s_ifb, 1},
-+  {"ifc", s_ifc, 0},
-+  {"ifdef", s_ifdef, 0},
-+  {"ifeq", s_if, (int) O_eq},
-+  {"ifeqs", s_ifeqs, 0},
-+  {"ifge", s_if, (int) O_ge},
-+  {"ifgt", s_if, (int) O_gt},
-+  {"ifle", s_if, (int) O_le},
-+  {"iflt", s_if, (int) O_lt},
-+  {"ifnb", s_ifb, 0},
-+  {"ifnc", s_ifc, 1},
-+  {"ifndef", s_ifdef, 1},
-+  {"ifne", s_if, (int) O_ne},
-+  {"ifnes", s_ifeqs, 1},
-+  {"ifnotdef", s_ifdef, 1},
-+  {"incbin", s_incbin, 0},
-+  {"include", s_include, 0},
-+  {"int", cons, 4},
-+  {"irp", s_irp, 0},
-+  {"irep", s_irp, 0},
-+  {"irpc", s_irp, 1},
-+  {"irepc", s_irp, 1},
-+  {"lcomm", s_lcomm, 0},
-+  {"lflags", s_ignore, 0},    /* Listing flags.  */
-+  {"linefile", s_app_line, 0},
-+  {"linkonce", s_linkonce, 0},
-+  {"list", listing_list, 1},  /* Turn listing on.  */
-+  {"llen", listing_psize, 1},
-+  {"long", cons, 4},
-+  {"lsym", s_lsym, 0},
-+  {"macro", s_macro, 0},
-+  {"mexit", s_mexit, 0},
-+  {"mri", s_mri, 0},
-+  {".mri", s_mri, 0}, /* Special case so .mri works in MRI mode.  */
-+  {"name", s_ignore, 0},
-+  {"noaltmacro", s_altmacro, 0},
-+  {"noformat", s_ignore, 0},
-+  {"nolist", listing_list, 0},        /* Turn listing off.  */
-+  {"nopage", listing_nopage, 0},
-+  {"octa", cons, 16},
-+  {"offset", s_struct, 0},
-+  {"org", s_org, 0},
-+  {"p2align", s_align_ptwo, 0},
-+  {"p2alignw", s_align_ptwo, -2},
-+  {"p2alignl", s_align_ptwo, -4},
-+  {"page", listing_eject, 0},
-+  {"plen", listing_psize, 0},
-+  {"print", s_print, 0},
-+  {"psize", listing_psize, 0},        /* Set paper size.  */
-+  {"purgem", s_purgem, 0},
-+  {"quad", cons, 8},
-+  {"reloc", s_reloc, 0},
-+  {"rep", s_rept, 0},
-+  {"rept", s_rept, 0},
-+  {"rva", s_rva, 4},
-+  {"sbttl", listing_title, 1},        /* Subtitle of listing.  */
-+/* scl  */
-+/* sect  */
-+  {"set", s_set, 0},
-+  {"short", cons, 2},
-+  {"single", float_cons, 'f'},
-+/* size  */
-+  {"space", s_space, 0},
-+  {"skip", s_space, 0},
-+  {"sleb128", s_leb128, 1},
-+  {"spc", s_ignore, 0},
-+  {"stabd", s_stab, 'd'},
-+  {"stabn", s_stab, 'n'},
-+  {"stabs", s_stab, 's'},
-+  {"string", stringer, 8+1},
-+  {"string8", stringer, 8+1},
-+  {"string16", stringer, 16+1},
-+  {"string32", stringer, 32+1},
-+  {"string64", stringer, 64+1},
-+  {"struct", s_struct, 0},
-+/* tag  */
-+  {"text", s_text, 0},
-+
-+  /* This is for gcc to use.  It's only just been added (2/94), so gcc
-+     won't be able to use it for a while -- probably a year or more.
-+     But once this has been released, check with gcc maintainers
-+     before deleting it or even changing the spelling.  */
-+  {"this_GCC_requires_the_GNU_assembler", s_ignore, 0},
-+  /* If we're folding case -- done for some targets, not necessarily
-+     all -- the above string in an input file will be converted to
-+     this one.  Match it either way...  */
-+  {"this_gcc_requires_the_gnu_assembler", s_ignore, 0},
-+
-+  {"title", listing_title, 0},        /* Listing title.  */
-+  {"ttl", listing_title, 0},
-+/* type  */
-+  {"uleb128", s_leb128, 0},
-+/* use  */
-+/* val  */
-+  {"xcom", s_comm, 0},
-+  {"xdef", s_globl, 0},
-+  {"xref", s_ignore, 0},
-+  {"xstabs", s_xstab, 's'},
-+  {"warning", s_errwarn, 0},
-+  {"weakref", s_weakref, 0},
-+  {"word", cons, 2},
-+  {"zero", s_space, 0},
-+  {NULL, NULL, 0}                     /* End sentinel.  */
-+};
-+
-+static offsetT
-+get_absolute_expr (expressionS *exp)
-+{
-+  expression_and_evaluate (exp);
-+  if (exp->X_op != O_constant)
-+    {
-+      if (exp->X_op != O_absent)
-+      as_bad (_("bad or irreducible absolute expression"));
-+      exp->X_add_number = 0;
-+    }
-+  return exp->X_add_number;
-+}
-+
-+offsetT
-+get_absolute_expression (void)
-+{
-+  expressionS exp;
-+
-+  return get_absolute_expr (&exp);
-+}
-+
-+static int pop_override_ok = 0;
-+static const char *pop_table_name;
-+
-+void
-+pop_insert (const pseudo_typeS *table)
-+{
-+  const char *errtxt;
-+  const pseudo_typeS *pop;
-+  for (pop = table; pop->poc_name; pop++)
-+    {
-+      errtxt = hash_insert (po_hash, pop->poc_name, (char *) pop);
-+      if (errtxt && (!pop_override_ok || strcmp (errtxt, "exists")))
-+      as_fatal (_("error constructing %s pseudo-op table: %s"), 
pop_table_name,
-+                errtxt);
-+    }
-+}
-+
-+#ifndef md_pop_insert
-+#define md_pop_insert()               pop_insert(md_pseudo_table)
-+#endif
-+
-+#ifndef obj_pop_insert
-+#define obj_pop_insert()      pop_insert(obj_pseudo_table)
-+#endif
-+
-+#ifndef cfi_pop_insert
-+#define cfi_pop_insert()      pop_insert(cfi_pseudo_table)
-+#endif
-+
-+static void
-+pobegin (void)
-+{
-+  po_hash = hash_new ();
-+
-+  /* Do the target-specific pseudo ops.  */
-+  pop_table_name = "md";
-+  md_pop_insert ();
-+
-+  /* Now object specific.  Skip any that were in the target table.  */
-+  pop_table_name = "obj";
-+  pop_override_ok = 1;
-+  obj_pop_insert ();
-+
-+  /* Now portable ones.  Skip any that we've seen already.  */
-+  pop_table_name = "standard";
-+  pop_insert (potable);
-+
-+  /* Now CFI ones.  */
-+  pop_table_name = "cfi";
-+  pop_override_ok = 1;
-+  cfi_pop_insert ();
-+}
-+
-+#define HANDLE_CONDITIONAL_ASSEMBLY()                                 \
-+  if (ignore_input ())                                                        
\
-+    {                                                                 \
-+      char *eol = find_end_of_line (input_line_pointer, flag_m68k_mri); \
-+      input_line_pointer = (input_line_pointer <= buffer_limit                
\
-+                          && eol >= buffer_limit)                     \
-+                         ? buffer_limit                               \
-+                         : eol + 1;                                   \
-+      continue;                                                               
\
-+    }
-+
-+/* This function is used when scrubbing the characters between #APP
-+   and #NO_APP.  */
-+
-+static char *scrub_string;
-+static char *scrub_string_end;
-+
-+static size_t
-+scrub_from_string (char *buf, size_t buflen)
-+{
-+  size_t copy;
-+
-+  copy = scrub_string_end - scrub_string;
-+  if (copy > buflen)
-+    copy = buflen;
-+  memcpy (buf, scrub_string, copy);
-+  scrub_string += copy;
-+  return copy;
-+}
-+
-+/* Helper function of read_a_source_file, which tries to expand a macro.  */
-+static int
-+try_macro (char term, const char *line)
-+{
-+  sb out;
-+  const char *err;
-+  macro_entry *macro;
-+
-+  if (check_macro (line, &out, &err, &macro))
-+    {
-+      if (err != NULL)
-+      as_bad ("%s", err);
-+      *input_line_pointer++ = term;
-+      input_scrub_include_sb (&out,
-+                            input_line_pointer, 1);
-+      sb_kill (&out);
-+      buffer_limit =
-+      input_scrub_next_buffer (&input_line_pointer);
-+#ifdef md_macro_info
-+      md_macro_info (macro);
-+#endif
-+      return 1;
-+    }
-+  return 0;
-+}
-+
-+#ifdef HANDLE_BUNDLE
-+/* Start a new instruction bundle.  Returns the rs_align_code frag that
-+   will be used to align the new bundle.  */
-+static fragS *
-+start_bundle (void)
-+{
-+  fragS *frag = frag_now;
-+
-+  frag_align_code (0, 0);
-+
-+  while (frag->fr_type != rs_align_code)
-+    frag = frag->fr_next;
-+
-+  gas_assert (frag != frag_now);
-+
-+  return frag;
-+}
-+
-+/* Calculate the maximum size after relaxation of the region starting
-+   at the given frag and extending through frag_now (which is unfinished).  */
-+static unsigned int
-+pending_bundle_size (fragS *frag)
-+{
-+  unsigned int offset = frag->fr_fix;
-+  unsigned int size = 0;
-+
-+  gas_assert (frag != frag_now);
-+  gas_assert (frag->fr_type == rs_align_code);
-+
-+  while (frag != frag_now)
-+    {
-+      /* This should only happen in what will later become an error case.  */
-+      if (frag == NULL)
-+      return 0;
-+
-+      size += frag->fr_fix;
-+      if (frag->fr_type == rs_machine_dependent)
-+      size += md_frag_max_var (frag);
-+
-+      frag = frag->fr_next;
-+    }
-+
-+  gas_assert (frag == frag_now);
-+  size += frag_now_fix ();
-+  if (frag->fr_type == rs_machine_dependent)
-+    size += md_frag_max_var (frag);
-+
-+  gas_assert (size >= offset);
-+
-+  return size - offset;
-+}
-+
-+/* Finish off the frag created to ensure bundle alignment.  */
-+static void
-+finish_bundle (fragS *frag, unsigned int size)
-+{
-+  gas_assert (bundle_align_p2 > 0);
-+  gas_assert (frag->fr_type == rs_align_code);
-+
-+  if (size > 1)
-+    {
-+      /* If there is more than a single byte, then we need to set up the
-+       alignment frag.  Otherwise we leave it at its initial state from
-+       calling frag_align_code (0, 0), so that it does nothing.  */
-+      frag->fr_offset = bundle_align_p2;
-+      frag->fr_subtype = size - 1;
-+    }
-+
-+  /* We do this every time rather than just in s_bundle_align_mode
-+     so that we catch any affected section without needing hooks all
-+     over for all paths that do section changes.  It's cheap enough.  */
-+  record_alignment (now_seg, bundle_align_p2 - OCTETS_PER_BYTE_POWER);
-+}
-+
-+/* Assemble one instruction.  This takes care of the bundle features
-+   around calling md_assemble.  */
-+static void
-+assemble_one (char *line)
-+{
-+  fragS *insn_start_frag = NULL;
-+
-+  if (bundle_lock_frchain != NULL && bundle_lock_frchain != frchain_now)
-+    {
-+      as_bad (_("cannot change section or subsection inside .bundle_lock"));
-+      /* Clearing this serves as a marker that we have already complained.  */
-+      bundle_lock_frchain = NULL;
-+    }
-+
-+  if (bundle_lock_frchain == NULL && bundle_align_p2 > 0)
-+    insn_start_frag = start_bundle ();
-+
-+  md_assemble (line);
-+
-+  if (bundle_lock_frchain != NULL)
-+    {
-+      /* Make sure this hasn't pushed the locked sequence
-+       past the bundle size.  */
-+      unsigned int bundle_size = pending_bundle_size (bundle_lock_frag);
-+      if (bundle_size > (1U << bundle_align_p2))
-+      as_bad (_("\
-+.bundle_lock sequence at %u bytes but .bundle_align_mode limit is %u bytes"),
-+              bundle_size, 1U << bundle_align_p2);
-+    }
-+  else if (bundle_align_p2 > 0)
-+    {
-+      unsigned int insn_size = pending_bundle_size (insn_start_frag);
-+
-+      if (insn_size > (1U << bundle_align_p2))
-+      as_bad (_("\
-+single instruction is %u bytes long but .bundle_align_mode limit is %u"),
-+              (unsigned int) insn_size, 1U << bundle_align_p2);
-+
-+      finish_bundle (insn_start_frag, insn_size);
-+    }
-+}
-+
-+#else  /* !HANDLE_BUNDLE */
-+
-+# define assemble_one(line) md_assemble(line)
-+
-+#endif  /* HANDLE_BUNDLE */
-+
-+/* We read the file, putting things into a web that represents what we
-+   have been reading.  */
-+void
-+read_a_source_file (char *name)
-+{
-+  char c;
-+  char *s;            /* String of symbol, '\0' appended.  */
-+  int temp;
-+  pseudo_typeS *pop;
-+
-+#ifdef WARN_COMMENTS
-+  found_comment = 0;
-+#endif
-+
-+  buffer = input_scrub_new_file (name);
-+
-+  listing_file (name);
-+  listing_newline (NULL);
-+  register_dependency (name);
-+
-+  /* Generate debugging information before we've read anything in to denote
-+     this file as the "main" source file and not a subordinate one
-+     (e.g. N_SO vs N_SOL in stabs).  */
-+  generate_file_debug ();
-+
-+  while ((buffer_limit = input_scrub_next_buffer (&input_line_pointer)) != 0)
-+    {                         /* We have another line to parse.  */
-+#ifndef NO_LISTING
-+      /* In order to avoid listing macro expansion lines with labels
-+       multiple times, keep track of which line was last issued.  */
-+      static char *last_eol;
-+
-+      last_eol = NULL;
-+#endif
-+      while (input_line_pointer < buffer_limit)
-+      {
-+        bfd_boolean was_new_line;
-+        /* We have more of this buffer to parse.  */
-+
-+        /* We now have input_line_pointer->1st char of next line.
-+           If input_line_pointer [-1] == '\n' then we just
-+           scanned another line: so bump line counters.  */
-+        was_new_line = is_end_of_line[(unsigned char) input_line_pointer[-1]];
-+        if (was_new_line)
-+          {
-+            symbol_set_value_now (&dot_symbol);
-+#ifdef md_start_line_hook
-+            md_start_line_hook ();
-+#endif
-+            if (input_line_pointer[-1] == '\n')
-+              bump_line_counters ();
-+          }
-+
-+#ifndef NO_LISTING
-+        /* If listing is on, and we are expanding a macro, then give
-+           the listing code the contents of the expanded line.  */
-+        if (listing)
-+          {
-+            if ((listing & LISTING_MACEXP) && macro_nest > 0)
-+              {
-+                /* Find the end of the current expanded macro line.  */
-+                s = find_end_of_line (input_line_pointer, flag_m68k_mri);
-+
-+                if (s != last_eol)
-+                  {
-+                    char *copy;
-+                    int len;
-+
-+                    last_eol = s;
-+                    /* Copy it for safe keeping.  Also give an indication of
-+                       how much macro nesting is involved at this point.  */
-+                    len = s - input_line_pointer;
-+                    copy = (char *) xmalloc (len + macro_nest + 2);
-+                    memset (copy, '>', macro_nest);
-+                    copy[macro_nest] = ' ';
-+                    memcpy (copy + macro_nest + 1, input_line_pointer, len);
-+                    copy[macro_nest + 1 + len] = '\0';
-+
-+                    /* Install the line with the listing facility.  */
-+                    listing_newline (copy);
-+                  }
-+              }
-+            else
-+              listing_newline (NULL);
-+          }
-+#endif
-+        if (was_new_line)
-+          {
-+            line_label = NULL;
-+
-+            if (LABELS_WITHOUT_COLONS || flag_m68k_mri)
-+              {
-+                /* Text at the start of a line must be a label, we
-+                   run down and stick a colon in.  */
-+                if (is_name_beginner (*input_line_pointer))
-+                  {
-+                    char *line_start = input_line_pointer;
-+                    int mri_line_macro;
-+
-+                    HANDLE_CONDITIONAL_ASSEMBLY ();
-+
-+                    c = get_symbol_end ();
-+
-+                    /* In MRI mode, the EQU and MACRO pseudoops must
-+                       be handled specially.  */
-+                    mri_line_macro = 0;
-+                    if (flag_m68k_mri)
-+                      {
-+                        char *rest = input_line_pointer + 1;
-+
-+                        if (*rest == ':')
-+                          ++rest;
-+                        if (*rest == ' ' || *rest == '\t')
-+                          ++rest;
-+                        if ((strncasecmp (rest, "EQU", 3) == 0
-+                             || strncasecmp (rest, "SET", 3) == 0)
-+                            && (rest[3] == ' ' || rest[3] == '\t'))
-+                          {
-+                            input_line_pointer = rest + 3;
-+                            equals (line_start,
-+                                    strncasecmp (rest, "SET", 3) == 0);
-+                            continue;
-+                          }
-+                        if (strncasecmp (rest, "MACRO", 5) == 0
-+                            && (rest[5] == ' '
-+                                || rest[5] == '\t'
-+                                || is_end_of_line[(unsigned char) rest[5]]))
-+                          mri_line_macro = 1;
-+                      }
-+
-+                    /* In MRI mode, we need to handle the MACRO
-+                       pseudo-op specially: we don't want to put the
-+                       symbol in the symbol table.  */
-+                    if (!mri_line_macro
-+#ifdef TC_START_LABEL_WITHOUT_COLON
-+                        && TC_START_LABEL_WITHOUT_COLON(c,
-+                                                        input_line_pointer)
-+#endif
-+                        )
-+                      line_label = colon (line_start);
-+                    else
-+                      line_label = symbol_create (line_start,
-+                                                  absolute_section,
-+                                                  (valueT) 0,
-+                                                  &zero_address_frag);
-+
-+                    *input_line_pointer = c;
-+                    if (c == ':')
-+                      input_line_pointer++;
-+                  }
-+              }
-+          }
-+
-+        /* We are at the beginning of a line, or similar place.
-+           We expect a well-formed assembler statement.
-+           A "symbol-name:" is a statement.
-+
-+           Depending on what compiler is used, the order of these tests
-+           may vary to catch most common case 1st.
-+           Each test is independent of all other tests at the (top)
-+           level.  */
-+        do
-+          c = *input_line_pointer++;
-+        while (c == '\t' || c == ' ' || c == '\f');
-+
-+        /* C is the 1st significant character.
-+           Input_line_pointer points after that character.  */
-+        if (is_name_beginner (c))
-+          {
-+            /* Want user-defined label or pseudo/opcode.  */
-+            HANDLE_CONDITIONAL_ASSEMBLY ();
-+
-+            s = --input_line_pointer;
-+            c = get_symbol_end ();    /* name's delimiter.  */
-+
-+            /* C is character after symbol.
-+               That character's place in the input line is now '\0'.
-+               S points to the beginning of the symbol.
-+                 [In case of pseudo-op, s->'.'.]
-+               Input_line_pointer->'\0' where c was.  */
-+            if (TC_START_LABEL (c, s, input_line_pointer))
-+              {
-+                if (flag_m68k_mri)
-+                  {
-+                    char *rest = input_line_pointer + 1;
-+
-+                    /* In MRI mode, \tsym: set 0 is permitted.  */
-+                    if (*rest == ':')
-+                      ++rest;
-+
-+                    if (*rest == ' ' || *rest == '\t')
-+                      ++rest;
-+
-+                    if ((strncasecmp (rest, "EQU", 3) == 0
-+                         || strncasecmp (rest, "SET", 3) == 0)
-+                        && (rest[3] == ' ' || rest[3] == '\t'))
-+                      {
-+                        input_line_pointer = rest + 3;
-+                        equals (s, 1);
-+                        continue;
-+                      }
-+                  }
-+
-+                line_label = colon (s);       /* User-defined label.  */
-+                /* Put ':' back for error messages' sake.  */
-+                *input_line_pointer++ = ':';
-+#ifdef tc_check_label
-+                tc_check_label (line_label);
-+#endif
-+                /* Input_line_pointer->after ':'.  */
-+                SKIP_WHITESPACE ();
-+              }
-+            else if ((c == '=' && input_line_pointer[1] == '=')
-+                     || ((c == ' ' || c == '\t')
-+                         && input_line_pointer[1] == '='
-+                         && input_line_pointer[2] == '='))
-+              {
-+                equals (s, -1);
-+                demand_empty_rest_of_line ();
-+              }
-+            else if ((c == '='
-+                     || ((c == ' ' || c == '\t')
-+                          && input_line_pointer[1] == '='))
-+#ifdef TC_EQUAL_IN_INSN
-+                         && !TC_EQUAL_IN_INSN (c, s)
-+#endif
-+                         )
-+              {
-+                equals (s, 1);
-+                demand_empty_rest_of_line ();
-+              }
-+            else
-+              {
-+                /* Expect pseudo-op or machine instruction.  */
-+                pop = NULL;
-+
-+#ifndef TC_CASE_SENSITIVE
-+                {
-+                  char *s2 = s;
-+
-+                  strncpy (original_case_string, s2, sizeof 
(original_case_string));
-+                  original_case_string[sizeof (original_case_string) - 1] = 0;
-+
-+                  while (*s2)
-+                    {
-+                      *s2 = TOLOWER (*s2);
-+                      s2++;
-+                    }
-+                }
-+#endif
-+                if (NO_PSEUDO_DOT || flag_m68k_mri)
-+                  {
-+                    /* The MRI assembler uses pseudo-ops without
-+                       a period.  */
-+                    pop = (pseudo_typeS *) hash_find (po_hash, s);
-+                    if (pop != NULL && pop->poc_handler == NULL)
-+                      pop = NULL;
-+                  }
-+
-+                if (pop != NULL
-+                    || (!flag_m68k_mri && *s == '.'))
-+                  {
-+                    /* PSEUDO - OP.
-+
-+                       WARNING: c has next char, which may be end-of-line.
-+                       We lookup the pseudo-op table with s+1 because we
-+                       already know that the pseudo-op begins with a '.'.  */
-+
-+                    if (pop == NULL)
-+                      pop = (pseudo_typeS *) hash_find (po_hash, s + 1);
-+                    if (pop && !pop->poc_handler)
-+                      pop = NULL;
-+
-+                    /* In MRI mode, we may need to insert an
-+                       automatic alignment directive.  What a hack
-+                       this is.  */
-+                    if (mri_pending_align
-+                        && (pop == NULL
-+                            || !((pop->poc_handler == cons
-+                                  && pop->poc_val == 1)
-+                                 || (pop->poc_handler == s_space
-+                                     && pop->poc_val == 1)
-+#ifdef tc_conditional_pseudoop
-+                                 || tc_conditional_pseudoop (pop)
-+#endif
-+                                 || pop->poc_handler == s_if
-+                                 || pop->poc_handler == s_ifdef
-+                                 || pop->poc_handler == s_ifc
-+                                 || pop->poc_handler == s_ifeqs
-+                                 || pop->poc_handler == s_else
-+                                 || pop->poc_handler == s_endif
-+                                 || pop->poc_handler == s_globl
-+                                 || pop->poc_handler == s_ignore)))
-+                      {
-+                        do_align (1, (char *) NULL, 0, 0);
-+                        mri_pending_align = 0;
-+
-+                        if (line_label != NULL)
-+                          {
-+                            symbol_set_frag (line_label, frag_now);
-+                            S_SET_VALUE (line_label, frag_now_fix ());
-+                          }
-+                      }
-+
-+                    /* Print the error msg now, while we still can.  */
-+                    if (pop == NULL)
-+                      {
-+                        char *end = input_line_pointer;
-+
-+                        *input_line_pointer = c;
-+                        s_ignore (0);
-+                        c = *--input_line_pointer;
-+                        *input_line_pointer = '\0';
-+                        if (! macro_defined || ! try_macro (c, s))
-+                          {
-+                            *end = '\0';
-+                            as_bad (_("unknown pseudo-op: `%s'"), s);
-+                            *input_line_pointer++ = c;
-+                          }
-+                        continue;
-+                      }
-+
-+                    /* Put it back for error messages etc.  */
-+                    *input_line_pointer = c;
-+                    /* The following skip of whitespace is compulsory.
-+                       A well shaped space is sometimes all that separates
-+                       keyword from operands.  */
-+                    if (c == ' ' || c == '\t')
-+                      input_line_pointer++;
-+
-+                    /* Input_line is restored.
-+                       Input_line_pointer->1st non-blank char
-+                       after pseudo-operation.  */
-+                    (*pop->poc_handler) (pop->poc_val);
-+
-+                    /* If that was .end, just get out now.  */
-+                    if (pop->poc_handler == s_end)
-+                      goto quit;
-+                  }
-+                else
-+                  {
-+                    /* WARNING: c has char, which may be end-of-line.  */
-+                    /* Also: input_line_pointer->`\0` where c was.  */
-+                    *input_line_pointer = c;
-+                    input_line_pointer = _find_end_of_line 
(input_line_pointer, flag_m68k_mri, 1, 0);
-+                    c = *input_line_pointer;
-+                    *input_line_pointer = '\0';
-+
-+                    generate_lineno_debug ();
-+
-+                    if (macro_defined && try_macro (c, s))
-+                      continue;
-+
-+                    if (mri_pending_align)
-+                      {
-+                        do_align (1, (char *) NULL, 0, 0);
-+                        mri_pending_align = 0;
-+                        if (line_label != NULL)
-+                          {
-+                            symbol_set_frag (line_label, frag_now);
-+                            S_SET_VALUE (line_label, frag_now_fix ());
-+                          }
-+                      }
-+
-+                    assemble_one (s); /* Assemble 1 instruction.  */
-+
-+                    *input_line_pointer++ = c;
-+
-+                    /* We resume loop AFTER the end-of-line from
-+                       this instruction.  */
-+                  }
-+              }
-+            continue;
-+          }
-+
-+        /* Empty statement?  */
-+        if (is_end_of_line[(unsigned char) c])
-+          continue;
-+
-+        if ((LOCAL_LABELS_DOLLAR || LOCAL_LABELS_FB) && ISDIGIT (c))
-+          {
-+            /* local label  ("4:")  */
-+            char *backup = input_line_pointer;
-+
-+            HANDLE_CONDITIONAL_ASSEMBLY ();
-+
-+            temp = c - '0';
-+
-+            /* Read the whole number.  */
-+            while (ISDIGIT (*input_line_pointer))
-+              {
-+                temp = (temp * 10) + *input_line_pointer - '0';
-+                ++input_line_pointer;
-+              }
-+
-+            if (LOCAL_LABELS_DOLLAR
-+                && *input_line_pointer == '$'
-+                && *(input_line_pointer + 1) == ':')
-+              {
-+                input_line_pointer += 2;
-+
-+                if (dollar_label_defined (temp))
-+                  {
-+                    as_fatal (_("label \"%d$\" redefined"), temp);
-+                  }
-+
-+                define_dollar_label (temp);
-+                colon (dollar_label_name (temp, 0));
-+                continue;
-+              }
-+
-+            if (LOCAL_LABELS_FB
-+                && *input_line_pointer++ == ':')
-+              {
-+                fb_label_instance_inc (temp);
-+                colon (fb_label_name (temp, 0));
-+                continue;
-+              }
-+
-+            input_line_pointer = backup;
-+          }                   /* local label  ("4:") */
-+
-+        if (c && strchr (line_comment_chars, c))
-+          {                   /* Its a comment.  Better say APP or NO_APP.  */
-+            sb sbuf;
-+            char *ends;
-+            char *new_buf;
-+            char *new_tmp;
-+            unsigned int new_length;
-+            char *tmp_buf = 0;
-+
-+            s = input_line_pointer;
-+            if (strncmp (s, "APP\n", 4))
-+              {
-+                /* We ignore it.  */
-+                ignore_rest_of_line ();
-+                continue;
-+              }
-+            bump_line_counters ();
-+            s += 4;
-+
-+            ends = strstr (s, "#NO_APP\n");
-+
-+            if (!ends)
-+              {
-+                unsigned int tmp_len;
-+                unsigned int num;
-+
-+                /* The end of the #APP wasn't in this buffer.  We
-+                   keep reading in buffers until we find the #NO_APP
-+                   that goes with this #APP  There is one.  The specs
-+                   guarantee it...  */
-+                tmp_len = buffer_limit - s;
-+                tmp_buf = (char *) xmalloc (tmp_len + 1);
-+                memcpy (tmp_buf, s, tmp_len);
-+                do
-+                  {
-+                    new_tmp = input_scrub_next_buffer (&buffer);
-+                    if (!new_tmp)
-+                      break;
-+                    else
-+                      buffer_limit = new_tmp;
-+                    input_line_pointer = buffer;
-+                    ends = strstr (buffer, "#NO_APP\n");
-+                    if (ends)
-+                      num = ends - buffer;
-+                    else
-+                      num = buffer_limit - buffer;
-+
-+                    tmp_buf = (char *) xrealloc (tmp_buf, tmp_len + num);
-+                    memcpy (tmp_buf + tmp_len, buffer, num);
-+                    tmp_len += num;
-+                  }
-+                while (!ends);
-+
-+                input_line_pointer = ends ? ends + 8 : NULL;
-+
-+                s = tmp_buf;
-+                ends = s + tmp_len;
-+
-+              }
-+            else
-+              {
-+                input_line_pointer = ends + 8;
-+              }
-+
-+            scrub_string = s;
-+            scrub_string_end = ends;
-+
-+            new_length = ends - s;
-+            new_buf = (char *) xmalloc (new_length);
-+            new_tmp = new_buf;
-+            for (;;)
-+              {
-+                size_t space;
-+                size_t size;
-+
-+                space = (new_buf + new_length) - new_tmp;
-+                size = do_scrub_chars (scrub_from_string, new_tmp, space);
-+
-+                if (size < space)
-+                  {
-+                    new_tmp[size] = 0;
-+                    break;
-+                  }
-+
-+                new_buf = (char *) xrealloc (new_buf, new_length + 100);
-+                new_tmp = new_buf + new_length;
-+                new_length += 100;
-+              }
-+
-+            if (tmp_buf)
-+              free (tmp_buf);
-+
-+            /* We've "scrubbed" input to the preferred format.  In the
-+               process we may have consumed the whole of the remaining
-+               file (and included files).  We handle this formatted
-+               input similar to that of macro expansion, letting
-+               actual macro expansion (possibly nested) and other
-+               input expansion work.  Beware that in messages, line
-+               numbers and possibly file names will be incorrect.  */
-+            new_length = strlen (new_buf);
-+            sb_build (&sbuf, new_length);
-+            sb_add_buffer (&sbuf, new_buf, new_length);
-+            input_scrub_include_sb (&sbuf, input_line_pointer, 0);
-+            sb_kill (&sbuf);
-+            buffer_limit = input_scrub_next_buffer (&input_line_pointer);
-+            free (new_buf);
-+            continue;
-+          }
-+
-+        HANDLE_CONDITIONAL_ASSEMBLY ();
-+
-+#ifdef tc_unrecognized_line
-+        if (tc_unrecognized_line (c))
-+          continue;
-+#endif
-+        input_line_pointer--;
-+        /* Report unknown char as error.  */
-+        demand_empty_rest_of_line ();
-+      }
-+    }
-+
-+ quit:
-+  symbol_set_value_now (&dot_symbol);
-+
-+#ifdef HANDLE_BUNDLE
-+  if (bundle_lock_frag != NULL)
-+    {
-+      as_bad_where (bundle_lock_frag->fr_file, bundle_lock_frag->fr_line,
-+                  _(".bundle_lock with no matching .bundle_unlock"));
-+      bundle_lock_frag = NULL;
-+      bundle_lock_frchain = NULL;
-+      bundle_lock_depth = 0;
-+    }
-+#endif
-+
-+#ifdef md_cleanup
-+  md_cleanup ();
-+#endif
-+  /* Close the input file.  */
-+  input_scrub_close ();
-+#ifdef WARN_COMMENTS
-+  {
-+    if (warn_comment && found_comment)
-+      as_warn_where (found_comment_file, found_comment,
-+                   "first comment found here");
-+  }
-+#endif
-+}
-+
-+/* Convert O_constant expression EXP into the equivalent O_big representation.
-+   Take the sign of the number from SIGN rather than X_add_number.  */
-+
-+static void
-+convert_to_bignum (expressionS *exp, int sign)
-+{
-+  valueT value;
-+  unsigned int i;
-+
-+  value = exp->X_add_number;
-+  for (i = 0; i < sizeof (exp->X_add_number) / CHARS_PER_LITTLENUM; i++)
-+    {
-+      generic_bignum[i] = value & LITTLENUM_MASK;
-+      value >>= LITTLENUM_NUMBER_OF_BITS;
-+    }
-+  /* Add a sequence of sign bits if the top bit of X_add_number is not
-+     the sign of the original value.  */
-+  if ((exp->X_add_number < 0) == !sign)
-+    generic_bignum[i++] = sign ? LITTLENUM_MASK : 0;
-+  exp->X_op = O_big;
-+  exp->X_add_number = i;
-+}
-+
-+/* For most MRI pseudo-ops, the line actually ends at the first
-+   nonquoted space.  This function looks for that point, stuffs a null
-+   in, and sets *STOPCP to the character that used to be there, and
-+   returns the location.
-+
-+   Until I hear otherwise, I am going to assume that this is only true
-+   for the m68k MRI assembler.  */
-+
-+char *
-+mri_comment_field (char *stopcp)
-+{
-+  char *s;
-+#ifdef TC_M68K
-+  int inquote = 0;
-+
-+  know (flag_m68k_mri);
-+
-+  for (s = input_line_pointer;
-+       ((!is_end_of_line[(unsigned char) *s] && *s != ' ' && *s != '\t')
-+      || inquote);
-+       s++)
-+    {
-+      if (*s == '\'')
-+      inquote = !inquote;
-+    }
-+#else
-+  for (s = input_line_pointer;
-+       !is_end_of_line[(unsigned char) *s];
-+       s++)
-+    ;
-+#endif
-+  *stopcp = *s;
-+  *s = '\0';
-+
-+  return s;
-+}
-+
-+/* Skip to the end of an MRI comment field.  */
-+
-+void
-+mri_comment_end (char *stop, int stopc)
-+{
-+  know (flag_mri);
-+
-+  input_line_pointer = stop;
-+  *stop = stopc;
-+  while (!is_end_of_line[(unsigned char) *input_line_pointer])
-+    ++input_line_pointer;
-+}
-+
-+void
-+s_abort (int ignore ATTRIBUTE_UNUSED)
-+{
-+  as_fatal (_(".abort detected.  Abandoning ship."));
-+}
-+
-+/* Guts of .align directive.  N is the power of two to which to align.
-+   FILL may be NULL, or it may point to the bytes of the fill pattern.
-+   LEN is the length of whatever FILL points to, if anything.  MAX is
-+   the maximum number of characters to skip when doing the alignment,
-+   or 0 if there is no maximum.  */
-+
-+static void
-+do_align (int n, char *fill, int len, int max)
-+{
-+  if (now_seg == absolute_section)
-+    {
-+      if (fill != NULL)
-+      while (len-- > 0)
-+        if (*fill++ != '\0')
-+          {
-+            as_warn (_("ignoring fill value in absolute section"));
-+            break;
-+          }
-+      fill = NULL;
-+      len = 0;
-+    }
-+
-+#ifdef md_flush_pending_output
-+  md_flush_pending_output ();
-+#endif
-+#ifdef md_do_align
-+  md_do_align (n, fill, len, max, just_record_alignment);
-+#endif
-+
-+  /* Only make a frag if we HAVE to...  */
-+  if (n != 0 && !need_pass_2)
-+    {
-+      if (fill == NULL)
-+      {
-+        if (subseg_text_p (now_seg))
-+          frag_align_code (n, max);
-+        else
-+          frag_align (n, 0, max);
-+      }
-+      else if (len <= 1)
-+      frag_align (n, *fill, max);
-+      else
-+      frag_align_pattern (n, fill, len, max);
-+    }
-+
-+#ifdef md_do_align
-+ just_record_alignment: ATTRIBUTE_UNUSED_LABEL
-+#endif
-+
-+  record_alignment (now_seg, n - OCTETS_PER_BYTE_POWER);
-+}
-+
-+/* Handle the .align pseudo-op.  A positive ARG is a default alignment
-+   (in bytes).  A negative ARG is the negative of the length of the
-+   fill pattern.  BYTES_P is non-zero if the alignment value should be
-+   interpreted as the byte boundary, rather than the power of 2.  */
-+#ifndef TC_ALIGN_LIMIT
-+#define TC_ALIGN_LIMIT (stdoutput->arch_info->bits_per_address - 1)
-+#endif
-+
-+static void
-+s_align (int arg, int bytes_p)
-+{
-+  unsigned int align_limit = TC_ALIGN_LIMIT;
-+  unsigned int align;
-+  char *stop = NULL;
-+  char stopc = 0;
-+  offsetT fill = 0;
-+  int max;
-+  int fill_p;
-+
-+  if (flag_mri)
-+    stop = mri_comment_field (&stopc);
-+
-+  if (is_end_of_line[(unsigned char) *input_line_pointer])
-+    {
-+      if (arg < 0)
-+      align = 0;
-+      else
-+      align = arg;    /* Default value from pseudo-op table.  */
-+    }
-+  else
-+    {
-+      align = get_absolute_expression ();
-+      SKIP_WHITESPACE ();
-+    }
-+
-+  if (bytes_p)
-+    {
-+      /* Convert to a power of 2.  */
-+      if (align != 0)
-+      {
-+        unsigned int i;
-+
-+        for (i = 0; (align & 1) == 0; align >>= 1, ++i)
-+          ;
-+        if (align != 1)
-+          as_bad (_("alignment not a power of 2"));
-+
-+        align = i;
-+      }
-+    }
-+
-+  if (align > align_limit)
-+    {
-+      align = align_limit;
-+      as_warn (_("alignment too large: %u assumed"), align);
-+    }
-+
-+  if (*input_line_pointer != ',')
-+    {
-+      fill_p = 0;
-+      max = 0;
-+    }
-+  else
-+    {
-+      ++input_line_pointer;
-+      if (*input_line_pointer == ',')
-+      fill_p = 0;
-+      else
-+      {
-+        fill = get_absolute_expression ();
-+        SKIP_WHITESPACE ();
-+        fill_p = 1;
-+      }
-+
-+      if (*input_line_pointer != ',')
-+      max = 0;
-+      else
-+      {
-+        ++input_line_pointer;
-+        max = get_absolute_expression ();
-+      }
-+    }
-+
-+  if (!fill_p)
-+    {
-+      if (arg < 0)
-+      as_warn (_("expected fill pattern missing"));
-+      do_align (align, (char *) NULL, 0, max);
-+    }
-+  else
-+    {
-+      int fill_len;
-+
-+      if (arg >= 0)
-+      fill_len = 1;
-+      else
-+      fill_len = -arg;
-+      if (fill_len <= 1)
-+      {
-+        char fill_char;
-+
-+        fill_char = fill;
-+        do_align (align, &fill_char, fill_len, max);
-+      }
-+      else
-+      {
-+        char ab[16];
-+
-+        if ((size_t) fill_len > sizeof ab)
-+          abort ();
-+        md_number_to_chars (ab, fill, fill_len);
-+        do_align (align, ab, fill_len, max);
-+      }
-+    }
-+
-+  demand_empty_rest_of_line ();
-+
-+  if (flag_mri)
-+    mri_comment_end (stop, stopc);
-+}
-+
-+/* Handle the .align pseudo-op on machines where ".align 4" means
-+   align to a 4 byte boundary.  */
-+
-+void
-+s_align_bytes (int arg)
-+{
-+  s_align (arg, 1);
-+}
-+
-+/* Handle the .align pseudo-op on machines where ".align 4" means align
-+   to a 2**4 boundary.  */
-+
-+void
-+s_align_ptwo (int arg)
-+{
-+  s_align (arg, 0);
-+}
-+
-+/* Switch in and out of alternate macro mode.  */
-+
-+void
-+s_altmacro (int on)
-+{
-+  demand_empty_rest_of_line ();
-+  macro_set_alternate (on);
-+}
-+
-+/* Read a symbol name from input_line_pointer.
-+
-+   Stores the symbol name in a buffer and returns a pointer to this buffer.
-+   The buffer is xalloc'ed.  It is the caller's responsibility to free
-+   this buffer.
-+
-+   The name is not left in the i_l_p buffer as it may need processing
-+   to handle escape characters.
-+
-+   Advances i_l_p to the next non-whitespace character.
-+
-+   If a symbol name could not be read, the routine issues an error
-+   messages, skips to the end of the line and returns NULL.  */
-+
-+static char *
-+read_symbol_name (void)
-+{
-+  char * name;
-+  char * start;
-+  char c;
-+
-+  c = *input_line_pointer++;
-+
-+  if (c == '"')
-+    {
-+#define SYM_NAME_CHUNK_LEN 128
-+      ptrdiff_t len = SYM_NAME_CHUNK_LEN;
-+      char * name_end;
-+      unsigned int C;
-+
-+      start = name = xmalloc (len + 1);
-+
-+      name_end = name + SYM_NAME_CHUNK_LEN;
-+
-+      while (is_a_char (C = next_char_of_string ()))
-+      {
-+        if (name >= name_end)
-+          {
-+            ptrdiff_t sofar;
-+
-+            sofar = name - start;
-+            len += SYM_NAME_CHUNK_LEN;
-+            start = xrealloc (start, len + 1);
-+            name_end = start + len;
-+            name = start + sofar;
-+          }
-+
-+        *name++ = (char) C;
-+      }
-+      *name = 0;
-+
-+      /* Since quoted symbol names can contain non-ASCII characters,
-+       check the string and warn if it cannot be recognised by the
-+       current character set.  */
-+      if (mbstowcs (NULL, name, len) == (size_t) -1)
-+      as_warn (_("symbol name not recognised in the current locale"));
-+    }
-+  else if (is_name_beginner (c) || c == '\001')
-+    {
-+      ptrdiff_t len;
-+
-+      name = input_line_pointer - 1;
-+
-+      /* We accept \001 in a name in case this is
-+       being called with a constructed string.  */
-+      while (is_part_of_name (c = *input_line_pointer++)
-+           || c == '\001')
-+      ;
-+
-+      len = (input_line_pointer - name) - 1;
-+      start = xmalloc (len + 1);
-+
-+      memcpy (start, name, len);
-+      start[len] = 0;
-+
-+      /* Skip a name ender char if one is present.  */
-+      if (! is_name_ender (c))
-+      --input_line_pointer;
-+    }
-+  else
-+    name = start = NULL;
-+
-+  if (name == start)
-+    {
-+      as_bad (_("expected symbol name"));
-+      ignore_rest_of_line ();
-+      return NULL;
-+    }
-+
-+  SKIP_WHITESPACE ();
-+
-+  return start;
-+}
-+
-+
-+symbolS *
-+s_comm_internal (int param,
-+               symbolS *(*comm_parse_extra) (int, symbolS *, addressT))
-+{
-+  char *name;
-+  offsetT temp, size;
-+  symbolS *symbolP = NULL;
-+  char *stop = NULL;
-+  char stopc = 0;
-+  expressionS exp;
-+
-+  if (flag_mri)
-+    stop = mri_comment_field (&stopc);
-+
-+  if ((name = read_symbol_name ()) == NULL)
-+    goto out;
-+
-+  /* Accept an optional comma after the name.  The comma used to be
-+     required, but Irix 5 cc does not generate it for .lcomm.  */
-+  if (*input_line_pointer == ',')
-+    input_line_pointer++;
-+
-+  temp = get_absolute_expr (&exp);
-+  size = temp;
-+  size &= ((addressT) 2 << (stdoutput->arch_info->bits_per_address - 1)) - 1;
-+  if (exp.X_op == O_absent)
-+    {
-+      as_bad (_("missing size expression"));
-+      ignore_rest_of_line ();
-+      goto out;
-+    }
-+  else if (temp != size || !exp.X_unsigned)
-+    {
-+      as_warn (_("size (%ld) out of range, ignored"), (long) temp);
-+      ignore_rest_of_line ();
-+      goto out;
-+    }
-+
-+  symbolP = symbol_find_or_make (name);
-+  if ((S_IS_DEFINED (symbolP) || symbol_equated_p (symbolP))
-+      && !S_IS_COMMON (symbolP))
-+    {
-+      if (!S_IS_VOLATILE (symbolP))
-+      {
-+        symbolP = NULL;
-+        as_bad (_("symbol `%s' is already defined"), name);
-+        ignore_rest_of_line ();
-+        goto out;
-+      }
-+      symbolP = symbol_clone (symbolP, 1);
-+      S_SET_SEGMENT (symbolP, undefined_section);
-+      S_SET_VALUE (symbolP, 0);
-+      symbol_set_frag (symbolP, &zero_address_frag);
-+      S_CLEAR_VOLATILE (symbolP);
-+    }
-+
-+  size = S_GET_VALUE (symbolP);
-+  if (size == 0)
-+    size = temp;
-+  else if (size != temp)
-+    as_warn (_("size of \"%s\" is already %ld; not changing to %ld"),
-+           name, (long) size, (long) temp);
-+
-+  if (comm_parse_extra != NULL)
-+    symbolP = (*comm_parse_extra) (param, symbolP, size);
-+  else
-+    {
-+      S_SET_VALUE (symbolP, (valueT) size);
-+      S_SET_EXTERNAL (symbolP);
-+      S_SET_SEGMENT (symbolP, bfd_com_section_ptr);
-+    }
-+
-+  demand_empty_rest_of_line ();
-+ out:
-+  if (flag_mri)
-+    mri_comment_end (stop, stopc);
-+  if (name != NULL)
-+    free (name);
-+  return symbolP;
-+}
-+
-+void
-+s_comm (int ignore)
-+{
-+  s_comm_internal (ignore, NULL);
-+}
-+
-+/* The MRI COMMON pseudo-op.  We handle this by creating a common
-+   symbol with the appropriate name.  We make s_space do the right
-+   thing by increasing the size.  */
-+
-+void
-+s_mri_common (int small ATTRIBUTE_UNUSED)
-+{
-+  char *name;
-+  char c;
-+  char *alc = NULL;
-+  symbolS *sym;
-+  offsetT align;
-+  char *stop = NULL;
-+  char stopc = 0;
-+
-+  if (!flag_mri)
-+    {
-+      s_comm (0);
-+      return;
-+    }
-+
-+  stop = mri_comment_field (&stopc);
-+
-+  SKIP_WHITESPACE ();
-+
-+  name = input_line_pointer;
-+  if (!ISDIGIT (*name))
-+    c = get_symbol_end ();
-+  else
-+    {
-+      do
-+      {
-+        ++input_line_pointer;
-+      }
-+      while (ISDIGIT (*input_line_pointer));
-+
-+      c = *input_line_pointer;
-+      *input_line_pointer = '\0';
-+
-+      if (line_label != NULL)
-+      {
-+        alc = (char *) xmalloc (strlen (S_GET_NAME (line_label))
-+                                + (input_line_pointer - name)
-+                                + 1);
-+        sprintf (alc, "%s%s", name, S_GET_NAME (line_label));
-+        name = alc;
-+      }
-+    }
-+
-+  sym = symbol_find_or_make (name);
-+  *input_line_pointer = c;
-+  if (alc != NULL)
-+    free (alc);
-+
-+  if (*input_line_pointer != ',')
-+    align = 0;
-+  else
-+    {
-+      ++input_line_pointer;
-+      align = get_absolute_expression ();
-+    }
-+
-+  if (S_IS_DEFINED (sym) && !S_IS_COMMON (sym))
-+    {
-+      as_bad (_("symbol `%s' is already defined"), S_GET_NAME (sym));
-+      ignore_rest_of_line ();
-+      mri_comment_end (stop, stopc);
-+      return;
-+    }
-+
-+  S_SET_EXTERNAL (sym);
-+  S_SET_SEGMENT (sym, bfd_com_section_ptr);
-+  mri_common_symbol = sym;
-+
-+#ifdef S_SET_ALIGN
-+  if (align != 0)
-+    S_SET_ALIGN (sym, align);
-+#else
-+  (void) align;
-+#endif
-+
-+  if (line_label != NULL)
-+    {
-+      expressionS exp;
-+      exp.X_op = O_symbol;
-+      exp.X_add_symbol = sym;
-+      exp.X_add_number = 0;
-+      symbol_set_value_expression (line_label, &exp);
-+      symbol_set_frag (line_label, &zero_address_frag);
-+      S_SET_SEGMENT (line_label, expr_section);
-+    }
-+
-+  /* FIXME: We just ignore the small argument, which distinguishes
-+     COMMON and COMMON.S.  I don't know what we can do about it.  */
-+
-+  /* Ignore the type and hptype.  */
-+  if (*input_line_pointer == ',')
-+    input_line_pointer += 2;
-+  if (*input_line_pointer == ',')
-+    input_line_pointer += 2;
-+
-+  demand_empty_rest_of_line ();
-+
-+  mri_comment_end (stop, stopc);
-+}
-+
-+void
-+s_data (int ignore ATTRIBUTE_UNUSED)
-+{
-+  segT section;
-+  int temp;
-+
-+  temp = get_absolute_expression ();
-+  if (flag_readonly_data_in_text)
-+    {
-+      section = text_section;
-+      temp += 1000;
-+    }
-+  else
-+    section = data_section;
-+
-+  subseg_set (section, (subsegT) temp);
-+
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* Handle the .appfile pseudo-op.  This is automatically generated by
-+   do_scrub_chars when a preprocessor # line comment is seen with a
-+   file name.  This default definition may be overridden by the object
-+   or CPU specific pseudo-ops.  This function is also the default
-+   definition for .file; the APPFILE argument is 1 for .appfile, 0 for
-+   .file.  */
-+
-+void
-+s_app_file_string (char *file, int appfile ATTRIBUTE_UNUSED)
-+{
-+#ifdef LISTING
-+  if (listing)
-+    listing_source_file (file);
-+#endif
-+  register_dependency (file);
-+#ifdef obj_app_file
-+  obj_app_file (file, appfile);
-+#endif
-+}
-+
-+void
-+s_app_file (int appfile)
-+{
-+  char *s;
-+  int length;
-+
-+  /* Some assemblers tolerate immediately following '"'.  */
-+  if ((s = demand_copy_string (&length)) != 0)
-+    {
-+      int may_omit
-+      = (!new_logical_line_flags (s, -1, 1) && appfile);
-+
-+      /* In MRI mode, the preprocessor may have inserted an extraneous
-+       backquote.  */
-+      if (flag_m68k_mri
-+        && *input_line_pointer == '\''
-+        && is_end_of_line[(unsigned char) input_line_pointer[1]])
-+      ++input_line_pointer;
-+
-+      demand_empty_rest_of_line ();
-+      if (!may_omit)
-+      s_app_file_string (s, appfile);
-+    }
-+}
-+
-+static int
-+get_linefile_number (int *flag)
-+{
-+  SKIP_WHITESPACE ();
-+
-+  if (*input_line_pointer < '0' || *input_line_pointer > '9')
-+    return 0;
-+
-+  *flag = get_absolute_expression ();
-+
-+  return 1;
-+}
-+
-+/* Handle the .appline pseudo-op.  This is automatically generated by
-+   do_scrub_chars when a preprocessor # line comment is seen.  This
-+   default definition may be overridden by the object or CPU specific
-+   pseudo-ops.  */
-+
-+void
-+s_app_line (int appline)
-+{
-+  char *file = NULL;
-+  int l;
-+
-+  /* The given number is that of the next line.  */
-+  if (appline)
-+    l = get_absolute_expression ();
-+  else if (!get_linefile_number (&l))
-+    {
-+      ignore_rest_of_line ();
-+      return;
-+    }
-+
-+  l--;
-+
-+  if (l < -1)
-+    /* Some of the back ends can't deal with non-positive line numbers.
-+       Besides, it's silly.  GCC however will generate a line number of
-+       zero when it is pre-processing builtins for assembler-with-cpp files:
-+
-+        # 0 "<built-in>"
-+
-+       We do not want to barf on this, especially since such files are used
-+       in the GCC and GDB testsuites.  So we check for negative line numbers
-+       rather than non-positive line numbers.  */
-+    as_warn (_("line numbers must be positive; line number %d rejected"),
-+           l + 1);
-+  else
-+    {
-+      int flags = 0;
-+      int length = 0;
-+
-+      if (!appline)
-+      {
-+        SKIP_WHITESPACE ();
-+
-+        if (*input_line_pointer == '"')
-+          file = demand_copy_string (&length);
-+
-+        if (file)
-+          {
-+            int this_flag;
-+
-+            while (get_linefile_number (&this_flag))
-+              switch (this_flag)
-+                {
-+                  /* From GCC's cpp documentation:
-+                     1: start of a new file.
-+                     2: returning to a file after having included
-+                        another file.
-+                     3: following text comes from a system header file.
-+                     4: following text should be treated as extern "C".
-+
-+                     4 is nonsensical for the assembler; 3, we don't
-+                     care about, so we ignore it just in case a
-+                     system header file is included while
-+                     preprocessing assembly.  So 1 and 2 are all we
-+                     care about, and they are mutually incompatible.
-+                     new_logical_line_flags() demands this.  */
-+                case 1:
-+                case 2:
-+                  if (flags && flags != (1 << this_flag))
-+                    as_warn (_("incompatible flag %i in line directive"),
-+                             this_flag);
-+                  else
-+                    flags |= 1 << this_flag;
-+                  break;
-+
-+                case 3:
-+                case 4:
-+                  /* We ignore these.  */
-+                  break;
-+
-+                default:
-+                  as_warn (_("unsupported flag %i in line directive"),
-+                           this_flag);
-+                  break;
-+                }
-+
-+            if (!is_end_of_line[(unsigned char)*input_line_pointer])
-+              file = 0;
-+          }
-+      }
-+
-+      if (appline || file)
-+      {
-+        new_logical_line_flags (file, l, flags);
-+#ifdef LISTING
-+        if (listing)
-+          listing_source_line (l);
-+#endif
-+      }
-+    }
-+  if (appline || file)
-+    demand_empty_rest_of_line ();
-+  else
-+    ignore_rest_of_line ();
-+}
-+
-+/* Handle the .end pseudo-op.  Actually, the real work is done in
-+   read_a_source_file.  */
-+
-+void
-+s_end (int ignore ATTRIBUTE_UNUSED)
-+{
-+  if (flag_mri)
-+    {
-+      /* The MRI assembler permits the start symbol to follow .end,
-+       but we don't support that.  */
-+      SKIP_WHITESPACE ();
-+      if (!is_end_of_line[(unsigned char) *input_line_pointer]
-+        && *input_line_pointer != '*'
-+        && *input_line_pointer != '!')
-+      as_warn (_("start address not supported"));
-+    }
-+}
-+
-+/* Handle the .err pseudo-op.  */
-+
-+void
-+s_err (int ignore ATTRIBUTE_UNUSED)
-+{
-+  as_bad (_(".err encountered"));
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* Handle the .error and .warning pseudo-ops.  */
-+
-+void
-+s_errwarn (int err)
-+{
-+  int len;
-+  /* The purpose for the conditional assignment is not to
-+     internationalize the directive itself, but that we need a
-+     self-contained message, one that can be passed like the
-+     demand_copy_C_string return value, and with no assumption on the
-+     location of the name of the directive within the message.  */
-+  char *msg
-+    = (err ? _(".error directive invoked in source file")
-+       : _(".warning directive invoked in source file"));
-+
-+  if (!is_it_end_of_statement ())
-+    {
-+      if (*input_line_pointer != '\"')
-+      {
-+        as_bad (_("%s argument must be a string"),
-+                err ? ".error" : ".warning");
-+        ignore_rest_of_line ();
-+        return;
-+      }
-+
-+      msg = demand_copy_C_string (&len);
-+      if (msg == NULL)
-+      return;
-+    }
-+
-+  if (err)
-+    as_bad ("%s", msg);
-+  else
-+    as_warn ("%s", msg);
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* Handle the MRI fail pseudo-op.  */
-+
-+void
-+s_fail (int ignore ATTRIBUTE_UNUSED)
-+{
-+  offsetT temp;
-+  char *stop = NULL;
-+  char stopc = 0;
-+
-+  if (flag_mri)
-+    stop = mri_comment_field (&stopc);
-+
-+  temp = get_absolute_expression ();
-+  if (temp >= 500)
-+    as_warn (_(".fail %ld encountered"), (long) temp);
-+  else
-+    as_bad (_(".fail %ld encountered"), (long) temp);
-+
-+  demand_empty_rest_of_line ();
-+
-+  if (flag_mri)
-+    mri_comment_end (stop, stopc);
-+}
-+
-+void
-+s_fill (int ignore ATTRIBUTE_UNUSED)
-+{
-+  expressionS rep_exp;
-+  long size = 1;
-+  long fill = 0;
-+  char *p;
-+
-+#ifdef md_flush_pending_output
-+  md_flush_pending_output ();
-+#endif
-+
-+#ifdef md_cons_align
-+  md_cons_align (1);
-+#endif
-+
-+  get_known_segmented_expression (&rep_exp);
-+  if (*input_line_pointer == ',')
-+    {
-+      input_line_pointer++;
-+      size = get_absolute_expression ();
-+      if (*input_line_pointer == ',')
-+      {
-+        input_line_pointer++;
-+        fill = get_absolute_expression ();
-+      }
-+    }
-+
-+  /* This is to be compatible with BSD 4.2 AS, not for any rational reason.  
*/
-+#define BSD_FILL_SIZE_CROCK_8 (8)
-+  if (size > BSD_FILL_SIZE_CROCK_8)
-+    {
-+      as_warn (_(".fill size clamped to %d"), BSD_FILL_SIZE_CROCK_8);
-+      size = BSD_FILL_SIZE_CROCK_8;
-+    }
-+  if (size < 0)
-+    {
-+      as_warn (_("size negative; .fill ignored"));
-+      size = 0;
-+    }
-+  else if (rep_exp.X_op == O_constant && rep_exp.X_add_number <= 0)
-+    {
-+      if (rep_exp.X_add_number < 0)
-+      as_warn (_("repeat < 0; .fill ignored"));
-+      size = 0;
-+    }
-+
-+  if (size && !need_pass_2)
-+    {
-+      if (rep_exp.X_op == O_constant)
-+      {
-+        p = frag_var (rs_fill, (int) size, (int) size,
-+                      (relax_substateT) 0, (symbolS *) 0,
-+                      (offsetT) rep_exp.X_add_number,
-+                      (char *) 0);
-+      }
-+      else
-+      {
-+        /* We don't have a constant repeat count, so we can't use
-+           rs_fill.  We can get the same results out of rs_space,
-+           but its argument is in bytes, so we must multiply the
-+           repeat count by size.  */
-+
-+        symbolS *rep_sym;
-+        rep_sym = make_expr_symbol (&rep_exp);
-+        if (size != 1)
-+          {
-+            expressionS size_exp;
-+            size_exp.X_op = O_constant;
-+            size_exp.X_add_number = size;
-+
-+            rep_exp.X_op = O_multiply;
-+            rep_exp.X_add_symbol = rep_sym;
-+            rep_exp.X_op_symbol = make_expr_symbol (&size_exp);
-+            rep_exp.X_add_number = 0;
-+            rep_sym = make_expr_symbol (&rep_exp);
-+          }
-+
-+        p = frag_var (rs_space, (int) size, (int) size,
-+                      (relax_substateT) 0, rep_sym, (offsetT) 0, (char *) 0);
-+      }
-+
-+      memset (p, 0, (unsigned int) size);
-+
-+      /* The magic number BSD_FILL_SIZE_CROCK_4 is from BSD 4.2 VAX
-+       flavoured AS.  The following bizarre behaviour is to be
-+       compatible with above.  I guess they tried to take up to 8
-+       bytes from a 4-byte expression and they forgot to sign
-+       extend.  */
-+#define BSD_FILL_SIZE_CROCK_4 (4)
-+      md_number_to_chars (p, (valueT) fill,
-+                        (size > BSD_FILL_SIZE_CROCK_4
-+                         ? BSD_FILL_SIZE_CROCK_4
-+                         : (int) size));
-+      /* Note: .fill (),0 emits no frag (since we are asked to .fill 0 bytes)
-+       but emits no error message because it seems a legal thing to do.
-+       It is a degenerate case of .fill but could be emitted by a
-+       compiler.  */
-+    }
-+  demand_empty_rest_of_line ();
-+}
-+
-+void
-+s_globl (int ignore ATTRIBUTE_UNUSED)
-+{
-+  char *name;
-+  int c;
-+  symbolS *symbolP;
-+  char *stop = NULL;
-+  char stopc = 0;
-+
-+  if (flag_mri)
-+    stop = mri_comment_field (&stopc);
-+
-+  do
-+    {
-+      if ((name = read_symbol_name ()) == NULL)
-+      return;
-+
-+      symbolP = symbol_find_or_make (name);
-+      S_SET_EXTERNAL (symbolP);
-+
-+      SKIP_WHITESPACE ();
-+      c = *input_line_pointer;
-+      if (c == ',')
-+      {
-+        input_line_pointer++;
-+        SKIP_WHITESPACE ();
-+        if (is_end_of_line[(unsigned char) *input_line_pointer])
-+          c = '\n';
-+      }
-+
-+      free (name);
-+    }
-+  while (c == ',');
-+
-+  demand_empty_rest_of_line ();
-+
-+  if (flag_mri)
-+    mri_comment_end (stop, stopc);
-+}
-+
-+/* Handle the MRI IRP and IRPC pseudo-ops.  */
-+
-+void
-+s_irp (int irpc)
-+{
-+  char *file, *eol;
-+  unsigned int line;
-+  sb s;
-+  const char *err;
-+  sb out;
-+
-+  as_where (&file, &line);
-+
-+  eol = find_end_of_line (input_line_pointer, 0);
-+  sb_build (&s, eol - input_line_pointer);
-+  sb_add_buffer (&s, input_line_pointer, eol - input_line_pointer);
-+  input_line_pointer = eol;
-+
-+  sb_new (&out);
-+
-+  err = expand_irp (irpc, 0, &s, &out, get_non_macro_line_sb);
-+  if (err != NULL)
-+    as_bad_where (file, line, "%s", err);
-+
-+  sb_kill (&s);
-+
-+  input_scrub_include_sb (&out, input_line_pointer, 1);
-+  sb_kill (&out);
-+  buffer_limit = input_scrub_next_buffer (&input_line_pointer);
-+}
-+
-+/* Handle the .linkonce pseudo-op.  This tells the assembler to mark
-+   the section to only be linked once.  However, this is not supported
-+   by most object file formats.  This takes an optional argument,
-+   which is what to do about duplicates.  */
-+
-+void
-+s_linkonce (int ignore ATTRIBUTE_UNUSED)
-+{
-+  enum linkonce_type type;
-+
-+  SKIP_WHITESPACE ();
-+
-+  type = LINKONCE_DISCARD;
-+
-+  if (!is_end_of_line[(unsigned char) *input_line_pointer])
-+    {
-+      char *s;
-+      char c;
-+
-+      s = input_line_pointer;
-+      c = get_symbol_end ();
-+      if (strcasecmp (s, "discard") == 0)
-+      type = LINKONCE_DISCARD;
-+      else if (strcasecmp (s, "one_only") == 0)
-+      type = LINKONCE_ONE_ONLY;
-+      else if (strcasecmp (s, "same_size") == 0)
-+      type = LINKONCE_SAME_SIZE;
-+      else if (strcasecmp (s, "same_contents") == 0)
-+      type = LINKONCE_SAME_CONTENTS;
-+      else
-+      as_warn (_("unrecognized .linkonce type `%s'"), s);
-+
-+      *input_line_pointer = c;
-+    }
-+
-+#ifdef obj_handle_link_once
-+  obj_handle_link_once (type);
-+#else /* ! defined (obj_handle_link_once) */
-+  {
-+    flagword flags;
-+
-+    if ((bfd_applicable_section_flags (stdoutput) & SEC_LINK_ONCE) == 0)
-+      as_warn (_(".linkonce is not supported for this object file format"));
-+
-+    flags = bfd_get_section_flags (stdoutput, now_seg);
-+    flags |= SEC_LINK_ONCE;
-+    switch (type)
-+      {
-+      default:
-+      abort ();
-+      case LINKONCE_DISCARD:
-+      flags |= SEC_LINK_DUPLICATES_DISCARD;
-+      break;
-+      case LINKONCE_ONE_ONLY:
-+      flags |= SEC_LINK_DUPLICATES_ONE_ONLY;
-+      break;
-+      case LINKONCE_SAME_SIZE:
-+      flags |= SEC_LINK_DUPLICATES_SAME_SIZE;
-+      break;
-+      case LINKONCE_SAME_CONTENTS:
-+      flags |= SEC_LINK_DUPLICATES_SAME_CONTENTS;
-+      break;
-+      }
-+    if (!bfd_set_section_flags (stdoutput, now_seg, flags))
-+      as_bad (_("bfd_set_section_flags: %s"),
-+            bfd_errmsg (bfd_get_error ()));
-+  }
-+#endif /* ! defined (obj_handle_link_once) */
-+
-+  demand_empty_rest_of_line ();
-+}
-+
-+void
-+bss_alloc (symbolS *symbolP, addressT size, int align)
-+{
-+  char *pfrag;
-+  segT current_seg = now_seg;
-+  subsegT current_subseg = now_subseg;
-+  segT bss_seg = bss_section;
-+
-+#if defined (TC_MIPS) || defined (TC_ALPHA)
-+  if (OUTPUT_FLAVOR == bfd_target_ecoff_flavour
-+      || OUTPUT_FLAVOR == bfd_target_elf_flavour)
-+    {
-+      /* For MIPS and Alpha ECOFF or ELF, small objects are put in .sbss.  */
-+      if (size <= bfd_get_gp_size (stdoutput))
-+      {
-+        bss_seg = subseg_new (".sbss", 1);
-+        seg_info (bss_seg)->bss = 1;
-+        if (!bfd_set_section_flags (stdoutput, bss_seg, SEC_ALLOC))
-+          as_warn (_("error setting flags for \".sbss\": %s"),
-+                   bfd_errmsg (bfd_get_error ()));
-+      }
-+    }
-+#endif
-+  subseg_set (bss_seg, 1);
-+
-+  if (align)
-+    {
-+      record_alignment (bss_seg, align);
-+      frag_align (align, 0, 0);
-+    }
-+
-+  /* Detach from old frag.  */
-+  if (S_GET_SEGMENT (symbolP) == bss_seg)
-+    symbol_get_frag (symbolP)->fr_symbol = NULL;
-+
-+  symbol_set_frag (symbolP, frag_now);
-+  pfrag = frag_var (rs_org, 1, 1, 0, symbolP, size, NULL);
-+  *pfrag = 0;
-+
-+#ifdef S_SET_SIZE
-+  S_SET_SIZE (symbolP, size);
-+#endif
-+  S_SET_SEGMENT (symbolP, bss_seg);
-+
-+#ifdef OBJ_COFF
-+  /* The symbol may already have been created with a preceding
-+     ".globl" directive -- be careful not to step on storage class
-+     in that case.  Otherwise, set it to static.  */
-+  if (S_GET_STORAGE_CLASS (symbolP) != C_EXT)
-+    S_SET_STORAGE_CLASS (symbolP, C_STAT);
-+#endif /* OBJ_COFF */
-+
-+  subseg_set (current_seg, current_subseg);
-+}
-+
-+offsetT
-+parse_align (int align_bytes)
-+{
-+  expressionS exp;
-+  addressT align;
-+
-+  SKIP_WHITESPACE ();
-+  if (*input_line_pointer != ',')
-+    {
-+    no_align:
-+      as_bad (_("expected alignment after size"));
-+      ignore_rest_of_line ();
-+      return -1;
-+    }
-+
-+  input_line_pointer++;
-+  SKIP_WHITESPACE ();
-+
-+  align = get_absolute_expr (&exp);
-+  if (exp.X_op == O_absent)
-+    goto no_align;
-+
-+  if (!exp.X_unsigned)
-+    {
-+      as_warn (_("alignment negative; 0 assumed"));
-+      align = 0;
-+    }
-+
-+  if (align_bytes && align != 0)
-+    {
-+      /* convert to a power of 2 alignment */
-+      unsigned int alignp2 = 0;
-+      while ((align & 1) == 0)
-+      align >>= 1, ++alignp2;
-+      if (align != 1)
-+      {
-+        as_bad (_("alignment not a power of 2"));
-+        ignore_rest_of_line ();
-+        return -1;
-+      }
-+      align = alignp2;
-+    }
-+  return align;
-+}
-+
-+/* Called from s_comm_internal after symbol name and size have been
-+   parsed.  NEEDS_ALIGN is 0 if it was an ".lcomm" (2 args only),
-+   1 if this was a ".bss" directive which has a 3rd argument
-+   (alignment as a power of 2), or 2 if this was a ".bss" directive
-+   with alignment in bytes.  */
-+
-+symbolS *
-+s_lcomm_internal (int needs_align, symbolS *symbolP, addressT size)
-+{
-+  addressT align = 0;
-+
-+  if (needs_align)
-+    {
-+      align = parse_align (needs_align - 1);
-+      if (align == (addressT) -1)
-+      return NULL;
-+    }
-+  else
-+    /* Assume some objects may require alignment on some systems.  */
-+    TC_IMPLICIT_LCOMM_ALIGNMENT (size, align);
-+
-+  bss_alloc (symbolP, size, align);
-+  return symbolP;
-+}
-+
-+void
-+s_lcomm (int needs_align)
-+{
-+  s_comm_internal (needs_align, s_lcomm_internal);
-+}
-+
-+void
-+s_lcomm_bytes (int needs_align)
-+{
-+  s_comm_internal (needs_align * 2, s_lcomm_internal);
-+}
-+
-+void
-+s_lsym (int ignore ATTRIBUTE_UNUSED)
-+{
-+  char *name;
-+  expressionS exp;
-+  symbolS *symbolP;
-+
-+  /* We permit ANY defined expression: BSD4.2 demands constants.  */
-+  if ((name = read_symbol_name ()) == NULL)
-+    return;
-+
-+  if (*input_line_pointer != ',')
-+    {
-+      as_bad (_("expected comma after \"%s\""), name);
-+      goto err_out;
-+    }
-+
-+  input_line_pointer++;
-+  expression_and_evaluate (&exp);
-+
-+  if (exp.X_op != O_constant
-+      && exp.X_op != O_register)
-+    {
-+      as_bad (_("bad expression"));
-+      goto err_out;
-+    }
-+
-+  symbolP = symbol_find_or_make (name);
-+
-+  if (S_GET_SEGMENT (symbolP) == undefined_section)
-+    {
-+      /* The name might be an undefined .global symbol; be sure to
-+       keep the "external" bit.  */
-+      S_SET_SEGMENT (symbolP,
-+                   (exp.X_op == O_constant
-+                    ? absolute_section
-+                    : reg_section));
-+      S_SET_VALUE (symbolP, (valueT) exp.X_add_number);
-+    }
-+  else
-+    {
-+      as_bad (_("symbol `%s' is already defined"), name);
-+    }
-+
-+  demand_empty_rest_of_line ();
-+  free (name);
-+  return;
-+
-+ err_out:
-+  ignore_rest_of_line ();
-+  free (name);
-+  return;
-+}
-+
-+/* Read a line into an sb.  Returns the character that ended the line
-+   or zero if there are no more lines.  */
-+
-+static int
-+get_line_sb (sb *line, int in_macro)
-+{
-+  char *eol;
-+
-+  if (input_line_pointer[-1] == '\n')
-+    bump_line_counters ();
-+
-+  if (input_line_pointer >= buffer_limit)
-+    {
-+      buffer_limit = input_scrub_next_buffer (&input_line_pointer);
-+      if (buffer_limit == 0)
-+      return 0;
-+    }
-+
-+  eol = _find_end_of_line (input_line_pointer, flag_m68k_mri, 0, in_macro);
-+  sb_add_buffer (line, input_line_pointer, eol - input_line_pointer);
-+  input_line_pointer = eol;
-+
-+  /* Don't skip multiple end-of-line characters, because that breaks support
-+     for the IA-64 stop bit (;;) which looks like two consecutive end-of-line
-+     characters but isn't.  Instead just skip one end of line character and
-+     return the character skipped so that the caller can re-insert it if
-+     necessary.   */
-+  return *input_line_pointer++;
-+}
-+
-+static size_t
-+get_non_macro_line_sb (sb *line)
-+{
-+  return get_line_sb (line, 0);
-+}
-+
-+static size_t
-+get_macro_line_sb (sb *line)
-+{
-+  return get_line_sb (line, 1);
-+}
-+
-+/* Define a macro.  This is an interface to macro.c.  */
-+
-+void
-+s_macro (int ignore ATTRIBUTE_UNUSED)
-+{
-+  char *file, *eol;
-+  unsigned int line;
-+  sb s;
-+  const char *err;
-+  const char *name;
-+
-+  as_where (&file, &line);
-+
-+  eol = find_end_of_line (input_line_pointer, 0);
-+  sb_build (&s, eol - input_line_pointer);
-+  sb_add_buffer (&s, input_line_pointer, eol - input_line_pointer);
-+  input_line_pointer = eol;
-+
-+  if (line_label != NULL)
-+    {
-+      sb label;
-+      size_t len;
-+
-+      name = S_GET_NAME (line_label);
-+      len = strlen (name);
-+      sb_build (&label, len);
-+      sb_add_buffer (&label, name, len);
-+      err = define_macro (0, &s, &label, get_macro_line_sb, file, line, 
&name);
-+      sb_kill (&label);
-+    }
-+  else
-+    err = define_macro (0, &s, NULL, get_macro_line_sb, file, line, &name);
-+  if (err != NULL)
-+    as_bad_where (file, line, err, name);
-+  else
-+    {
-+      if (line_label != NULL)
-+      {
-+        S_SET_SEGMENT (line_label, absolute_section);
-+        S_SET_VALUE (line_label, 0);
-+        symbol_set_frag (line_label, &zero_address_frag);
-+      }
-+
-+      if (((NO_PSEUDO_DOT || flag_m68k_mri)
-+         && hash_find (po_hash, name) != NULL)
-+        || (!flag_m68k_mri
-+            && *name == '.'
-+            && hash_find (po_hash, name + 1) != NULL))
-+      as_warn_where (file,
-+               line,
-+               _("attempt to redefine pseudo-op `%s' ignored"),
-+               name);
-+    }
-+
-+  sb_kill (&s);
-+}
-+
-+/* Handle the .mexit pseudo-op, which immediately exits a macro
-+   expansion.  */
-+
-+void
-+s_mexit (int ignore ATTRIBUTE_UNUSED)
-+{
-+  if (macro_nest)
-+    {
-+      cond_exit_macro (macro_nest);
-+      buffer_limit = input_scrub_next_buffer (&input_line_pointer);
-+    }
-+  else
-+    as_warn (_("ignoring macro exit outside a macro definition."));
-+}
-+
-+/* Switch in and out of MRI mode.  */
-+
-+void
-+s_mri (int ignore ATTRIBUTE_UNUSED)
-+{
-+  int on;
-+#ifdef MRI_MODE_CHANGE
-+  int old_flag;
-+#endif
-+
-+  on = get_absolute_expression ();
-+#ifdef MRI_MODE_CHANGE
-+  old_flag = flag_mri;
-+#endif
-+  if (on != 0)
-+    {
-+      flag_mri = 1;
-+#ifdef TC_M68K
-+      flag_m68k_mri = 1;
-+#endif
-+      macro_mri_mode (1);
-+    }
-+  else
-+    {
-+      flag_mri = 0;
-+#ifdef TC_M68K
-+      flag_m68k_mri = 0;
-+#endif
-+      macro_mri_mode (0);
-+    }
-+
-+  /* Operator precedence changes in m68k MRI mode, so we need to
-+     update the operator rankings.  */
-+  expr_set_precedence ();
-+
-+#ifdef MRI_MODE_CHANGE
-+  if (on != old_flag)
-+    MRI_MODE_CHANGE (on);
-+#endif
-+
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* Handle changing the location counter.  */
-+
-+static void
-+do_org (segT segment, expressionS *exp, int fill)
-+{
-+  if (segment != now_seg
-+      && segment != absolute_section
-+      && segment != expr_section)
-+    as_bad (_("invalid segment \"%s\""), segment_name (segment));
-+
-+  if (now_seg == absolute_section)
-+    {
-+      if (fill != 0)
-+      as_warn (_("ignoring fill value in absolute section"));
-+      if (exp->X_op != O_constant)
-+      {
-+        as_bad (_("only constant offsets supported in absolute section"));
-+        exp->X_add_number = 0;
-+      }
-+      abs_section_offset = exp->X_add_number;
-+    }
-+  else
-+    {
-+      char *p;
-+      symbolS *sym = exp->X_add_symbol;
-+      offsetT off = exp->X_add_number * OCTETS_PER_BYTE;
-+
-+      if (exp->X_op != O_constant && exp->X_op != O_symbol)
-+      {
-+        /* Handle complex expressions.  */
-+        sym = make_expr_symbol (exp);
-+        off = 0;
-+      }
-+
-+      p = frag_var (rs_org, 1, 1, (relax_substateT) 0, sym, off, (char *) 0);
-+      *p = fill;
-+    }
-+}
-+
-+void
-+s_org (int ignore ATTRIBUTE_UNUSED)
-+{
-+  segT segment;
-+  expressionS exp;
-+  long temp_fill;
-+
-+#ifdef md_flush_pending_output
-+  md_flush_pending_output ();
-+#endif
-+
-+  /* The m68k MRI assembler has a different meaning for .org.  It
-+     means to create an absolute section at a given address.  We can't
-+     support that--use a linker script instead.  */
-+  if (flag_m68k_mri)
-+    {
-+      as_bad (_("MRI style ORG pseudo-op not supported"));
-+      ignore_rest_of_line ();
-+      return;
-+    }
-+
-+  /* Don't believe the documentation of BSD 4.2 AS.  There is no such
-+     thing as a sub-segment-relative origin.  Any absolute origin is
-+     given a warning, then assumed to be segment-relative.  Any
-+     segmented origin expression ("foo+42") had better be in the right
-+     segment or the .org is ignored.
-+
-+     BSD 4.2 AS warns if you try to .org backwards. We cannot because
-+     we never know sub-segment sizes when we are reading code.  BSD
-+     will crash trying to emit negative numbers of filler bytes in
-+     certain .orgs. We don't crash, but see as-write for that code.
-+
-+     Don't make frag if need_pass_2==1.  */
-+  segment = get_known_segmented_expression (&exp);
-+  if (*input_line_pointer == ',')
-+    {
-+      input_line_pointer++;
-+      temp_fill = get_absolute_expression ();
-+    }
-+  else
-+    temp_fill = 0;
-+
-+  if (!need_pass_2)
-+    do_org (segment, &exp, temp_fill);
-+
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* Handle parsing for the MRI SECT/SECTION pseudo-op.  This should be
-+   called by the obj-format routine which handles section changing
-+   when in MRI mode.  It will create a new section, and return it.  It
-+   will set *TYPE to the section type: one of 'C' (code), 'D' (data),
-+   'M' (mixed), or 'R' (romable).  The flags will be set in the section.  */
-+
-+void
-+s_mri_sect (char *type ATTRIBUTE_UNUSED)
-+{
-+#ifdef TC_M68K
-+
-+  char *name;
-+  char c;
-+  segT seg;
-+
-+  SKIP_WHITESPACE ();
-+
-+  name = input_line_pointer;
-+  if (!ISDIGIT (*name))
-+    c = get_symbol_end ();
-+  else
-+    {
-+      do
-+      {
-+        ++input_line_pointer;
-+      }
-+      while (ISDIGIT (*input_line_pointer));
-+
-+      c = *input_line_pointer;
-+      *input_line_pointer = '\0';
-+    }
-+
-+  name = xstrdup (name);
-+
-+  *input_line_pointer = c;
-+
-+  seg = subseg_new (name, 0);
-+
-+  if (*input_line_pointer == ',')
-+    {
-+      int align;
-+
-+      ++input_line_pointer;
-+      align = get_absolute_expression ();
-+      record_alignment (seg, align);
-+    }
-+
-+  *type = 'C';
-+  if (*input_line_pointer == ',')
-+    {
-+      c = *++input_line_pointer;
-+      c = TOUPPER (c);
-+      if (c == 'C' || c == 'D' || c == 'M' || c == 'R')
-+      *type = c;
-+      else
-+      as_bad (_("unrecognized section type"));
-+      ++input_line_pointer;
-+
-+      {
-+      flagword flags;
-+
-+      flags = SEC_NO_FLAGS;
-+      if (*type == 'C')
-+        flags = SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE;
-+      else if (*type == 'D' || *type == 'M')
-+        flags = SEC_ALLOC | SEC_LOAD | SEC_DATA;
-+      else if (*type == 'R')
-+        flags = SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_READONLY | SEC_ROM;
-+      if (flags != SEC_NO_FLAGS)
-+        {
-+          if (!bfd_set_section_flags (stdoutput, seg, flags))
-+            as_warn (_("error setting flags for \"%s\": %s"),
-+                     bfd_section_name (stdoutput, seg),
-+                     bfd_errmsg (bfd_get_error ()));
-+        }
-+      }
-+    }
-+
-+  /* Ignore the HP type.  */
-+  if (*input_line_pointer == ',')
-+    input_line_pointer += 2;
-+
-+  demand_empty_rest_of_line ();
-+
-+#else /* ! TC_M68K */
-+#ifdef TC_I960
-+
-+  char *name;
-+  char c;
-+  segT seg;
-+
-+  SKIP_WHITESPACE ();
-+
-+  name = input_line_pointer;
-+  c = get_symbol_end ();
-+
-+  name = xstrdup (name);
-+
-+  *input_line_pointer = c;
-+
-+  seg = subseg_new (name, 0);
-+
-+  if (*input_line_pointer != ',')
-+    *type = 'C';
-+  else
-+    {
-+      char *sectype;
-+
-+      ++input_line_pointer;
-+      SKIP_WHITESPACE ();
-+      sectype = input_line_pointer;
-+      c = get_symbol_end ();
-+      if (*sectype == '\0')
-+      *type = 'C';
-+      else if (strcasecmp (sectype, "text") == 0)
-+      *type = 'C';
-+      else if (strcasecmp (sectype, "data") == 0)
-+      *type = 'D';
-+      else if (strcasecmp (sectype, "romdata") == 0)
-+      *type = 'R';
-+      else
-+      as_warn (_("unrecognized section type `%s'"), sectype);
-+      *input_line_pointer = c;
-+    }
-+
-+  if (*input_line_pointer == ',')
-+    {
-+      char *seccmd;
-+
-+      ++input_line_pointer;
-+      SKIP_WHITESPACE ();
-+      seccmd = input_line_pointer;
-+      c = get_symbol_end ();
-+      if (strcasecmp (seccmd, "absolute") == 0)
-+      {
-+        as_bad (_("absolute sections are not supported"));
-+        *input_line_pointer = c;
-+        ignore_rest_of_line ();
-+        return;
-+      }
-+      else if (strcasecmp (seccmd, "align") == 0)
-+      {
-+        int align;
-+
-+        *input_line_pointer = c;
-+        align = get_absolute_expression ();
-+        record_alignment (seg, align);
-+      }
-+      else
-+      {
-+        as_warn (_("unrecognized section command `%s'"), seccmd);
-+        *input_line_pointer = c;
-+      }
-+    }
-+
-+  demand_empty_rest_of_line ();
-+
-+#else /* ! TC_I960 */
-+  /* The MRI assembler seems to use different forms of .sect for
-+     different targets.  */
-+  as_bad ("MRI mode not supported for this target");
-+  ignore_rest_of_line ();
-+#endif /* ! TC_I960 */
-+#endif /* ! TC_M68K */
-+}
-+
-+/* Handle the .print pseudo-op.  */
-+
-+void
-+s_print (int ignore ATTRIBUTE_UNUSED)
-+{
-+  char *s;
-+  int len;
-+
-+  s = demand_copy_C_string (&len);
-+  if (s != NULL)
-+    printf ("%s\n", s);
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* Handle the .purgem pseudo-op.  */
-+
-+void
-+s_purgem (int ignore ATTRIBUTE_UNUSED)
-+{
-+  if (is_it_end_of_statement ())
-+    {
-+      demand_empty_rest_of_line ();
-+      return;
-+    }
-+
-+  do
-+    {
-+      char *name;
-+      char c;
-+
-+      SKIP_WHITESPACE ();
-+      name = input_line_pointer;
-+      c = get_symbol_end ();
-+      delete_macro (name);
-+      *input_line_pointer = c;
-+      SKIP_WHITESPACE ();
-+    }
-+  while (*input_line_pointer++ == ',');
-+
-+  --input_line_pointer;
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* Handle the .endm/.endr pseudo-ops.  */
-+
-+static void
-+s_bad_end (int endr)
-+{
-+  as_warn (_(".end%c encountered without preceding %s"),
-+         endr ? 'r' : 'm',
-+         endr ? ".rept, .irp, or .irpc" : ".macro");
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* Handle the .rept pseudo-op.  */
-+
-+void
-+s_rept (int ignore ATTRIBUTE_UNUSED)
-+{
-+  int count;
-+
-+  count = get_absolute_expression ();
-+
-+  do_repeat (count, "REPT", "ENDR");
-+}
-+
-+/* This function provides a generic repeat block implementation.   It allows
-+   different directives to be used as the start/end keys.  */
-+
-+void
-+do_repeat (int count, const char *start, const char *end)
-+{
-+  sb one;
-+  sb many;
-+
-+  sb_new (&one);
-+  if (!buffer_and_nest (start, end, &one, get_non_macro_line_sb))
-+    {
-+      as_bad (_("%s without %s"), start, end);
-+      return;
-+    }
-+
-+  sb_build (&many, count * one.len);
-+  while (count-- > 0)
-+    sb_add_sb (&many, &one);
-+
-+  sb_kill (&one);
-+
-+  input_scrub_include_sb (&many, input_line_pointer, 1);
-+  sb_kill (&many);
-+  buffer_limit = input_scrub_next_buffer (&input_line_pointer);
-+}
-+
-+/* Like do_repeat except that any text matching EXPANDER in the
-+   block is replaced by the itteration count.  */
-+
-+void
-+do_repeat_with_expander (int count,
-+                       const char * start,
-+                       const char * end,
-+                       const char * expander)
-+{
-+  sb one;
-+  sb many;
-+
-+  sb_new (&one);
-+  if (!buffer_and_nest (start, end, &one, get_non_macro_line_sb))
-+    {
-+      as_bad (_("%s without %s"), start, end);
-+      return;
-+    }
-+
-+  sb_new (&many);
-+
-+  if (expander != NULL && strstr (one.ptr, expander) != NULL)
-+    {
-+      while (count -- > 0)
-+      {
-+        int len;
-+        char * sub;
-+        sb processed;
-+
-+        sb_build (& processed, one.len);
-+        sb_add_sb (& processed, & one);
-+        sub = strstr (processed.ptr, expander);
-+        len = sprintf (sub, "%d", count);
-+        gas_assert (len < 8);
-+        strcpy (sub + len, sub + 8);
-+        processed.len -= (8 - len);
-+        sb_add_sb (& many, & processed);
-+        sb_kill (& processed);
-+      }
-+    }
-+  else
-+    while (count-- > 0)
-+      sb_add_sb (&many, &one);
-+
-+  sb_kill (&one);
-+
-+  input_scrub_include_sb (&many, input_line_pointer, 1);
-+  sb_kill (&many);
-+  buffer_limit = input_scrub_next_buffer (&input_line_pointer);
-+}
-+
-+/* Skip to end of current repeat loop; EXTRA indicates how many additional
-+   input buffers to skip.  Assumes that conditionals preceding the loop end
-+   are properly nested.
-+
-+   This function makes it easier to implement a premature "break" out of the
-+   loop.  The EXTRA arg accounts for other buffers we might have inserted,
-+   such as line substitutions.  */
-+
-+void
-+end_repeat (int extra)
-+{
-+  cond_exit_macro (macro_nest);
-+  while (extra-- >= 0)
-+    buffer_limit = input_scrub_next_buffer (&input_line_pointer);
-+}
-+
-+static void
-+assign_symbol (char *name, int mode)
-+{
-+  symbolS *symbolP;
-+
-+  if (name[0] == '.' && name[1] == '\0')
-+    {
-+      /* Turn '. = mumble' into a .org mumble.  */
-+      segT segment;
-+      expressionS exp;
-+
-+      segment = get_known_segmented_expression (&exp);
-+
-+      if (!need_pass_2)
-+      do_org (segment, &exp, 0);
-+
-+      return;
-+    }
-+
-+  if ((symbolP = symbol_find (name)) == NULL
-+      && (symbolP = md_undefined_symbol (name)) == NULL)
-+    {
-+      symbolP = symbol_find_or_make (name);
-+#ifndef NO_LISTING
-+      /* When doing symbol listings, play games with dummy fragments living
-+       outside the normal fragment chain to record the file and line info
-+       for this symbol.  */
-+      if (listing & LISTING_SYMBOLS)
-+      {
-+        extern struct list_info_struct *listing_tail;
-+        fragS *dummy_frag = (fragS *) xcalloc (1, sizeof (fragS));
-+        dummy_frag->line = listing_tail;
-+        dummy_frag->fr_symbol = symbolP;
-+        symbol_set_frag (symbolP, dummy_frag);
-+      }
-+#endif
-+#if defined (OBJ_COFF) && !defined (TE_PE)
-+      /* "set" symbols are local unless otherwise specified.  */
-+      SF_SET_LOCAL (symbolP);
-+#endif
-+    }
-+
-+  if (S_IS_DEFINED (symbolP) || symbol_equated_p (symbolP))
-+    {
-+      if ((mode != 0 || !S_IS_VOLATILE (symbolP))
-+        && !S_CAN_BE_REDEFINED (symbolP))
-+      {
-+        as_bad (_("symbol `%s' is already defined"), name);
-+        symbolP = symbol_clone (symbolP, 0);
-+      }
-+      /* If the symbol is volatile, copy the symbol and replace the
-+       original with the copy, so that previous uses of the symbol will
-+       retain the value of the symbol at the point of use.  */
-+      else if (S_IS_VOLATILE (symbolP))
-+      symbolP = symbol_clone (symbolP, 1);
-+    }
-+
-+  if (mode == 0)
-+    S_SET_VOLATILE (symbolP);
-+  else if (mode < 0)
-+    S_SET_FORWARD_REF (symbolP);
-+
-+  pseudo_set (symbolP);
-+}
-+
-+/* Handle the .equ, .equiv, .eqv, and .set directives.  If EQUIV is 1,
-+   then this is .equiv, and it is an error if the symbol is already
-+   defined.  If EQUIV is -1, the symbol additionally is a forward
-+   reference.  */
-+
-+void
-+s_set (int equiv)
-+{
-+  char *name;
-+
-+  /* Especial apologies for the random logic:
-+     this just grew, and could be parsed much more simply!
-+     Dean in haste.  */
-+  if ((name = read_symbol_name ()) == NULL)
-+    return;
-+
-+  if (*input_line_pointer != ',')
-+    {
-+      as_bad (_("expected comma after \"%s\""), name);
-+      ignore_rest_of_line ();
-+      free (name);
-+      return;
-+    }
-+
-+  input_line_pointer++;
-+  assign_symbol (name, equiv);
-+  demand_empty_rest_of_line ();
-+  free (name);
-+}
-+
-+void
-+s_space (int mult)
-+{
-+  expressionS exp;
-+  expressionS val;
-+  char *p = 0;
-+  char *stop = NULL;
-+  char stopc = 0;
-+  int bytes;
-+
-+#ifdef md_flush_pending_output
-+  md_flush_pending_output ();
-+#endif
-+
-+#ifdef md_cons_align
-+  md_cons_align (1);
-+#endif
-+
-+  if (flag_mri)
-+    stop = mri_comment_field (&stopc);
-+
-+  /* In m68k MRI mode, we need to align to a word boundary, unless
-+     this is ds.b.  */
-+  if (flag_m68k_mri && mult > 1)
-+    {
-+      if (now_seg == absolute_section)
-+      {
-+        abs_section_offset += abs_section_offset & 1;
-+        if (line_label != NULL)
-+          S_SET_VALUE (line_label, abs_section_offset);
-+      }
-+      else if (mri_common_symbol != NULL)
-+      {
-+        valueT mri_val;
-+
-+        mri_val = S_GET_VALUE (mri_common_symbol);
-+        if ((mri_val & 1) != 0)
-+          {
-+            S_SET_VALUE (mri_common_symbol, mri_val + 1);
-+            if (line_label != NULL)
-+              {
-+                expressionS *symexp;
-+
-+                symexp = symbol_get_value_expression (line_label);
-+                know (symexp->X_op == O_symbol);
-+                know (symexp->X_add_symbol == mri_common_symbol);
-+                symexp->X_add_number += 1;
-+              }
-+          }
-+      }
-+      else
-+      {
-+        do_align (1, (char *) NULL, 0, 0);
-+        if (line_label != NULL)
-+          {
-+            symbol_set_frag (line_label, frag_now);
-+            S_SET_VALUE (line_label, frag_now_fix ());
-+          }
-+      }
-+    }
-+
-+  bytes = mult;
-+
-+  expression (&exp);
-+
-+  SKIP_WHITESPACE ();
-+  if (*input_line_pointer == ',')
-+    {
-+      ++input_line_pointer;
-+      expression (&val);
-+    }
-+  else
-+    {
-+      val.X_op = O_constant;
-+      val.X_add_number = 0;
-+    }
-+
-+  if (val.X_op != O_constant
-+      || val.X_add_number < - 0x80
-+      || val.X_add_number > 0xff
-+      || (mult != 0 && mult != 1 && val.X_add_number != 0))
-+    {
-+      resolve_expression (&exp);
-+      if (exp.X_op != O_constant)
-+      as_bad (_("unsupported variable size or fill value"));
-+      else
-+      {
-+        offsetT i;
-+
-+        if (mult == 0)
-+          mult = 1;
-+        bytes = mult * exp.X_add_number;
-+        for (i = 0; i < exp.X_add_number; i++)
-+          emit_expr (&val, mult);
-+      }
-+    }
-+  else
-+    {
-+      if (now_seg == absolute_section || mri_common_symbol != NULL)
-+      resolve_expression (&exp);
-+
-+      if (exp.X_op == O_constant)
-+      {
-+        offsetT repeat;
-+
-+        repeat = exp.X_add_number;
-+        if (mult)
-+          repeat *= mult;
-+        bytes = repeat;
-+        if (repeat <= 0)
-+          {
-+            if (!flag_mri)
-+              as_warn (_(".space repeat count is zero, ignored"));
-+            else if (repeat < 0)
-+              as_warn (_(".space repeat count is negative, ignored"));
-+            goto getout;
-+          }
-+
-+        /* If we are in the absolute section, just bump the offset.  */
-+        if (now_seg == absolute_section)
-+          {
-+            abs_section_offset += repeat;
-+            goto getout;
-+          }
-+
-+        /* If we are secretly in an MRI common section, then
-+           creating space just increases the size of the common
-+           symbol.  */
-+        if (mri_common_symbol != NULL)
-+          {
-+            S_SET_VALUE (mri_common_symbol,
-+                         S_GET_VALUE (mri_common_symbol) + repeat);
-+            goto getout;
-+          }
-+
-+        if (!need_pass_2)
-+          p = frag_var (rs_fill, 1, 1, (relax_substateT) 0, (symbolS *) 0,
-+                        (offsetT) repeat, (char *) 0);
-+      }
-+      else
-+      {
-+        if (now_seg == absolute_section)
-+          {
-+            as_bad (_("space allocation too complex in absolute section"));
-+            subseg_set (text_section, 0);
-+          }
-+
-+        if (mri_common_symbol != NULL)
-+          {
-+            as_bad (_("space allocation too complex in common section"));
-+            mri_common_symbol = NULL;
-+          }
-+
-+        if (!need_pass_2)
-+          p = frag_var (rs_space, 1, 1, (relax_substateT) 0,
-+                        make_expr_symbol (&exp), (offsetT) 0, (char *) 0);
-+      }
-+
-+      if (p)
-+      *p = val.X_add_number;
-+    }
-+
-+ getout:
-+
-+  /* In MRI mode, after an odd number of bytes, we must align to an
-+     even word boundary, unless the next instruction is a dc.b, ds.b
-+     or dcb.b.  */
-+  if (flag_mri && (bytes & 1) != 0)
-+    mri_pending_align = 1;
-+
-+  demand_empty_rest_of_line ();
-+
-+  if (flag_mri)
-+    mri_comment_end (stop, stopc);
-+}
-+
-+/* This is like s_space, but the value is a floating point number with
-+   the given precision.  This is for the MRI dcb.s pseudo-op and
-+   friends.  */
-+
-+void
-+s_float_space (int float_type)
-+{
-+  offsetT count;
-+  int flen;
-+  char temp[MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT];
-+  char *stop = NULL;
-+  char stopc = 0;
-+
-+#ifdef md_cons_align
-+  md_cons_align (1);
-+#endif
-+
-+  if (flag_mri)
-+    stop = mri_comment_field (&stopc);
-+
-+  count = get_absolute_expression ();
-+
-+  SKIP_WHITESPACE ();
-+  if (*input_line_pointer != ',')
-+    {
-+      as_bad (_("missing value"));
-+      ignore_rest_of_line ();
-+      if (flag_mri)
-+      mri_comment_end (stop, stopc);
-+      return;
-+    }
-+
-+  ++input_line_pointer;
-+
-+  SKIP_WHITESPACE ();
-+
-+  /* Skip any 0{letter} that may be present.  Don't even check if the
-+   * letter is legal.  */
-+  if (input_line_pointer[0] == '0'
-+      && ISALPHA (input_line_pointer[1]))
-+    input_line_pointer += 2;
-+
-+  /* Accept :xxxx, where the x's are hex digits, for a floating point
-+     with the exact digits specified.  */
-+  if (input_line_pointer[0] == ':')
-+    {
-+      flen = hex_float (float_type, temp);
-+      if (flen < 0)
-+      {
-+        ignore_rest_of_line ();
-+        if (flag_mri)
-+          mri_comment_end (stop, stopc);
-+        return;
-+      }
-+    }
-+  else
-+    {
-+      char *err;
-+
-+      err = md_atof (float_type, temp, &flen);
-+      know (flen <= MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT);
-+      know (err != NULL || flen > 0);
-+      if (err)
-+      {
-+        as_bad (_("bad floating literal: %s"), err);
-+        ignore_rest_of_line ();
-+        if (flag_mri)
-+          mri_comment_end (stop, stopc);
-+        return;
-+      }
-+    }
-+
-+  while (--count >= 0)
-+    {
-+      char *p;
-+
-+      p = frag_more (flen);
-+      memcpy (p, temp, (unsigned int) flen);
-+    }
-+
-+  demand_empty_rest_of_line ();
-+
-+  if (flag_mri)
-+    mri_comment_end (stop, stopc);
-+}
-+
-+/* Handle the .struct pseudo-op, as found in MIPS assemblers.  */
-+
-+void
-+s_struct (int ignore ATTRIBUTE_UNUSED)
-+{
-+  char *stop = NULL;
-+  char stopc = 0;
-+
-+  if (flag_mri)
-+    stop = mri_comment_field (&stopc);
-+  abs_section_offset = get_absolute_expression ();
-+#if defined (OBJ_ELF) || defined (OBJ_MAYBE_ELF)
-+  /* The ELF backend needs to know that we are changing sections, so
-+     that .previous works correctly. */
-+  if (IS_ELF)
-+    obj_elf_section_change_hook ();
-+#endif
-+  subseg_set (absolute_section, 0);
-+  demand_empty_rest_of_line ();
-+  if (flag_mri)
-+    mri_comment_end (stop, stopc);
-+}
-+
-+void
-+s_text (int ignore ATTRIBUTE_UNUSED)
-+{
-+  int temp;
-+
-+  temp = get_absolute_expression ();
-+  subseg_set (text_section, (subsegT) temp);
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* .weakref x, y sets x as an alias to y that, as long as y is not
-+   referenced directly, will cause y to become a weak symbol.  */
-+void
-+s_weakref (int ignore ATTRIBUTE_UNUSED)
-+{
-+  char *name;
-+  symbolS *symbolP;
-+  symbolS *symbolP2;
-+  expressionS exp;
-+
-+  if ((name = read_symbol_name ()) == NULL)
-+    return;
-+
-+  symbolP = symbol_find_or_make (name);
-+
-+  if (S_IS_DEFINED (symbolP) || symbol_equated_p (symbolP))
-+    {
-+      if (!S_IS_VOLATILE (symbolP))
-+      {
-+        as_bad (_("symbol `%s' is already defined"), name);
-+        goto err_out;
-+      }
-+      symbolP = symbol_clone (symbolP, 1);
-+      S_CLEAR_VOLATILE (symbolP);
-+    }
-+
-+  SKIP_WHITESPACE ();
-+
-+  if (*input_line_pointer != ',')
-+    {
-+      as_bad (_("expected comma after \"%s\""), name);
-+      goto err_out;
-+    }
-+
-+  input_line_pointer++;
-+
-+  SKIP_WHITESPACE ();
-+  free (name);
-+
-+  if ((name = read_symbol_name ()) == NULL)
-+    return;
-+
-+  if ((symbolP2 = symbol_find_noref (name, 1)) == NULL
-+      && (symbolP2 = md_undefined_symbol (name)) == NULL)
-+    {
-+      symbolP2 = symbol_find_or_make (name);
-+      S_SET_WEAKREFD (symbolP2);
-+    }
-+  else
-+    {
-+      symbolS *symp = symbolP2;
-+
-+      while (S_IS_WEAKREFR (symp) && symp != symbolP)
-+      {
-+        expressionS *expP = symbol_get_value_expression (symp);
-+
-+        gas_assert (expP->X_op == O_symbol
-+                && expP->X_add_number == 0);
-+        symp = expP->X_add_symbol;
-+      }
-+      if (symp == symbolP)
-+      {
-+        char *loop;
-+
-+        loop = concat (S_GET_NAME (symbolP),
-+                       " => ", S_GET_NAME (symbolP2), (const char *) NULL);
-+
-+        symp = symbolP2;
-+        while (symp != symbolP)
-+          {
-+            char *old_loop = loop;
-+
-+            symp = symbol_get_value_expression (symp)->X_add_symbol;
-+            loop = concat (loop, " => ", S_GET_NAME (symp),
-+                           (const char *) NULL);
-+            free (old_loop);
-+          }
-+
-+        as_bad (_("%s: would close weakref loop: %s"),
-+                S_GET_NAME (symbolP), loop);
-+
-+        free (loop);
-+        free (name);
-+        ignore_rest_of_line ();
-+        return;
-+      }
-+
-+      /* Short-circuiting instead of just checking here might speed
-+       things up a tiny little bit, but loop error messages would
-+       miss intermediate links.  */
-+      /* symbolP2 = symp; */
-+    }
-+
-+  memset (&exp, 0, sizeof (exp));
-+  exp.X_op = O_symbol;
-+  exp.X_add_symbol = symbolP2;
-+
-+  S_SET_SEGMENT (symbolP, undefined_section);
-+  symbol_set_value_expression (symbolP, &exp);
-+  symbol_set_frag (symbolP, &zero_address_frag);
-+  S_SET_WEAKREFR (symbolP);
-+
-+  demand_empty_rest_of_line ();
-+  free (name);
-+  return;
-+
-+ err_out:
-+  ignore_rest_of_line ();
-+  free (name);
-+  return;
-+}
-+
-+
-+/* Verify that we are at the end of a line.  If not, issue an error and
-+   skip to EOL.  */
-+
-+void
-+demand_empty_rest_of_line (void)
-+{
-+  SKIP_WHITESPACE ();
-+  if (is_end_of_line[(unsigned char) *input_line_pointer])
-+    input_line_pointer++;
-+  else
-+    {
-+      if (ISPRINT (*input_line_pointer))
-+      as_bad (_("junk at end of line, first unrecognized character is `%c'"),
-+               *input_line_pointer);
-+      else
-+      as_bad (_("junk at end of line, first unrecognized character valued 
0x%x"),
-+               *input_line_pointer);
-+      ignore_rest_of_line ();
-+    }
-+
-+  /* Return pointing just after end-of-line.  */
-+  know (is_end_of_line[(unsigned char) input_line_pointer[-1]]);
-+}
-+
-+/* Silently advance to the end of line.  Use this after already having
-+   issued an error about something bad.  */
-+
-+void
-+ignore_rest_of_line (void)
-+{
-+  while (input_line_pointer < buffer_limit
-+       && !is_end_of_line[(unsigned char) *input_line_pointer])
-+    input_line_pointer++;
-+
-+  input_line_pointer++;
-+
-+  /* Return pointing just after end-of-line.  */
-+  know (is_end_of_line[(unsigned char) input_line_pointer[-1]]);
-+}
-+
-+/* Sets frag for given symbol to zero_address_frag, except when the
-+   symbol frag is already set to a dummy listing frag.  */
-+
-+static void
-+set_zero_frag (symbolS *symbolP)
-+{
-+  if (symbol_get_frag (symbolP)->fr_type != rs_dummy)
-+    symbol_set_frag (symbolP, &zero_address_frag);
-+}
-+
-+/* In:        Pointer to a symbol.
-+      Input_line_pointer->expression.
-+
-+   Out:       Input_line_pointer->just after any whitespace after expression.
-+      Tried to set symbol to value of expression.
-+      Will change symbols type, value, and frag;  */
-+
-+void
-+pseudo_set (symbolS *symbolP)
-+{
-+  expressionS exp;
-+  segT seg;
-+
-+  know (symbolP);             /* NULL pointer is logic error.  */
-+
-+  if (!S_IS_FORWARD_REF (symbolP))
-+    (void) expression (&exp);
-+  else
-+    (void) deferred_expression (&exp);
-+
-+  if (exp.X_op == O_illegal)
-+    as_bad (_("illegal expression"));
-+  else if (exp.X_op == O_absent)
-+    as_bad (_("missing expression"));
-+  else if (exp.X_op == O_big)
-+    {
-+      if (exp.X_add_number > 0)
-+      as_bad (_("bignum invalid"));
-+      else
-+      as_bad (_("floating point number invalid"));
-+    }
-+  else if (exp.X_op == O_subtract
-+         && !S_IS_FORWARD_REF (symbolP)
-+         && SEG_NORMAL (S_GET_SEGMENT (exp.X_add_symbol))
-+         && (symbol_get_frag (exp.X_add_symbol)
-+             == symbol_get_frag (exp.X_op_symbol)))
-+    {
-+      exp.X_op = O_constant;
-+      exp.X_add_number = (S_GET_VALUE (exp.X_add_symbol)
-+                        - S_GET_VALUE (exp.X_op_symbol));
-+    }
-+
-+  if (symbol_section_p (symbolP))
-+    {
-+      as_bad ("attempt to set value of section symbol");
-+      return;
-+    }
-+
-+  switch (exp.X_op)
-+    {
-+    case O_illegal:
-+    case O_absent:
-+    case O_big:
-+      exp.X_add_number = 0;
-+      /* Fall through.  */
-+    case O_constant:
-+      S_SET_SEGMENT (symbolP, absolute_section);
-+      S_SET_VALUE (symbolP, (valueT) exp.X_add_number);
-+      set_zero_frag (symbolP);
-+      break;
-+
-+    case O_register:
-+#ifndef TC_GLOBAL_REGISTER_SYMBOL_OK
-+      if (S_IS_EXTERNAL (symbolP))
-+      {
-+        as_bad ("can't equate global symbol `%s' with register name",
-+                S_GET_NAME (symbolP));
-+        return;
-+      }
-+#endif
-+      S_SET_SEGMENT (symbolP, reg_section);
-+      S_SET_VALUE (symbolP, (valueT) exp.X_add_number);
-+      set_zero_frag (symbolP);
-+      symbol_get_value_expression (symbolP)->X_op = O_register;
-+      break;
-+
-+    case O_symbol:
-+      seg = S_GET_SEGMENT (exp.X_add_symbol);
-+      /* For x=undef+const, create an expression symbol.
-+       For x=x+const, just update x except when x is an undefined symbol
-+       For x=defined+const, evaluate x.  */
-+      if (symbolP == exp.X_add_symbol
-+        && (seg != undefined_section
-+            || !symbol_constant_p (symbolP)))
-+      {
-+        *symbol_X_add_number (symbolP) += exp.X_add_number;
-+        break;
-+      }
-+      else if (!S_IS_FORWARD_REF (symbolP) && seg != undefined_section)
-+      {
-+        symbolS *s = exp.X_add_symbol;
-+
-+        if (S_IS_COMMON (s))
-+          as_bad (_("`%s' can't be equated to common symbol '%s'"),
-+                  S_GET_NAME (symbolP), S_GET_NAME (s));
-+
-+        S_SET_SEGMENT (symbolP, seg);
-+        S_SET_VALUE (symbolP, exp.X_add_number + S_GET_VALUE (s));
-+        symbol_set_frag (symbolP, symbol_get_frag (s));
-+        copy_symbol_attributes (symbolP, s);
-+        break;
-+      }
-+      S_SET_SEGMENT (symbolP, undefined_section);
-+      symbol_set_value_expression (symbolP, &exp);
-+      copy_symbol_attributes (symbolP, exp.X_add_symbol);
-+      set_zero_frag (symbolP);
-+      break;
-+
-+    default:
-+      /* The value is some complex expression.  */
-+      S_SET_SEGMENT (symbolP, expr_section);
-+      symbol_set_value_expression (symbolP, &exp);
-+      set_zero_frag (symbolP);
-+      break;
-+    }
-+}
-+
-+/*                    cons()
-+
-+   CONStruct more frag of .bytes, or .words etc.
-+   Should need_pass_2 be 1 then emit no frag(s).
-+   This understands EXPRESSIONS.
-+
-+   Bug (?)
-+
-+   This has a split personality. We use expression() to read the
-+   value. We can detect if the value won't fit in a byte or word.
-+   But we can't detect if expression() discarded significant digits
-+   in the case of a long. Not worth the crocks required to fix it.  */
-+
-+/* Select a parser for cons expressions.  */
-+
-+/* Some targets need to parse the expression in various fancy ways.
-+   You can define TC_PARSE_CONS_EXPRESSION to do whatever you like
-+   (for example, the HPPA does this).  Otherwise, you can define
-+   BITFIELD_CONS_EXPRESSIONS to permit bitfields to be specified, or
-+   REPEAT_CONS_EXPRESSIONS to permit repeat counts.  If none of these
-+   are defined, which is the normal case, then only simple expressions
-+   are permitted.  */
-+
-+#ifdef TC_M68K
-+static void
-+parse_mri_cons (expressionS *exp, unsigned int nbytes);
-+#endif
-+
-+#ifndef TC_PARSE_CONS_EXPRESSION
-+#ifdef BITFIELD_CONS_EXPRESSIONS
-+#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
-+  (parse_bitfield_cons (EXP, NBYTES), TC_PARSE_CONS_RETURN_NONE)
-+static void
-+parse_bitfield_cons (expressionS *exp, unsigned int nbytes);
-+#endif
-+#ifdef REPEAT_CONS_EXPRESSIONS
-+#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
-+  (parse_repeat_cons (EXP, NBYTES), TC_PARSE_CONS_RETURN_NONE)
-+static void
-+parse_repeat_cons (expressionS *exp, unsigned int nbytes);
-+#endif
-+
-+/* If we haven't gotten one yet, just call expression.  */
-+#ifndef TC_PARSE_CONS_EXPRESSION
-+#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
-+  (expression (EXP), TC_PARSE_CONS_RETURN_NONE)
-+#endif
-+#endif
-+
-+void
-+do_parse_cons_expression (expressionS *exp,
-+                        int nbytes ATTRIBUTE_UNUSED)
-+{
-+  (void) TC_PARSE_CONS_EXPRESSION (exp, nbytes);
-+}
-+
-+
-+/* Worker to do .byte etc statements.
-+   Clobbers input_line_pointer and checks end-of-line.  */
-+
-+static void
-+cons_worker (int nbytes,      /* 1=.byte, 2=.word, 4=.long.  */
-+           int rva)
-+{
-+  int c;
-+  expressionS exp;
-+  char *stop = NULL;
-+  char stopc = 0;
-+
-+#ifdef md_flush_pending_output
-+  md_flush_pending_output ();
-+#endif
-+
-+  if (flag_mri)
-+    stop = mri_comment_field (&stopc);
-+
-+  if (is_it_end_of_statement ())
-+    {
-+      demand_empty_rest_of_line ();
-+      if (flag_mri)
-+      mri_comment_end (stop, stopc);
-+      return;
-+    }
-+
-+#ifdef TC_ADDRESS_BYTES
-+  if (nbytes == 0)
-+    nbytes = TC_ADDRESS_BYTES ();
-+#endif
-+
-+#ifdef md_cons_align
-+  md_cons_align (nbytes);
-+#endif
-+
-+  c = 0;
-+  do
-+    {
-+      TC_PARSE_CONS_RETURN_TYPE ret = TC_PARSE_CONS_RETURN_NONE;
-+#ifdef TC_CONS_FIX_CHECK
-+      fixS **cur_fix = &frchain_now->fix_tail;
-+
-+      if (*cur_fix != NULL)
-+      cur_fix = &(*cur_fix)->fx_next;
-+#endif
-+
-+#ifdef TC_M68K
-+      if (flag_m68k_mri)
-+      parse_mri_cons (&exp, (unsigned int) nbytes);
-+      else
-+#endif
-+      {
-+        if (*input_line_pointer == '"')
-+          {
-+            as_bad (_("unexpected `\"' in expression"));
-+            ignore_rest_of_line ();
-+            return;
-+          }
-+        ret = TC_PARSE_CONS_EXPRESSION (&exp, (unsigned int) nbytes);
-+      }
-+
-+      if (rva)
-+      {
-+        if (exp.X_op == O_symbol)
-+          exp.X_op = O_symbol_rva;
-+        else
-+          as_fatal (_("rva without symbol"));
-+      }
-+      emit_expr_with_reloc (&exp, (unsigned int) nbytes, ret);
-+#ifdef TC_CONS_FIX_CHECK
-+      TC_CONS_FIX_CHECK (&exp, nbytes, *cur_fix);
-+#endif
-+      ++c;
-+    }
-+  while (*input_line_pointer++ == ',');
-+
-+  /* In MRI mode, after an odd number of bytes, we must align to an
-+     even word boundary, unless the next instruction is a dc.b, ds.b
-+     or dcb.b.  */
-+  if (flag_mri && nbytes == 1 && (c & 1) != 0)
-+    mri_pending_align = 1;
-+
-+  input_line_pointer--;               /* Put terminator back into stream.  */
-+
-+  demand_empty_rest_of_line ();
-+
-+  if (flag_mri)
-+    mri_comment_end (stop, stopc);
-+}
-+
-+void
-+cons (int size)
-+{
-+  cons_worker (size, 0);
-+}
-+
-+void
-+s_rva (int size)
-+{
-+  cons_worker (size, 1);
-+}
-+
-+/* .reloc offset, reloc_name, symbol+addend.  */
-+
-+void
-+s_reloc (int ignore ATTRIBUTE_UNUSED)
-+{
-+  char *stop = NULL;
-+  char stopc = 0;
-+  expressionS exp;
-+  char *r_name;
-+  int c;
-+  struct reloc_list *reloc;
-+
-+  reloc = (struct reloc_list *) xmalloc (sizeof (*reloc));
-+
-+  if (flag_mri)
-+    stop = mri_comment_field (&stopc);
-+
-+  expression (&exp);
-+  switch (exp.X_op)
-+    {
-+    case O_illegal:
-+    case O_absent:
-+    case O_big:
-+    case O_register:
-+      as_bad (_("missing or bad offset expression"));
-+      goto err_out;
-+    case O_constant:
-+      exp.X_add_symbol = section_symbol (now_seg);
-+      exp.X_op = O_symbol;
-+      /* Fall thru */
-+    case O_symbol:
-+      if (exp.X_add_number == 0)
-+      {
-+        reloc->u.a.offset_sym = exp.X_add_symbol;
-+        break;
-+      }
-+      /* Fall thru */
-+    default:
-+      reloc->u.a.offset_sym = make_expr_symbol (&exp);
-+      break;
-+    }
-+
-+  SKIP_WHITESPACE ();
-+  if (*input_line_pointer != ',')
-+    {
-+      as_bad (_("missing reloc type"));
-+      goto err_out;
-+    }
-+
-+  ++input_line_pointer;
-+  SKIP_WHITESPACE ();
-+  r_name = input_line_pointer;
-+  c = get_symbol_end ();
-+  reloc->u.a.howto = bfd_reloc_name_lookup (stdoutput, r_name);
-+  *input_line_pointer = c;
-+  if (reloc->u.a.howto == NULL)
-+    {
-+      as_bad (_("unrecognized reloc type"));
-+      goto err_out;
-+    }
-+
-+  exp.X_op = O_absent;
-+  SKIP_WHITESPACE ();
-+  if (*input_line_pointer == ',')
-+    {
-+      ++input_line_pointer;
-+      expression (&exp);
-+    }
-+  switch (exp.X_op)
-+    {
-+    case O_illegal:
-+    case O_big:
-+    case O_register:
-+      as_bad (_("bad reloc expression"));
-+    err_out:
-+      ignore_rest_of_line ();
-+      free (reloc);
-+      if (flag_mri)
-+      mri_comment_end (stop, stopc);
-+      return;
-+    case O_absent:
-+      reloc->u.a.sym = NULL;
-+      reloc->u.a.addend = 0;
-+      break;
-+    case O_constant:
-+      reloc->u.a.sym = NULL;
-+      reloc->u.a.addend = exp.X_add_number;
-+      break;
-+    case O_symbol:
-+      reloc->u.a.sym = exp.X_add_symbol;
-+      reloc->u.a.addend = exp.X_add_number;
-+      break;
-+    default:
-+      reloc->u.a.sym = make_expr_symbol (&exp);
-+      reloc->u.a.addend = 0;
-+      break;
-+    }
-+
-+  as_where (&reloc->file, &reloc->line);
-+  reloc->next = reloc_list;
-+  reloc_list = reloc;
-+
-+  demand_empty_rest_of_line ();
-+  if (flag_mri)
-+    mri_comment_end (stop, stopc);
-+}
-+
-+/* Put the contents of expression EXP into the object file using
-+   NBYTES bytes.  If need_pass_2 is 1, this does nothing.  */
-+
-+void
-+emit_expr (expressionS *exp, unsigned int nbytes)
-+{
-+  emit_expr_with_reloc (exp, nbytes, TC_PARSE_CONS_RETURN_NONE);
-+}
-+
-+void
-+emit_expr_with_reloc (expressionS *exp,
-+                    unsigned int nbytes,
-+                    TC_PARSE_CONS_RETURN_TYPE reloc)
-+{
-+  operatorT op;
-+  char *p;
-+  valueT extra_digit = 0;
-+
-+  /* Don't do anything if we are going to make another pass.  */
-+  if (need_pass_2)
-+    return;
-+
-+  frag_grow (nbytes);
-+  dot_value = frag_now_fix ();
-+  dot_frag = frag_now;
-+
-+#ifndef NO_LISTING
-+#ifdef OBJ_ELF
-+  /* When gcc emits DWARF 1 debugging pseudo-ops, a line number will
-+     appear as a four byte positive constant in the .line section,
-+     followed by a 2 byte 0xffff.  Look for that case here.  */
-+  {
-+    static int dwarf_line = -1;
-+
-+    if (strcmp (segment_name (now_seg), ".line") != 0)
-+      dwarf_line = -1;
-+    else if (dwarf_line >= 0
-+           && nbytes == 2
-+           && exp->X_op == O_constant
-+           && (exp->X_add_number == -1 || exp->X_add_number == 0xffff))
-+      listing_source_line ((unsigned int) dwarf_line);
-+    else if (nbytes == 4
-+           && exp->X_op == O_constant
-+           && exp->X_add_number >= 0)
-+      dwarf_line = exp->X_add_number;
-+    else
-+      dwarf_line = -1;
-+  }
-+
-+  /* When gcc emits DWARF 1 debugging pseudo-ops, a file name will
-+     appear as a 2 byte TAG_compile_unit (0x11) followed by a 2 byte
-+     AT_sibling (0x12) followed by a four byte address of the sibling
-+     followed by a 2 byte AT_name (0x38) followed by the name of the
-+     file.  We look for that case here.  */
-+  {
-+    static int dwarf_file = 0;
-+
-+    if (strcmp (segment_name (now_seg), ".debug") != 0)
-+      dwarf_file = 0;
-+    else if (dwarf_file == 0
-+           && nbytes == 2
-+           && exp->X_op == O_constant
-+           && exp->X_add_number == 0x11)
-+      dwarf_file = 1;
-+    else if (dwarf_file == 1
-+           && nbytes == 2
-+           && exp->X_op == O_constant
-+           && exp->X_add_number == 0x12)
-+      dwarf_file = 2;
-+    else if (dwarf_file == 2
-+           && nbytes == 4)
-+      dwarf_file = 3;
-+    else if (dwarf_file == 3
-+           && nbytes == 2
-+           && exp->X_op == O_constant
-+           && exp->X_add_number == 0x38)
-+      dwarf_file = 4;
-+    else
-+      dwarf_file = 0;
-+
-+    /* The variable dwarf_file_string tells stringer that the string
-+       may be the name of the source file.  */
-+    if (dwarf_file == 4)
-+      dwarf_file_string = 1;
-+    else
-+      dwarf_file_string = 0;
-+  }
-+#endif
-+#endif
-+
-+  if (check_eh_frame (exp, &nbytes))
-+    return;
-+
-+  op = exp->X_op;
-+
-+  /* Allow `.word 0' in the absolute section.  */
-+  if (now_seg == absolute_section)
-+    {
-+      if (op != O_constant || exp->X_add_number != 0)
-+      as_bad (_("attempt to store value in absolute section"));
-+      abs_section_offset += nbytes;
-+      return;
-+    }
-+
-+  /* Handle a negative bignum.  */
-+  if (op == O_uminus
-+      && exp->X_add_number == 0
-+      && symbol_get_value_expression (exp->X_add_symbol)->X_op == O_big
-+      && symbol_get_value_expression (exp->X_add_symbol)->X_add_number > 0)
-+    {
-+      int i;
-+      unsigned long carry;
-+
-+      exp = symbol_get_value_expression (exp->X_add_symbol);
-+
-+      /* Negate the bignum: one's complement each digit and add 1.  */
-+      carry = 1;
-+      for (i = 0; i < exp->X_add_number; i++)
-+      {
-+        unsigned long next;
-+
-+        next = (((~(generic_bignum[i] & LITTLENUM_MASK))
-+                 & LITTLENUM_MASK)
-+                + carry);
-+        generic_bignum[i] = next & LITTLENUM_MASK;
-+        carry = next >> LITTLENUM_NUMBER_OF_BITS;
-+      }
-+
-+      /* We can ignore any carry out, because it will be handled by
-+       extra_digit if it is needed.  */
-+
-+      extra_digit = (valueT) -1;
-+      op = O_big;
-+    }
-+
-+  if (op == O_absent || op == O_illegal)
-+    {
-+      as_warn (_("zero assumed for missing expression"));
-+      exp->X_add_number = 0;
-+      op = O_constant;
-+    }
-+  else if (op == O_big && exp->X_add_number <= 0)
-+    {
-+      as_bad (_("floating point number invalid"));
-+      exp->X_add_number = 0;
-+      op = O_constant;
-+    }
-+  else if (op == O_register)
-+    {
-+      as_warn (_("register value used as expression"));
-+      op = O_constant;
-+    }
-+
-+  p = frag_more ((int) nbytes);
-+
-+  if (reloc != TC_PARSE_CONS_RETURN_NONE)
-+    {
-+      emit_expr_fix (exp, nbytes, frag_now, p, reloc);
-+      return;
-+    }
-+
-+#ifndef WORKING_DOT_WORD
-+  /* If we have the difference of two symbols in a word, save it on
-+     the broken_words list.  See the code in write.c.  */
-+  if (op == O_subtract && nbytes == 2)
-+    {
-+      struct broken_word *x;
-+
-+      x = (struct broken_word *) xmalloc (sizeof (struct broken_word));
-+      x->next_broken_word = broken_words;
-+      broken_words = x;
-+      x->seg = now_seg;
-+      x->subseg = now_subseg;
-+      x->frag = frag_now;
-+      x->word_goes_here = p;
-+      x->dispfrag = 0;
-+      x->add = exp->X_add_symbol;
-+      x->sub = exp->X_op_symbol;
-+      x->addnum = exp->X_add_number;
-+      x->added = 0;
-+      x->use_jump = 0;
-+      new_broken_words++;
-+      return;
-+    }
-+#endif
-+
-+  /* If we have an integer, but the number of bytes is too large to
-+     pass to md_number_to_chars, handle it as a bignum.  */
-+  if (op == O_constant && nbytes > sizeof (valueT))
-+    {
-+      extra_digit = exp->X_unsigned ? 0 : -1;
-+      convert_to_bignum (exp, !exp->X_unsigned);
-+      op = O_big;
-+    }
-+
-+  if (op == O_constant)
-+    {
-+      valueT get;
-+      valueT use;
-+      valueT mask;
-+      valueT hibit;
-+      valueT unmask;
-+
-+      /* JF << of >= number of bits in the object is undefined.  In
-+       particular SPARC (Sun 4) has problems.  */
-+      if (nbytes >= sizeof (valueT))
-+      {
-+        mask = 0;
-+        if (nbytes > sizeof (valueT))
-+          hibit = 0;
-+        else
-+          hibit = (valueT) 1 << (nbytes * BITS_PER_CHAR - 1);
-+      }
-+      else
-+      {
-+        /* Don't store these bits.  */
-+        mask = ~(valueT) 0 << (BITS_PER_CHAR * nbytes);
-+        hibit = (valueT) 1 << (nbytes * BITS_PER_CHAR - 1);
-+      }
-+
-+      unmask = ~mask;         /* Do store these bits.  */
-+
-+#ifdef NEVER
-+      "Do this mod if you want every overflow check to assume SIGNED 2's 
complement data.";
-+      mask = ~(unmask >> 1);  /* Includes sign bit now.  */
-+#endif
-+
-+      get = exp->X_add_number;
-+      use = get & unmask;
-+      if ((get & mask) != 0
-+        && ((get & mask) != mask
-+            || (get & hibit) == 0))
-+      {               /* Leading bits contain both 0s & 1s.  */
-+#if defined (BFD64) && BFD_HOST_64BIT_LONG_LONG
-+#ifndef __MSVCRT__
-+        as_warn (_("value 0x%llx truncated to 0x%llx"),
-+                 (unsigned long long) get, (unsigned long long) use);
-+#else
-+        as_warn (_("value 0x%I64x truncated to 0x%I64x"),
-+                 (unsigned long long) get, (unsigned long long) use);
-+#endif
-+#else
-+        as_warn (_("value 0x%lx truncated to 0x%lx"),
-+                 (unsigned long) get, (unsigned long) use);
-+#endif
-+      }
-+      /* Put bytes in right order.  */
-+      md_number_to_chars (p, use, (int) nbytes);
-+    }
-+  else if (op == O_big)
-+    {
-+      unsigned int size;
-+      LITTLENUM_TYPE *nums;
-+
-+      size = exp->X_add_number * CHARS_PER_LITTLENUM;
-+      if (nbytes < size)
-+      {
-+        int i = nbytes / CHARS_PER_LITTLENUM;
-+        if (i != 0)
-+          {
-+            LITTLENUM_TYPE sign = 0;
-+            if ((generic_bignum[--i]
-+                 & (1 << (LITTLENUM_NUMBER_OF_BITS - 1))) != 0)
-+              sign = ~(LITTLENUM_TYPE) 0;
-+            while (++i < exp->X_add_number)
-+              if (generic_bignum[i] != sign)
-+                break;
-+          }
-+        if (i < exp->X_add_number)
-+          as_warn (_("bignum truncated to %d bytes"), nbytes);
-+        size = nbytes;
-+      }
-+
-+      if (nbytes == 1)
-+      {
-+        md_number_to_chars (p, (valueT) generic_bignum[0], 1);
-+        return;
-+      }
-+      know (nbytes % CHARS_PER_LITTLENUM == 0);
-+
-+      if (target_big_endian)
-+      {
-+        while (nbytes > size)
-+          {
-+            md_number_to_chars (p, extra_digit, CHARS_PER_LITTLENUM);
-+            nbytes -= CHARS_PER_LITTLENUM;
-+            p += CHARS_PER_LITTLENUM;
-+          }
-+
-+        nums = generic_bignum + size / CHARS_PER_LITTLENUM;
-+        while (size >= CHARS_PER_LITTLENUM)
-+          {
-+            --nums;
-+            md_number_to_chars (p, (valueT) *nums, CHARS_PER_LITTLENUM);
-+            size -= CHARS_PER_LITTLENUM;
-+            p += CHARS_PER_LITTLENUM;
-+          }
-+      }
-+      else
-+      {
-+        nums = generic_bignum;
-+        while (size >= CHARS_PER_LITTLENUM)
-+          {
-+            md_number_to_chars (p, (valueT) *nums, CHARS_PER_LITTLENUM);
-+            ++nums;
-+            size -= CHARS_PER_LITTLENUM;
-+            p += CHARS_PER_LITTLENUM;
-+            nbytes -= CHARS_PER_LITTLENUM;
-+          }
-+
-+        while (nbytes >= CHARS_PER_LITTLENUM)
-+          {
-+            md_number_to_chars (p, extra_digit, CHARS_PER_LITTLENUM);
-+            nbytes -= CHARS_PER_LITTLENUM;
-+            p += CHARS_PER_LITTLENUM;
-+          }
-+      }
-+    }
-+  else
-+    emit_expr_fix (exp, nbytes, frag_now, p, TC_PARSE_CONS_RETURN_NONE);
-+}
-+
-+void
-+emit_expr_fix (expressionS *exp, unsigned int nbytes, fragS *frag, char *p,
-+             TC_PARSE_CONS_RETURN_TYPE r ATTRIBUTE_UNUSED)
-+{
-+  int offset = 0;
-+  unsigned int size = nbytes;
-+
-+  memset (p, 0, size);
-+
-+  /* Generate a fixS to record the symbol value.  */
-+
-+#ifdef TC_CONS_FIX_NEW
-+  TC_CONS_FIX_NEW (frag, p - frag->fr_literal + offset, size, exp, r);
-+#else
-+  if (r != TC_PARSE_CONS_RETURN_NONE)
-+    {
-+      reloc_howto_type *reloc_howto;
-+
-+      reloc_howto = bfd_reloc_type_lookup (stdoutput, r);
-+      size = bfd_get_reloc_size (reloc_howto);
-+
-+      if (size > nbytes)
-+      {
-+        as_bad (_("%s relocations do not fit in %u bytes\n"),
-+                reloc_howto->name, nbytes);
-+        return;
-+      }
-+      else if (target_big_endian)
-+      offset = nbytes - size;
-+    }
-+  else
-+    switch (size)
-+      {
-+      case 1:
-+      r = BFD_RELOC_8;
-+      break;
-+      case 2:
-+      r = BFD_RELOC_16;
-+      break;
-+      case 3:
-+      r = BFD_RELOC_24;
-+      break;
-+      case 4:
-+      r = BFD_RELOC_32;
-+      break;
-+      case 8:
-+      r = BFD_RELOC_64;
-+      break;
-+      default:
-+      as_bad (_("unsupported BFD relocation size %u"), size);
-+      return;
-+      }
-+  fix_new_exp (frag, p - frag->fr_literal + offset, size,
-+             exp, 0, r);
-+#endif
-+}
-+
-+#ifdef BITFIELD_CONS_EXPRESSIONS
-+
-+/* i960 assemblers, (eg, asm960), allow bitfields after ".byte" as
-+   w:x,y:z, where w and y are bitwidths and x and y are values.  They
-+   then pack them all together. We do a little better in that we allow
-+   them in words, longs, etc. and we'll pack them in target byte order
-+   for you.
-+
-+   The rules are: pack least significant bit first, if a field doesn't
-+   entirely fit, put it in the next unit.  Overflowing the bitfield is
-+   explicitly *not* even a warning.  The bitwidth should be considered
-+   a "mask".
-+
-+   To use this function the tc-XXX.h file should define
-+   BITFIELD_CONS_EXPRESSIONS.  */
-+
-+static void
-+parse_bitfield_cons (exp, nbytes)
-+     expressionS *exp;
-+     unsigned int nbytes;
-+{
-+  unsigned int bits_available = BITS_PER_CHAR * nbytes;
-+  char *hold = input_line_pointer;
-+
-+  (void) expression (exp);
-+
-+  if (*input_line_pointer == ':')
-+    {
-+      /* Bitfields.  */
-+      long value = 0;
-+
-+      for (;;)
-+      {
-+        unsigned long width;
-+
-+        if (*input_line_pointer != ':')
-+          {
-+            input_line_pointer = hold;
-+            break;
-+          }                   /* Next piece is not a bitfield.  */
-+
-+        /* In the general case, we can't allow
-+           full expressions with symbol
-+           differences and such.  The relocation
-+           entries for symbols not defined in this
-+           assembly would require arbitrary field
-+           widths, positions, and masks which most
-+           of our current object formats don't
-+           support.
-+
-+           In the specific case where a symbol
-+           *is* defined in this assembly, we
-+           *could* build fixups and track it, but
-+           this could lead to confusion for the
-+           backends.  I'm lazy. I'll take any
-+           SEG_ABSOLUTE. I think that means that
-+           you can use a previous .set or
-+           .equ type symbol.  xoxorich.  */
-+
-+        if (exp->X_op == O_absent)
-+          {
-+            as_warn (_("using a bit field width of zero"));
-+            exp->X_add_number = 0;
-+            exp->X_op = O_constant;
-+          }                   /* Implied zero width bitfield.  */
-+
-+        if (exp->X_op != O_constant)
-+          {
-+            *input_line_pointer = '\0';
-+            as_bad (_("field width \"%s\" too complex for a bitfield"), hold);
-+            *input_line_pointer = ':';
-+            demand_empty_rest_of_line ();
-+            return;
-+          }                   /* Too complex.  */
-+
-+        if ((width = exp->X_add_number) > (BITS_PER_CHAR * nbytes))
-+          {
-+            as_warn (_("field width %lu too big to fit in %d bytes: truncated 
to %d bits"),
-+                     width, nbytes, (BITS_PER_CHAR * nbytes));
-+            width = BITS_PER_CHAR * nbytes;
-+          }                   /* Too big.  */
-+
-+        if (width > bits_available)
-+          {
-+            /* FIXME-SOMEDAY: backing up and reparsing is wasteful.  */
-+            input_line_pointer = hold;
-+            exp->X_add_number = value;
-+            break;
-+          }                   /* Won't fit.  */
-+
-+        /* Skip ':'.  */
-+        hold = ++input_line_pointer;
-+
-+        (void) expression (exp);
-+        if (exp->X_op != O_constant)
-+          {
-+            char cache = *input_line_pointer;
-+
-+            *input_line_pointer = '\0';
-+            as_bad (_("field value \"%s\" too complex for a bitfield"), hold);
-+            *input_line_pointer = cache;
-+            demand_empty_rest_of_line ();
-+            return;
-+          }                   /* Too complex.  */
-+
-+        value |= ((~(-1 << width) & exp->X_add_number)
-+                  << ((BITS_PER_CHAR * nbytes) - bits_available));
-+
-+        if ((bits_available -= width) == 0
-+            || is_it_end_of_statement ()
-+            || *input_line_pointer != ',')
-+          {
-+            break;
-+          }                   /* All the bitfields we're gonna get.  */
-+
-+        hold = ++input_line_pointer;
-+        (void) expression (exp);
-+      }
-+
-+      exp->X_add_number = value;
-+      exp->X_op = O_constant;
-+      exp->X_unsigned = 1;
-+      exp->X_extrabit = 0;
-+    }
-+}
-+
-+#endif /* BITFIELD_CONS_EXPRESSIONS */
-+
-+/* Handle an MRI style string expression.  */
-+
-+#ifdef TC_M68K
-+static void
-+parse_mri_cons (expressionS *exp, unsigned int nbytes)
-+{
-+  if (*input_line_pointer != '\''
-+      && (input_line_pointer[1] != '\''
-+        || (*input_line_pointer != 'A'
-+            && *input_line_pointer != 'E')))
-+    (void) TC_PARSE_CONS_EXPRESSION (exp, nbytes);
-+  else
-+    {
-+      unsigned int scan;
-+      unsigned int result = 0;
-+
-+      /* An MRI style string.  Cut into as many bytes as will fit into
-+       a nbyte chunk, left justify if necessary, and separate with
-+       commas so we can try again later.  */
-+      if (*input_line_pointer == 'A')
-+      ++input_line_pointer;
-+      else if (*input_line_pointer == 'E')
-+      {
-+        as_bad (_("EBCDIC constants are not supported"));
-+        ++input_line_pointer;
-+      }
-+
-+      input_line_pointer++;
-+      for (scan = 0; scan < nbytes; scan++)
-+      {
-+        if (*input_line_pointer == '\'')
-+          {
-+            if (input_line_pointer[1] == '\'')
-+              {
-+                input_line_pointer++;
-+              }
-+            else
-+              break;
-+          }
-+        result = (result << 8) | (*input_line_pointer++);
-+      }
-+
-+      /* Left justify.  */
-+      while (scan < nbytes)
-+      {
-+        result <<= 8;
-+        scan++;
-+      }
-+
-+      /* Create correct expression.  */
-+      exp->X_op = O_constant;
-+      exp->X_add_number = result;
-+
-+      /* Fake it so that we can read the next char too.  */
-+      if (input_line_pointer[0] != '\'' ||
-+        (input_line_pointer[0] == '\'' && input_line_pointer[1] == '\''))
-+      {
-+        input_line_pointer -= 2;
-+        input_line_pointer[0] = ',';
-+        input_line_pointer[1] = '\'';
-+      }
-+      else
-+      input_line_pointer++;
-+    }
-+}
-+#endif /* TC_M68K */
-+
-+#ifdef REPEAT_CONS_EXPRESSIONS
-+
-+/* Parse a repeat expression for cons.  This is used by the MIPS
-+   assembler.  The format is NUMBER:COUNT; NUMBER appears in the
-+   object file COUNT times.
-+
-+   To use this for a target, define REPEAT_CONS_EXPRESSIONS.  */
-+
-+static void
-+parse_repeat_cons (exp, nbytes)
-+     expressionS *exp;
-+     unsigned int nbytes;
-+{
-+  expressionS count;
-+  int i;
-+
-+  expression (exp);
-+
-+  if (*input_line_pointer != ':')
-+    {
-+      /* No repeat count.  */
-+      return;
-+    }
-+
-+  ++input_line_pointer;
-+  expression (&count);
-+  if (count.X_op != O_constant
-+      || count.X_add_number <= 0)
-+    {
-+      as_warn (_("unresolvable or nonpositive repeat count; using 1"));
-+      return;
-+    }
-+
-+  /* The cons function is going to output this expression once.  So we
-+     output it count - 1 times.  */
-+  for (i = count.X_add_number - 1; i > 0; i--)
-+    emit_expr (exp, nbytes);
-+}
-+
-+#endif /* REPEAT_CONS_EXPRESSIONS */
-+
-+/* Parse a floating point number represented as a hex constant.  This
-+   permits users to specify the exact bits they want in the floating
-+   point number.  */
-+
-+static int
-+hex_float (int float_type, char *bytes)
-+{
-+  int length;
-+  int i;
-+
-+  switch (float_type)
-+    {
-+    case 'f':
-+    case 'F':
-+    case 's':
-+    case 'S':
-+      length = 4;
-+      break;
-+
-+    case 'd':
-+    case 'D':
-+    case 'r':
-+    case 'R':
-+      length = 8;
-+      break;
-+
-+    case 'x':
-+    case 'X':
-+      length = 12;
-+      break;
-+
-+    case 'p':
-+    case 'P':
-+      length = 12;
-+      break;
-+
-+    default:
-+      as_bad (_("unknown floating type type '%c'"), float_type);
-+      return -1;
-+    }
-+
-+  /* It would be nice if we could go through expression to parse the
-+     hex constant, but if we get a bignum it's a pain to sort it into
-+     the buffer correctly.  */
-+  i = 0;
-+  while (hex_p (*input_line_pointer) || *input_line_pointer == '_')
-+    {
-+      int d;
-+
-+      /* The MRI assembler accepts arbitrary underscores strewn about
-+       through the hex constant, so we ignore them as well.  */
-+      if (*input_line_pointer == '_')
-+      {
-+        ++input_line_pointer;
-+        continue;
-+      }
-+
-+      if (i >= length)
-+      {
-+        as_warn (_("floating point constant too large"));
-+        return -1;
-+      }
-+      d = hex_value (*input_line_pointer) << 4;
-+      ++input_line_pointer;
-+      while (*input_line_pointer == '_')
-+      ++input_line_pointer;
-+      if (hex_p (*input_line_pointer))
-+      {
-+        d += hex_value (*input_line_pointer);
-+        ++input_line_pointer;
-+      }
-+      if (target_big_endian)
-+      bytes[i] = d;
-+      else
-+      bytes[length - i - 1] = d;
-+      ++i;
-+    }
-+
-+  if (i < length)
-+    {
-+      if (target_big_endian)
-+      memset (bytes + i, 0, length - i);
-+      else
-+      memset (bytes, 0, length - i);
-+    }
-+
-+  return length;
-+}
-+
-+/*                    float_cons()
-+
-+   CONStruct some more frag chars of .floats .ffloats etc.
-+   Makes 0 or more new frags.
-+   If need_pass_2 == 1, no frags are emitted.
-+   This understands only floating literals, not expressions. Sorry.
-+
-+   A floating constant is defined by atof_generic(), except it is preceded
-+   by 0d 0f 0g or 0h. After observing the STRANGE way my BSD AS does its
-+   reading, I decided to be incompatible. This always tries to give you
-+   rounded bits to the precision of the pseudo-op. Former AS did premature
-+   truncation, restored noisy bits instead of trailing 0s AND gave you
-+   a choice of 2 flavours of noise according to which of 2 floating-point
-+   scanners you directed AS to use.
-+
-+   In:        input_line_pointer->whitespace before, or '0' of flonum.  */
-+
-+void
-+float_cons (/* Clobbers input_line-pointer, checks end-of-line.  */
-+          int float_type      /* 'f':.ffloat ... 'F':.float ...  */)
-+{
-+  char *p;
-+  int length;                 /* Number of chars in an object.  */
-+  char *err;          /* Error from scanning floating literal.  */
-+  char temp[MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT];
-+
-+  if (is_it_end_of_statement ())
-+    {
-+      demand_empty_rest_of_line ();
-+      return;
-+    }
-+
-+#ifdef md_flush_pending_output
-+  md_flush_pending_output ();
-+#endif
-+
-+#ifdef md_cons_align
-+  md_cons_align (1);
-+#endif
-+
-+  do
-+    {
-+      /* input_line_pointer->1st char of a flonum (we hope!).  */
-+      SKIP_WHITESPACE ();
-+
-+      /* Skip any 0{letter} that may be present. Don't even check if the
-+       letter is legal. Someone may invent a "z" format and this routine
-+       has no use for such information. Lusers beware: you get
-+       diagnostics if your input is ill-conditioned.  */
-+      if (input_line_pointer[0] == '0'
-+        && ISALPHA (input_line_pointer[1]))
-+      input_line_pointer += 2;
-+
-+      /* Accept :xxxx, where the x's are hex digits, for a floating
-+       point with the exact digits specified.  */
-+      if (input_line_pointer[0] == ':')
-+      {
-+        ++input_line_pointer;
-+        length = hex_float (float_type, temp);
-+        if (length < 0)
-+          {
-+            ignore_rest_of_line ();
-+            return;
-+          }
-+      }
-+      else
-+      {
-+        err = md_atof (float_type, temp, &length);
-+        know (length <= MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT);
-+        know (err != NULL || length > 0);
-+        if (err)
-+          {
-+            as_bad (_("bad floating literal: %s"), err);
-+            ignore_rest_of_line ();
-+            return;
-+          }
-+      }
-+
-+      if (!need_pass_2)
-+      {
-+        int count;
-+
-+        count = 1;
-+
-+#ifdef REPEAT_CONS_EXPRESSIONS
-+        if (*input_line_pointer == ':')
-+          {
-+            expressionS count_exp;
-+
-+            ++input_line_pointer;
-+            expression (&count_exp);
-+
-+            if (count_exp.X_op != O_constant
-+                || count_exp.X_add_number <= 0)
-+              as_warn (_("unresolvable or nonpositive repeat count; using 
1"));
-+            else
-+              count = count_exp.X_add_number;
-+          }
-+#endif
-+
-+        while (--count >= 0)
-+          {
-+            p = frag_more (length);
-+            memcpy (p, temp, (unsigned int) length);
-+          }
-+      }
-+      SKIP_WHITESPACE ();
-+    }
-+  while (*input_line_pointer++ == ',');
-+
-+  /* Put terminator back into stream.  */
-+  --input_line_pointer;
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* Return the size of a LEB128 value.  */
-+
-+static inline int
-+sizeof_sleb128 (offsetT value)
-+{
-+  int size = 0;
-+  unsigned byte;
-+
-+  do
-+    {
-+      byte = (value & 0x7f);
-+      /* Sadly, we cannot rely on typical arithmetic right shift behaviour.
-+       Fortunately, we can structure things so that the extra work reduces
-+       to a noop on systems that do things "properly".  */
-+      value = (value >> 7) | ~(-(offsetT)1 >> 7);
-+      size += 1;
-+    }
-+  while (!(((value == 0) && ((byte & 0x40) == 0))
-+         || ((value == -1) && ((byte & 0x40) != 0))));
-+
-+  return size;
-+}
-+
-+static inline int
-+sizeof_uleb128 (valueT value)
-+{
-+  int size = 0;
-+
-+  do
-+    {
-+      value >>= 7;
-+      size += 1;
-+    }
-+  while (value != 0);
-+
-+  return size;
-+}
-+
-+int
-+sizeof_leb128 (valueT value, int sign)
-+{
-+  if (sign)
-+    return sizeof_sleb128 ((offsetT) value);
-+  else
-+    return sizeof_uleb128 (value);
-+}
-+
-+/* Output a LEB128 value.  */
-+
-+static inline int
-+output_sleb128 (char *p, offsetT value)
-+{
-+  char *orig = p;
-+  int more;
-+
-+  do
-+    {
-+      unsigned byte = (value & 0x7f);
-+
-+      /* Sadly, we cannot rely on typical arithmetic right shift behaviour.
-+       Fortunately, we can structure things so that the extra work reduces
-+       to a noop on systems that do things "properly".  */
-+      value = (value >> 7) | ~(-(offsetT)1 >> 7);
-+
-+      more = !((((value == 0) && ((byte & 0x40) == 0))
-+              || ((value == -1) && ((byte & 0x40) != 0))));
-+      if (more)
-+      byte |= 0x80;
-+
-+      *p++ = byte;
-+    }
-+  while (more);
-+
-+  return p - orig;
-+}
-+
-+static inline int
-+output_uleb128 (char *p, valueT value)
-+{
-+  char *orig = p;
-+
-+  do
-+    {
-+      unsigned byte = (value & 0x7f);
-+      value >>= 7;
-+      if (value != 0)
-+      /* More bytes to follow.  */
-+      byte |= 0x80;
-+
-+      *p++ = byte;
-+    }
-+  while (value != 0);
-+
-+  return p - orig;
-+}
-+
-+int
-+output_leb128 (char *p, valueT value, int sign)
-+{
-+  if (sign)
-+    return output_sleb128 (p, (offsetT) value);
-+  else
-+    return output_uleb128 (p, value);
-+}
-+
-+/* Do the same for bignums.  We combine sizeof with output here in that
-+   we don't output for NULL values of P.  It isn't really as critical as
-+   for "normal" values that this be streamlined.  */
-+
-+static inline int
-+output_big_sleb128 (char *p, LITTLENUM_TYPE *bignum, int size)
-+{
-+  char *orig = p;
-+  valueT val = 0;
-+  int loaded = 0;
-+  unsigned byte;
-+
-+  /* Strip leading sign extensions off the bignum.  */
-+  while (size > 1
-+       && bignum[size - 1] == LITTLENUM_MASK
-+       && bignum[size - 2] > LITTLENUM_MASK / 2)
-+    size--;
-+
-+  do
-+    {
-+      /* OR in the next part of the littlenum.  */
-+      val |= (*bignum << loaded);
-+      loaded += LITTLENUM_NUMBER_OF_BITS;
-+      size--;
-+      bignum++;
-+
-+      /* Add bytes until there are less than 7 bits left in VAL
-+       or until every non-sign bit has been written.  */
-+      do
-+      {
-+        byte = val & 0x7f;
-+        loaded -= 7;
-+        val >>= 7;
-+        if (size > 0
-+            || val != ((byte & 0x40) == 0 ? 0 : ((valueT) 1 << loaded) - 1))
-+          byte |= 0x80;
-+
-+        if (orig)
-+          *p = byte;
-+        p++;
-+      }
-+      while ((byte & 0x80) != 0 && loaded >= 7);
-+    }
-+  while (size > 0);
-+
-+  /* Mop up any left-over bits (of which there will be less than 7).  */
-+  if ((byte & 0x80) != 0)
-+    {
-+      /* Sign-extend VAL.  */
-+      if (val & (1 << (loaded - 1)))
-+      val |= ~0 << loaded;
-+      if (orig)
-+      *p = val & 0x7f;
-+      p++;
-+    }
-+
-+  return p - orig;
-+}
-+
-+static inline int
-+output_big_uleb128 (char *p, LITTLENUM_TYPE *bignum, int size)
-+{
-+  char *orig = p;
-+  valueT val = 0;
-+  int loaded = 0;
-+  unsigned byte;
-+
-+  /* Strip leading zeros off the bignum.  */
-+  /* XXX: Is this needed?  */
-+  while (size > 0 && bignum[size - 1] == 0)
-+    size--;
-+
-+  do
-+    {
-+      if (loaded < 7 && size > 0)
-+      {
-+        val |= (*bignum << loaded);
-+        loaded += 8 * CHARS_PER_LITTLENUM;
-+        size--;
-+        bignum++;
-+      }
-+
-+      byte = val & 0x7f;
-+      loaded -= 7;
-+      val >>= 7;
-+
-+      if (size > 0 || val)
-+      byte |= 0x80;
-+
-+      if (orig)
-+      *p = byte;
-+      p++;
-+    }
-+  while (byte & 0x80);
-+
-+  return p - orig;
-+}
-+
-+static int
-+output_big_leb128 (char *p, LITTLENUM_TYPE *bignum, int size, int sign)
-+{
-+  if (sign)
-+    return output_big_sleb128 (p, bignum, size);
-+  else
-+    return output_big_uleb128 (p, bignum, size);
-+}
-+
-+/* Generate the appropriate fragments for a given expression to emit a
-+   leb128 value.  */
-+
-+static void
-+emit_leb128_expr (expressionS *exp, int sign)
-+{
-+  operatorT op = exp->X_op;
-+  unsigned int nbytes;
-+
-+  if (op == O_absent || op == O_illegal)
-+    {
-+      as_warn (_("zero assumed for missing expression"));
-+      exp->X_add_number = 0;
-+      op = O_constant;
-+    }
-+  else if (op == O_big && exp->X_add_number <= 0)
-+    {
-+      as_bad (_("floating point number invalid"));
-+      exp->X_add_number = 0;
-+      op = O_constant;
-+    }
-+  else if (op == O_register)
-+    {
-+      as_warn (_("register value used as expression"));
-+      op = O_constant;
-+    }
-+  else if (op == O_constant
-+         && sign
-+         && (exp->X_add_number < 0) == !exp->X_extrabit)
-+    {
-+      /* We're outputting a signed leb128 and the sign of X_add_number
-+       doesn't reflect the sign of the original value.  Convert EXP
-+       to a correctly-extended bignum instead.  */
-+      convert_to_bignum (exp, exp->X_extrabit);
-+      op = O_big;
-+    }
-+
-+  /* Let check_eh_frame know that data is being emitted.  nbytes == -1 is
-+     a signal that this is leb128 data.  It shouldn't optimize this away.  */
-+  nbytes = (unsigned int) -1;
-+  if (check_eh_frame (exp, &nbytes))
-+    abort ();
-+
-+  /* Let the backend know that subsequent data may be byte aligned.  */
-+#ifdef md_cons_align
-+  md_cons_align (1);
-+#endif
-+
-+  if (op == O_constant)
-+    {
-+      /* If we've got a constant, emit the thing directly right now.  */
-+
-+      valueT value = exp->X_add_number;
-+      int size;
-+      char *p;
-+
-+      size = sizeof_leb128 (value, sign);
-+      p = frag_more (size);
-+      output_leb128 (p, value, sign);
-+    }
-+  else if (op == O_big)
-+    {
-+      /* O_big is a different sort of constant.  */
-+
-+      int size;
-+      char *p;
-+
-+      size = output_big_leb128 (NULL, generic_bignum, exp->X_add_number, 
sign);
-+      p = frag_more (size);
-+      output_big_leb128 (p, generic_bignum, exp->X_add_number, sign);
-+    }
-+  else
-+    {
-+      /* Otherwise, we have to create a variable sized fragment and
-+       resolve things later.  */
-+
-+      frag_var (rs_leb128, sizeof_uleb128 (~(valueT) 0), 0, sign,
-+              make_expr_symbol (exp), 0, (char *) NULL);
-+    }
-+}
-+
-+/* Parse the .sleb128 and .uleb128 pseudos.  */
-+
-+void
-+s_leb128 (int sign)
-+{
-+  expressionS exp;
-+
-+#ifdef md_flush_pending_output
-+  md_flush_pending_output ();
-+#endif
-+
-+  do
-+    {
-+      expression (&exp);
-+      emit_leb128_expr (&exp, sign);
-+    }
-+  while (*input_line_pointer++ == ',');
-+
-+  input_line_pointer--;
-+  demand_empty_rest_of_line ();
-+}
-+
-+static void
-+stringer_append_char (int c, int bitsize)
-+{
-+  if (!target_big_endian)
-+    FRAG_APPEND_1_CHAR (c);
-+
-+  switch (bitsize)
-+    {
-+    case 64:
-+      FRAG_APPEND_1_CHAR (0);
-+      FRAG_APPEND_1_CHAR (0);
-+      FRAG_APPEND_1_CHAR (0);
-+      FRAG_APPEND_1_CHAR (0);
-+      /* Fall through.  */
-+    case 32:
-+      FRAG_APPEND_1_CHAR (0);
-+      FRAG_APPEND_1_CHAR (0);
-+      /* Fall through.  */
-+    case 16:
-+      FRAG_APPEND_1_CHAR (0);
-+      /* Fall through.  */
-+    case 8:
-+      break;
-+    default:
-+      /* Called with invalid bitsize argument.  */
-+      abort ();
-+      break;
-+    }
-+  if (target_big_endian)
-+    FRAG_APPEND_1_CHAR (c);
-+}
-+
-+/* Worker to do .ascii etc statements.
-+   Reads 0 or more ',' separated, double-quoted strings.
-+   Caller should have checked need_pass_2 is FALSE because we don't
-+   check it.
-+   Checks for end-of-line.
-+   BITS_APPENDZERO says how many bits are in a target char.
-+   The bottom bit is set if a NUL char should be appended to the strings.  */
-+
-+void
-+stringer (int bits_appendzero)
-+{
-+  const int bitsize = bits_appendzero & ~7;
-+  const int append_zero = bits_appendzero & 1;
-+  unsigned int c;
-+#if !defined(NO_LISTING) && defined (OBJ_ELF)
-+  char *start;
-+#endif
-+
-+#ifdef md_flush_pending_output
-+  md_flush_pending_output ();
-+#endif
-+
-+#ifdef md_cons_align
-+  md_cons_align (1);
-+#endif
-+
-+  /* The following awkward logic is to parse ZERO or more strings,
-+     comma separated. Recall a string expression includes spaces
-+     before the opening '\"' and spaces after the closing '\"'.
-+     We fake a leading ',' if there is (supposed to be)
-+     a 1st, expression. We keep demanding expressions for each ','.  */
-+  if (is_it_end_of_statement ())
-+    {
-+      c = 0;                  /* Skip loop.  */
-+      ++input_line_pointer;   /* Compensate for end of loop.  */
-+    }
-+  else
-+    {
-+      c = ',';                        /* Do loop.  */
-+    }
-+  /* If we have been switched into the abs_section then we
-+     will not have an obstack onto which we can hang strings.  */
-+  if (now_seg == absolute_section)
-+    {
-+      as_bad (_("strings must be placed into a section"));
-+      c = 0;
-+      ignore_rest_of_line ();
-+    }
-+
-+  while (c == ',' || c == '<' || c == '"')
-+    {
-+      SKIP_WHITESPACE ();
-+      switch (*input_line_pointer)
-+      {
-+      case '\"':
-+        ++input_line_pointer; /*->1st char of string.  */
-+#if !defined(NO_LISTING) && defined (OBJ_ELF)
-+        start = input_line_pointer;
-+#endif
-+
-+        while (is_a_char (c = next_char_of_string ()))
-+          stringer_append_char (c, bitsize);
-+
-+        if (append_zero)
-+          stringer_append_char (0, bitsize);
-+
-+        know (input_line_pointer[-1] == '\"');
-+
-+#if !defined(NO_LISTING) && defined (OBJ_ELF)
-+        /* In ELF, when gcc is emitting DWARF 1 debugging output, it
-+           will emit .string with a filename in the .debug section
-+           after a sequence of constants.  See the comment in
-+           emit_expr for the sequence.  emit_expr will set
-+           dwarf_file_string to non-zero if this string might be a
-+           source file name.  */
-+        if (strcmp (segment_name (now_seg), ".debug") != 0)
-+          dwarf_file_string = 0;
-+        else if (dwarf_file_string)
-+          {
-+            c = input_line_pointer[-1];
-+            input_line_pointer[-1] = '\0';
-+            listing_source_file (start);
-+            input_line_pointer[-1] = c;
-+          }
-+#endif
-+
-+        break;
-+      case '<':
-+        input_line_pointer++;
-+        c = get_single_number ();
-+        stringer_append_char (c, bitsize);
-+        if (*input_line_pointer != '>')
-+          as_bad (_("expected <nn>"));
-+
-+        input_line_pointer++;
-+        break;
-+      case ',':
-+        input_line_pointer++;
-+        break;
-+      }
-+      SKIP_WHITESPACE ();
-+      c = *input_line_pointer;
-+    }
-+
-+  demand_empty_rest_of_line ();
-+}
-+
-+/* FIXME-SOMEDAY: I had trouble here on characters with the
-+    high bits set.  We'll probably also have trouble with
-+    multibyte chars, wide chars, etc.  Also be careful about
-+    returning values bigger than 1 byte.  xoxorich.  */
-+
-+unsigned int
-+next_char_of_string (void)
-+{
-+  unsigned int c;
-+
-+  c = *input_line_pointer++ & CHAR_MASK;
-+  switch (c)
-+    {
-+    case '\"':
-+      c = NOT_A_CHAR;
-+      break;
-+
-+    case '\n':
-+      as_warn (_("unterminated string; newline inserted"));
-+      bump_line_counters ();
-+      break;
-+
-+#ifndef NO_STRING_ESCAPES
-+    case '\\':
-+      switch (c = *input_line_pointer++)
-+      {
-+      case 'b':
-+        c = '\b';
-+        break;
-+
-+      case 'f':
-+        c = '\f';
-+        break;
-+
-+      case 'n':
-+        c = '\n';
-+        break;
-+
-+      case 'r':
-+        c = '\r';
-+        break;
-+
-+      case 't':
-+        c = '\t';
-+        break;
-+
-+      case 'v':
-+        c = '\013';
-+        break;
-+
-+      case '\\':
-+      case '"':
-+        break;                /* As itself.  */
-+
-+      case '0':
-+      case '1':
-+      case '2':
-+      case '3':
-+      case '4':
-+      case '5':
-+      case '6':
-+      case '7':
-+      case '8':
-+      case '9':
-+        {
-+          long number;
-+          int i;
-+
-+          for (i = 0, number = 0;
-+               ISDIGIT (c) && i < 3;
-+               c = *input_line_pointer++, i++)
-+            {
-+              number = number * 8 + c - '0';
-+            }
-+
-+          c = number & 0xff;
-+        }
-+        --input_line_pointer;
-+        break;
-+
-+      case 'x':
-+      case 'X':
-+        {
-+          long number;
-+
-+          number = 0;
-+          c = *input_line_pointer++;
-+          while (ISXDIGIT (c))
-+            {
-+              if (ISDIGIT (c))
-+                number = number * 16 + c - '0';
-+              else if (ISUPPER (c))
-+                number = number * 16 + c - 'A' + 10;
-+              else
-+                number = number * 16 + c - 'a' + 10;
-+              c = *input_line_pointer++;
-+            }
-+          c = number & 0xff;
-+          --input_line_pointer;
-+        }
-+        break;
-+
-+      case '\n':
-+        /* To be compatible with BSD 4.2 as: give the luser a linefeed!!  */
-+        as_warn (_("unterminated string; newline inserted"));
-+        c = '\n';
-+        bump_line_counters ();
-+        break;
-+
-+      default:
-+
-+#ifdef ONLY_STANDARD_ESCAPES
-+        as_bad (_("bad escaped character in string"));
-+        c = '?';
-+#endif /* ONLY_STANDARD_ESCAPES */
-+
-+        break;
-+      }
-+      break;
-+#endif /* ! defined (NO_STRING_ESCAPES) */
-+
-+    default:
-+      break;
-+    }
-+  return (c);
-+}
-+
-+static segT
-+get_segmented_expression (expressionS *expP)
-+{
-+  segT retval;
-+
-+  retval = expression (expP);
-+  if (expP->X_op == O_illegal
-+      || expP->X_op == O_absent
-+      || expP->X_op == O_big)
-+    {
-+      as_bad (_("expected address expression"));
-+      expP->X_op = O_constant;
-+      expP->X_add_number = 0;
-+      retval = absolute_section;
-+    }
-+  return retval;
-+}
-+
-+static segT
-+get_known_segmented_expression (expressionS *expP)
-+{
-+  segT retval = get_segmented_expression (expP);
-+
-+  if (retval == undefined_section)
-+    {
-+      /* There is no easy way to extract the undefined symbol from the
-+       expression.  */
-+      if (expP->X_add_symbol != NULL
-+        && S_GET_SEGMENT (expP->X_add_symbol) != expr_section)
-+      as_warn (_("symbol \"%s\" undefined; zero assumed"),
-+               S_GET_NAME (expP->X_add_symbol));
-+      else
-+      as_warn (_("some symbol undefined; zero assumed"));
-+      retval = absolute_section;
-+      expP->X_op = O_constant;
-+      expP->X_add_number = 0;
-+    }
-+  return retval;
-+}
-+
-+char                          /* Return terminator.  */
-+get_absolute_expression_and_terminator (long *val_pointer /* Return value of 
expression.  */)
-+{
-+  /* FIXME: val_pointer should probably be offsetT *.  */
-+  *val_pointer = (long) get_absolute_expression ();
-+  return (*input_line_pointer++);
-+}
-+
-+/* Like demand_copy_string, but return NULL if the string contains any '\0's.
-+   Give a warning if that happens.  */
-+
-+char *
-+demand_copy_C_string (int *len_pointer)
-+{
-+  char *s;
-+
-+  if ((s = demand_copy_string (len_pointer)) != 0)
-+    {
-+      int len;
-+
-+      for (len = *len_pointer; len > 0; len--)
-+      {
-+        if (*s == 0)
-+          {
-+            s = 0;
-+            len = 1;
-+            *len_pointer = 0;
-+            as_bad (_("this string may not contain \'\\0\'"));
-+          }
-+      }
-+    }
-+
-+  return s;
-+}
-+
-+/* Demand string, but return a safe (=private) copy of the string.
-+   Return NULL if we can't read a string here.  */
-+
-+char *
-+demand_copy_string (int *lenP)
-+{
-+  unsigned int c;
-+  int len;
-+  char *retval;
-+
-+  len = 0;
-+  SKIP_WHITESPACE ();
-+  if (*input_line_pointer == '\"')
-+    {
-+      input_line_pointer++;   /* Skip opening quote.  */
-+
-+      while (is_a_char (c = next_char_of_string ()))
-+      {
-+        obstack_1grow (&notes, c);
-+        len++;
-+      }
-+      /* JF this next line is so demand_copy_C_string will return a
-+       null terminated string.  */
-+      obstack_1grow (&notes, '\0');
-+      retval = (char *) obstack_finish (&notes);
-+    }
-+  else
-+    {
-+      as_bad (_("missing string"));
-+      retval = NULL;
-+      ignore_rest_of_line ();
-+    }
-+  *lenP = len;
-+  return (retval);
-+}
-+
-+/* In:        Input_line_pointer->next character.
-+
-+   Do:        Skip input_line_pointer over all whitespace.
-+
-+   Out:       1 if input_line_pointer->end-of-line.  */
-+
-+int
-+is_it_end_of_statement (void)
-+{
-+  SKIP_WHITESPACE ();
-+  return (is_end_of_line[(unsigned char) *input_line_pointer]);
-+}
-+
-+void
-+equals (char *sym_name, int reassign)
-+{
-+  char *stop = NULL;
-+  char stopc = 0;
-+
-+  input_line_pointer++;
-+  if (*input_line_pointer == '=')
-+    input_line_pointer++;
-+  if (reassign < 0 && *input_line_pointer == '=')
-+    input_line_pointer++;
-+
-+  while (*input_line_pointer == ' ' || *input_line_pointer == '\t')
-+    input_line_pointer++;
-+
-+  if (flag_mri)
-+    stop = mri_comment_field (&stopc);
-+
-+  assign_symbol (sym_name, reassign >= 0 ? !reassign : reassign);
-+
-+  if (flag_mri)
-+    {
-+      demand_empty_rest_of_line ();
-+      mri_comment_end (stop, stopc);
-+    }
-+}
-+
-+/* .incbin -- include a file verbatim at the current location.  */
-+
-+void
-+s_incbin (int x ATTRIBUTE_UNUSED)
-+{
-+  FILE * binfile;
-+  char * path;
-+  char * filename;
-+  char * binfrag;
-+  long   skip = 0;
-+  long   count = 0;
-+  long   bytes;
-+  int    len;
-+
-+#ifdef md_flush_pending_output
-+  md_flush_pending_output ();
-+#endif
-+
-+#ifdef md_cons_align
-+  md_cons_align (1);
-+#endif
-+
-+  SKIP_WHITESPACE ();
-+  filename = demand_copy_string (& len);
-+  if (filename == NULL)
-+    return;
-+
-+  SKIP_WHITESPACE ();
-+
-+  /* Look for optional skip and count.  */
-+  if (* input_line_pointer == ',')
-+    {
-+      ++ input_line_pointer;
-+      skip = get_absolute_expression ();
-+
-+      SKIP_WHITESPACE ();
-+
-+      if (* input_line_pointer == ',')
-+      {
-+        ++ input_line_pointer;
-+
-+        count = get_absolute_expression ();
-+        if (count == 0)
-+          as_warn (_(".incbin count zero, ignoring `%s'"), filename);
-+
-+        SKIP_WHITESPACE ();
-+      }
-+    }
-+
-+  demand_empty_rest_of_line ();
-+
-+  /* Try opening absolute path first, then try include dirs.  */
-+  binfile = fopen (filename, FOPEN_RB);
-+  if (binfile == NULL)
-+    {
-+      int i;
-+
-+      path = (char *) xmalloc ((unsigned long) len + include_dir_maxlen + 5);
-+
-+      for (i = 0; i < include_dir_count; i++)
-+      {
-+        sprintf (path, "%s/%s", include_dirs[i], filename);
-+
-+        binfile = fopen (path, FOPEN_RB);
-+        if (binfile != NULL)
-+          break;
-+      }
-+
-+      if (binfile == NULL)
-+      as_bad (_("file not found: %s"), filename);
-+    }
-+  else
-+    path = xstrdup (filename);
-+
-+  if (binfile)
-+    {
-+      long   file_len;
-+
-+      register_dependency (path);
-+
-+      /* Compute the length of the file.  */
-+      if (fseek (binfile, 0, SEEK_END) != 0)
-+      {
-+        as_bad (_("seek to end of .incbin file failed `%s'"), path);
-+        goto done;
-+      }
-+      file_len = ftell (binfile);
-+
-+      /* If a count was not specified use the remainder of the file.  */
-+      if (count == 0)
-+      count = file_len - skip;
-+
-+      if (skip < 0 || count < 0 || file_len < 0 || skip + count > file_len)
-+      {
-+        as_bad (_("skip (%ld) or count (%ld) invalid for file size (%ld)"),
-+                skip, count, file_len);
-+        goto done;
-+      }
-+
-+      if (fseek (binfile, skip, SEEK_SET) != 0)
-+      {
-+        as_bad (_("could not skip to %ld in file `%s'"), skip, path);
-+        goto done;
-+      }
-+
-+      /* Allocate frag space and store file contents in it.  */
-+      binfrag = frag_more (count);
-+
-+      bytes = fread (binfrag, 1, count, binfile);
-+      if (bytes < count)
-+      as_warn (_("truncated file `%s', %ld of %ld bytes read"),
-+               path, bytes, count);
-+    }
-+done:
-+  if (binfile != NULL)
-+    fclose (binfile);
-+  if (path)
-+    free (path);
-+}
-+
-+/* .include -- include a file at this point.  */
-+
-+void
-+s_include (int arg ATTRIBUTE_UNUSED)
-+{
-+  char *filename;
-+  int i;
-+  FILE *try_file;
-+  char *path;
-+
-+  if (!flag_m68k_mri)
-+    {
-+      filename = demand_copy_string (&i);
-+      if (filename == NULL)
-+      {
-+        /* demand_copy_string has already printed an error and
-+           called ignore_rest_of_line.  */
-+        return;
-+      }
-+    }
-+  else
-+    {
-+      SKIP_WHITESPACE ();
-+      i = 0;
-+      while (!is_end_of_line[(unsigned char) *input_line_pointer]
-+           && *input_line_pointer != ' '
-+           && *input_line_pointer != '\t')
-+      {
-+        obstack_1grow (&notes, *input_line_pointer);
-+        ++input_line_pointer;
-+        ++i;
-+      }
-+
-+      obstack_1grow (&notes, '\0');
-+      filename = (char *) obstack_finish (&notes);
-+      while (!is_end_of_line[(unsigned char) *input_line_pointer])
-+      ++input_line_pointer;
-+    }
-+
-+  demand_empty_rest_of_line ();
-+  path = (char *) xmalloc ((unsigned long) i
-+                         + include_dir_maxlen + 5 /* slop */ );
-+
-+  for (i = 0; i < include_dir_count; i++)
-+    {
-+      strcpy (path, include_dirs[i]);
-+      strcat (path, "/");
-+      strcat (path, filename);
-+      if (0 != (try_file = fopen (path, FOPEN_RT)))
-+      {
-+        fclose (try_file);
-+        goto gotit;
-+      }
-+    }
-+
-+  free (path);
-+  path = filename;
-+gotit:
-+  /* malloc Storage leak when file is found on path.  FIXME-SOMEDAY.  */
-+  register_dependency (path);
-+  input_scrub_insert_file (path);
-+}
-+
-+void
-+add_include_dir (char *path)
-+{
-+  int i;
-+
-+  if (include_dir_count == 0)
-+    {
-+      include_dirs = (char **) xmalloc (2 * sizeof (*include_dirs));
-+      include_dirs[0] = ".";  /* Current dir.  */
-+      include_dir_count = 2;
-+    }
-+  else
-+    {
-+      include_dir_count++;
-+      include_dirs =
-+      (char **) xrealloc (include_dirs,
-+                          include_dir_count * sizeof (*include_dirs));
-+    }
-+
-+  include_dirs[include_dir_count - 1] = path; /* New one.  */
-+
-+  i = strlen (path);
-+  if (i > include_dir_maxlen)
-+    include_dir_maxlen = i;
-+}
-+
-+/* Output debugging information to denote the source file.  */
-+
-+static void
-+generate_file_debug (void)
-+{
-+  if (debug_type == DEBUG_STABS)
-+    stabs_generate_asm_file ();
-+}
-+
-+/* Output line number debugging information for the current source line.  */
-+
-+void
-+generate_lineno_debug (void)
-+{
-+  switch (debug_type)
-+    {
-+    case DEBUG_UNSPECIFIED:
-+    case DEBUG_NONE:
-+    case DEBUG_DWARF:
-+      break;
-+    case DEBUG_STABS:
-+      stabs_generate_asm_lineno ();
-+      break;
-+    case DEBUG_ECOFF:
-+      ecoff_generate_asm_lineno ();
-+      break;
-+    case DEBUG_DWARF2:
-+      /* ??? We could here indicate to dwarf2dbg.c that something
-+       has changed.  However, since there is additional backend
-+       support that is required (calling dwarf2_emit_insn), we
-+       let dwarf2dbg.c call as_where on its own.  */
-+      break;
-+    }
-+}
-+
-+/* Output debugging information to mark a function entry point or end point.
-+   END_P is zero for .func, and non-zero for .endfunc.  */
-+
-+void
-+s_func (int end_p)
-+{
-+  do_s_func (end_p, NULL);
-+}
-+
-+/* Subroutine of s_func so targets can choose a different default prefix.
-+   If DEFAULT_PREFIX is NULL, use the target's "leading char".  */
-+
-+static void
-+do_s_func (int end_p, const char *default_prefix)
-+{
-+  /* Record the current function so that we can issue an error message for
-+     misplaced .func,.endfunc, and also so that .endfunc needs no
-+     arguments.  */
-+  static char *current_name;
-+  static char *current_label;
-+
-+  if (end_p)
-+    {
-+      if (current_name == NULL)
-+      {
-+        as_bad (_("missing .func"));
-+        ignore_rest_of_line ();
-+        return;
-+      }
-+
-+      if (debug_type == DEBUG_STABS)
-+      stabs_generate_asm_endfunc (current_name, current_label);
-+
-+      current_name = current_label = NULL;
-+    }
-+  else /* ! end_p */
-+    {
-+      char *name, *label;
-+      char delim1, delim2;
-+
-+      if (current_name != NULL)
-+      {
-+        as_bad (_(".endfunc missing for previous .func"));
-+        ignore_rest_of_line ();
-+        return;
-+      }
-+
-+      name = input_line_pointer;
-+      delim1 = get_symbol_end ();
-+      name = xstrdup (name);
-+      *input_line_pointer = delim1;
-+      SKIP_WHITESPACE ();
-+      if (*input_line_pointer != ',')
-+      {
-+        if (default_prefix)
-+          {
-+            if (asprintf (&label, "%s%s", default_prefix, name) == -1)
-+              as_fatal ("%s", xstrerror (errno));
-+          }
-+        else
-+          {
-+            char leading_char = bfd_get_symbol_leading_char (stdoutput);
-+            /* Missing entry point, use function's name with the leading
-+               char prepended.  */
-+            if (leading_char)
-+              {
-+                if (asprintf (&label, "%c%s", leading_char, name) == -1)
-+                  as_fatal ("%s", xstrerror (errno));
-+              }
-+            else
-+              label = name;
-+          }
-+      }
-+      else
-+      {
-+        ++input_line_pointer;
-+        SKIP_WHITESPACE ();
-+        label = input_line_pointer;
-+        delim2 = get_symbol_end ();
-+        label = xstrdup (label);
-+        *input_line_pointer = delim2;
-+      }
-+
-+      if (debug_type == DEBUG_STABS)
-+      stabs_generate_asm_func (name, label);
-+
-+      current_name = name;
-+      current_label = label;
-+    }
-+
-+  demand_empty_rest_of_line ();
-+}
-+
-+#ifdef HANDLE_BUNDLE
-+
-+void
-+s_bundle_align_mode (int arg ATTRIBUTE_UNUSED)
-+{
-+  unsigned int align = get_absolute_expression ();
-+  SKIP_WHITESPACE ();
-+  demand_empty_rest_of_line ();
-+
-+  if (align > (unsigned int) TC_ALIGN_LIMIT)
-+    as_fatal (_(".bundle_align_mode alignment too large (maximum %u)"),
-+            (unsigned int) TC_ALIGN_LIMIT);
-+
-+  if (bundle_lock_frag != NULL)
-+    {
-+      as_bad (_("cannot change .bundle_align_mode inside .bundle_lock"));
-+      return;
-+    }
-+
-+  bundle_align_p2 = align;
-+}
-+
-+void
-+s_bundle_lock (int arg ATTRIBUTE_UNUSED)
-+{
-+  demand_empty_rest_of_line ();
-+
-+  if (bundle_align_p2 == 0)
-+    {
-+      as_bad (_(".bundle_lock is meaningless without .bundle_align_mode"));
-+      return;
-+    }
-+
-+  if (bundle_lock_depth == 0)
-+    {
-+      bundle_lock_frchain = frchain_now;
-+      bundle_lock_frag = start_bundle ();
-+    }
-+  ++bundle_lock_depth;
-+}
-+
-+void
-+s_bundle_unlock (int arg ATTRIBUTE_UNUSED)
-+{
-+  unsigned int size;
-+
-+  demand_empty_rest_of_line ();
-+
-+  if (bundle_lock_frag == NULL)
-+    {
-+      as_bad (_(".bundle_unlock without preceding .bundle_lock"));
-+      return;
-+    }
-+
-+  gas_assert (bundle_align_p2 > 0);
-+
-+  gas_assert (bundle_lock_depth > 0);
-+  if (--bundle_lock_depth > 0)
-+    return;
-+
-+  size = pending_bundle_size (bundle_lock_frag);
-+
-+  if (size > (1U << bundle_align_p2))
-+    as_bad (_(".bundle_lock sequence is %u bytes, but bundle size only %u"),
-+          size, 1 << bundle_align_p2);
-+  else
-+    finish_bundle (bundle_lock_frag, size);
-+
-+  bundle_lock_frag = NULL;
-+  bundle_lock_frchain = NULL;
-+}
-+
-+#endif  /* HANDLE_BUNDLE */
-+
-+void
-+s_ignore (int arg ATTRIBUTE_UNUSED)
-+{
-+  ignore_rest_of_line ();
-+}
-+
-+void
-+read_print_statistics (FILE *file)
-+{
-+  hash_print_statistics (file, "pseudo-op table", po_hash);
-+}
-+
-+/* Inserts the given line into the input stream.
-+
-+   This call avoids macro/conditionals nesting checking, since the contents of
-+   the line are assumed to replace the contents of a line already scanned.
-+
-+   An appropriate use of this function would be substitution of input lines 
when
-+   called by md_start_line_hook().  The given line is assumed to already be
-+   properly scrubbed.  */
-+
-+void
-+input_scrub_insert_line (const char *line)
-+{
-+  sb newline;
-+  size_t len = strlen (line);
-+  sb_build (&newline, len);
-+  sb_add_buffer (&newline, line, len);
-+  input_scrub_include_sb (&newline, input_line_pointer, 0);
-+  sb_kill (&newline);
-+  buffer_limit = input_scrub_next_buffer (&input_line_pointer);
-+}
-+
-+/* Insert a file into the input stream; the path must resolve to an actual
-+   file; no include path searching or dependency registering is performed.  */
-+
-+void
-+input_scrub_insert_file (char *path)
-+{
-+  input_scrub_include_file (path, input_line_pointer);
-+  buffer_limit = input_scrub_next_buffer (&input_line_pointer);
-+}
-+
-+/* Find the end of a line, considering quotation and escaping of quotes.  */
-+
-+#if !defined(TC_SINGLE_QUOTE_STRINGS) && defined(SINGLE_QUOTE_STRINGS)
-+# define TC_SINGLE_QUOTE_STRINGS 1
-+#endif
-+
-+static char *
-+_find_end_of_line (char *s, int mri_string, int insn ATTRIBUTE_UNUSED,
-+                 int in_macro)
-+{
-+  char inquote = '\0';
-+  int inescape = 0;
-+
-+  while (!is_end_of_line[(unsigned char) *s]
-+       || (inquote && !ISCNTRL (*s))
-+       || (inquote == '\'' && flag_mri)
-+#ifdef TC_EOL_IN_INSN
-+       || (insn && TC_EOL_IN_INSN (s))
-+#endif
-+       /* PR 6926:  When we are parsing the body of a macro the sequence
-+          \@ is special - it refers to the invocation count.  If the @
-+          character happens to be registered as a line-separator character
-+          by the target, then the is_end_of_line[] test above will have
-+          returned true, but we need to ignore the line separating
-+          semantics in this particular case.  */
-+       || (in_macro && inescape && *s == '@')
-+      )
-+    {
-+      if (mri_string && *s == '\'')
-+      inquote ^= *s;
-+      else if (inescape)
-+      inescape = 0;
-+      else if (*s == '\\')
-+      inescape = 1;
-+      else if (!inquote
-+             ? *s == '"'
-+#ifdef TC_SINGLE_QUOTE_STRINGS
-+               || (TC_SINGLE_QUOTE_STRINGS && *s == '\'')
-+#endif
-+             : *s == inquote)
-+      inquote ^= *s;
-+      ++s;
-+    }
-+  if (inquote)
-+    as_warn (_("missing closing `%c'"), inquote);
-+  if (inescape)
-+    as_warn (_("stray `\\'"));
-+  return s;
-+}
-+
-+char *
-+find_end_of_line (char *s, int mri_string)
-+{
-+  return _find_end_of_line (s, mri_string, 0, 0);
-+}
-diff -purN -x config.status -x config.h -x BOOT 
../binutils-2.25/libiberty/md5.c binutils-2.25/libiberty/md5.c
---- ../binutils-2.25/libiberty/md5.c   2013-11-04 16:33:40.000000000 +0100
-+++ binutils-2.25/libiberty/md5.c      2018-06-10 09:52:09.116605214 +0200
-@@ -1,6 +1,6 @@
- /* md5.c - Functions to compute MD5 message digest of files or memory blocks
-    according to the definition of MD5 in RFC 1321 from April 1992.
--   Copyright (C) 1995, 1996, 2011 Free Software Foundation, Inc.
-+   Copyright (C) 1995, 1996 Free Software Foundation, Inc.
- 
-    NOTE: This source is derived from an old version taken from the GNU C
-    Library (glibc).
-@@ -17,7 +17,7 @@
- 
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software Foundation,
--   Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
-+   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
- 
- /* Written by Ulrich Drepper <address@hidden>, 1995.  */
- 
-@@ -62,7 +62,8 @@ static const unsigned char fillbuf[64] =
- /* Initialize structure containing state of computation.
-    (RFC 1321, 3.3: Step 3)  */
- void
--md5_init_ctx (struct md5_ctx *ctx)
-+md5_init_ctx (ctx)
-+     struct md5_ctx *ctx;
- {
-   ctx->A = (md5_uint32) 0x67452301;
-   ctx->B = (md5_uint32) 0xefcdab89;
-@@ -76,19 +77,17 @@ md5_init_ctx (struct md5_ctx *ctx)
- /* Put result from CTX in first 16 bytes following RESBUF.  The result
-    must be in little endian byte order.
- 
--   IMPORTANT: RESBUF may not be aligned as strongly as MD5_UNIT32 so we
--   put things in a local (aligned) buffer first, then memcpy into RESBUF.  */
-+   IMPORTANT: On some systems it is required that RESBUF is correctly
-+   aligned for a 32 bits value.  */
- void *
--md5_read_ctx (const struct md5_ctx *ctx, void *resbuf)
-+md5_read_ctx (ctx, resbuf)
-+     const struct md5_ctx *ctx;
-+     void *resbuf;
- {
--  md5_uint32 buffer[4];
--
--  buffer[0] = SWAP (ctx->A);
--  buffer[1] = SWAP (ctx->B);
--  buffer[2] = SWAP (ctx->C);
--  buffer[3] = SWAP (ctx->D);
--
--  memcpy (resbuf, buffer, 16);
-+  ((md5_uint32 *) resbuf)[0] = SWAP (ctx->A);
-+  ((md5_uint32 *) resbuf)[1] = SWAP (ctx->B);
-+  ((md5_uint32 *) resbuf)[2] = SWAP (ctx->C);
-+  ((md5_uint32 *) resbuf)[3] = SWAP (ctx->D);
- 
-   return resbuf;
- }
-@@ -99,11 +98,12 @@ md5_read_ctx (const struct md5_ctx *ctx,
-    IMPORTANT: On some systems it is required that RESBUF is correctly
-    aligned for a 32 bits value.  */
- void *
--md5_finish_ctx (struct md5_ctx *ctx, void *resbuf)
-+md5_finish_ctx (ctx, resbuf)
-+     struct md5_ctx *ctx;
-+     void *resbuf;
- {
-   /* Take yet unprocessed bytes into account.  */
-   md5_uint32 bytes = ctx->buflen;
--  md5_uint32 swap_bytes;
-   size_t pad;
- 
-   /* Now count remaining bytes.  */
-@@ -114,13 +114,10 @@ md5_finish_ctx (struct md5_ctx *ctx, voi
-   pad = bytes >= 56 ? 64 + 56 - bytes : 56 - bytes;
-   memcpy (&ctx->buffer[bytes], fillbuf, pad);
- 
--  /* Put the 64-bit file length in *bits* at the end of the buffer.
--     Use memcpy to avoid aliasing problems.  On most systems, this
--     will be optimized away to the same code.  */
--  swap_bytes = SWAP (ctx->total[0] << 3);
--  memcpy (&ctx->buffer[bytes + pad], &swap_bytes, sizeof (swap_bytes));
--  swap_bytes = SWAP ((ctx->total[1] << 3) | (ctx->total[0] >> 29));
--  memcpy (&ctx->buffer[bytes + pad + 4], &swap_bytes, sizeof (swap_bytes));
-+  /* Put the 64-bit file length in *bits* at the end of the buffer.  */
-+  *(md5_uint32 *) &ctx->buffer[bytes + pad] = SWAP (ctx->total[0] << 3);
-+  *(md5_uint32 *) &ctx->buffer[bytes + pad + 4] = SWAP ((ctx->total[1] << 3) |
-+                                                      (ctx->total[0] >> 29));
- 
-   /* Process last bytes.  */
-   md5_process_block (ctx->buffer, bytes + pad + 8, ctx);
-@@ -132,7 +129,9 @@ md5_finish_ctx (struct md5_ctx *ctx, voi
-    resulting message digest number will be written into the 16 bytes
-    beginning at RESBLOCK.  */
- int
--md5_stream (FILE *stream, void *resblock)
-+md5_stream (stream, resblock)
-+     FILE *stream;
-+     void *resblock;
- {
-   /* Important: BLOCKSIZE must be a multiple of 64.  */
- #define BLOCKSIZE 4096
-@@ -187,7 +186,10 @@ md5_stream (FILE *stream, void *resblock
-    output yields to the wanted ASCII representation of the message
-    digest.  */
- void *
--md5_buffer (const char *buffer, size_t len, void *resblock)
-+md5_buffer (buffer, len, resblock)
-+     const char *buffer;
-+     size_t len;
-+     void *resblock;
- {
-   struct md5_ctx ctx;
- 
-@@ -203,7 +205,10 @@ md5_buffer (const char *buffer, size_t l
- 
- 
- void
--md5_process_bytes (const void *buffer, size_t len, struct md5_ctx *ctx)
-+md5_process_bytes (buffer, len, ctx)
-+     const void *buffer;
-+     size_t len;
-+     struct md5_ctx *ctx;
- {
-   /* When we already have some bits in our internal buffer concatenate
-      both inputs first.  */
-@@ -231,29 +236,9 @@ md5_process_bytes (const void *buffer, s
-   /* Process available complete blocks.  */
-   if (len > 64)
-     {
--#if !_STRING_ARCH_unaligned
--/* To check alignment gcc has an appropriate operator.  Other
--   compilers don't.  */
--# if __GNUC__ >= 2
--#  define UNALIGNED_P(p) (((md5_uintptr) p) % __alignof__ (md5_uint32) != 0)
--# else
--#  define UNALIGNED_P(p) (((md5_uintptr) p) % sizeof (md5_uint32) != 0)
--# endif
--      if (UNALIGNED_P (buffer))
--        while (len > 64)
--          {
--          memcpy (ctx->buffer, buffer, 64);
--            md5_process_block (ctx->buffer, 64, ctx);
--            buffer = (const char *) buffer + 64;
--            len -= 64;
--          }
--      else
--#endif
--      {
--        md5_process_block (buffer, len & ~63, ctx);
--        buffer = (const void *) ((const char *) buffer + (len & ~63));
--        len &= 63;
--      }
-+      md5_process_block (buffer, len & ~63, ctx);
-+      buffer = (const void *) ((const char *) buffer + (len & ~63));
-+      len &= 63;
-     }
- 
-   /* Move remaining bytes in internal buffer.  */
-@@ -278,7 +263,10 @@ md5_process_bytes (const void *buffer, s
-    It is assumed that LEN % 64 == 0.  */
- 
- void
--md5_process_block (const void *buffer, size_t len, struct md5_ctx *ctx)
-+md5_process_block (buffer, len, ctx)
-+     const void *buffer;
-+     size_t len;
-+     struct md5_ctx *ctx;
- {
-   md5_uint32 correct_words[16];
-   const md5_uint32 *words = (const md5_uint32 *) buffer;
-@@ -293,7 +281,8 @@ md5_process_block (const void *buffer, s
-      length of the file up to 2^64 bits.  Here we only compute the
-      number of bytes.  Do a double word increment.  */
-   ctx->total[0] += len;
--  ctx->total[1] += ((len >> 31) >> 1) + (ctx->total[0] < len);
-+  if (ctx->total[0] < len)
-+    ++ctx->total[1];
- 
-   /* Process all bytes in the buffer with 64 bytes in each round of
-      the loop.  */



reply via email to

[Prev in Thread] Current Thread [Next in Thread]