[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
68/160: Revert "gnu: binutils-boot: Update to 2.25."
|
From: |
Jan Nieuwenhuizen |
|
Subject: |
68/160: Revert "gnu: binutils-boot: Update to 2.25." |
|
Date: |
Tue, 28 Aug 2018 15:56:20 -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 (¬es, 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, ¯o))
-+ {
-+ 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 (¬es, c);
-+ len++;
-+ }
-+ /* JF this next line is so demand_copy_C_string will return a
-+ null terminated string. */
-+ obstack_1grow (¬es, '\0');
-+ retval = (char *) obstack_finish (¬es);
-+ }
-+ 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 (¬es, *input_line_pointer);
-+ ++input_line_pointer;
-+ ++i;
-+ }
-+
-+ obstack_1grow (¬es, '\0');
-+ filename = (char *) obstack_finish (¬es);
-+ 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. */
- 103/160: gnu: glibc-mesboot: Rename from glibc-boot., (continued)
- 103/160: gnu: glibc-mesboot: Rename from glibc-boot., Jan Nieuwenhuizen, 2018/08/28
- 105/160: gnu: binutils-mesboot: Rename from binutils-boot., Jan Nieuwenhuizen, 2018/08/28
- 113/160: gnu: binutils-mesboot0: Package with bootstrap-guile., Jan Nieuwenhuizen, 2018/08/28
- 118/160: gnu: mescc-tools-boot: Revise dependencies., Jan Nieuwenhuizen, 2018/08/28
- 122/160: gnu: tcc-boot: Revise dependencies., Jan Nieuwenhuizen, 2018/08/28
- 90/160: gnu: glibc-boot: Install all headers. WIP plus more, Jan Nieuwenhuizen, 2018/08/28
- 110/160: Revert "REMOVEME: %fake-bootstrap => #t.", Jan Nieuwenhuizen, 2018/08/28
- 99/160: gnu: Remove binutils-boot0-cheat., Jan Nieuwenhuizen, 2018/08/28
- 77/160: Revert "gnu: gcc-boot: Update to 3.0.", Jan Nieuwenhuizen, 2018/08/28
- 101/160: gnu: binutils-mesboot0: Rename from binutils-boot0., Jan Nieuwenhuizen, 2018/08/28
- 68/160: Revert "gnu: binutils-boot: Update to 2.25.",
Jan Nieuwenhuizen <=
- 107/160: gnu: Add gcc-mesboot 4.1.0., Jan Nieuwenhuizen, 2018/08/28
- 119/160: gnu: %mes-seed: Update for mes 0.16.1., Jan Nieuwenhuizen, 2018/08/28
- 104/160: gnu: gcc-mesboot: Rename from gcc-boot., Jan Nieuwenhuizen, 2018/08/28
- 109/160: REMOVEME: %fake-bootstrap => #t., Jan Nieuwenhuizen, 2018/08/28
- 108/160: gnu: Add gcc-mesboot 4.7.4. WIP, Jan Nieuwenhuizen, 2018/08/28
- 91/160: gnu: gcc-core-boot: Install libgcc2.a too., Jan Nieuwenhuizen, 2018/08/28
- 106/160: Revert: gnu: binutils-boot0: Inject AR, LD from bootstrap-binaries., Jan Nieuwenhuizen, 2018/08/28
- 111/160: gnu: m4-mesboot: Package with boostrap-guile., Jan Nieuwenhuizen, 2018/08/28
- 102/160: gnu: gcc-core-mesboot: Rename from gcc-core-boot., Jan Nieuwenhuizen, 2018/08/28
- 98/160: gnu: binutils-boot0: Inject AR, LD from bootstrap-binaries., Jan Nieuwenhuizen, 2018/08/28