-diff -Nur binutils-2.13.90.0.18.orig/gas/Makefile.am binutils-2.13.90.0.18/gas/Makefile.am
---- binutils-2.13.90.0.18.orig/gas/Makefile.am Sun Feb 2 03:21:17 2003
-+++ binutils-2.13.90.0.18/gas/Makefile.am Sun Feb 2 12:25:10 2003
-@@ -197,7 +197,7 @@
+diff -urNbB binutils-2.16.91.0.2.org/gas/Makefile.am binutils-2.16.91.0.2/gas/Makefile.am
+--- binutils-2.16.91.0.2.org/gas/Makefile.am 2005-07-20 19:27:27.000000000 +0000
++++ binutils-2.16.91.0.2/gas/Makefile.am 2005-07-21 18:35:02.000000000 +0000
+@@ -204,7 +204,7 @@
symbols.c \
write.c
HFILES = \
as.h \
-@@ -452,7 +452,8 @@
+@@ -466,7 +466,8 @@
# Note: GASP is now deprecated and has been removed. It is still
# available in the CVS archive or older binutils releases if it is needed.
noinst_SCRIPTS = $(GDBINIT)
EXTRA_SCRIPTS = .gdbinit
-@@ -515,6 +516,10 @@
+@@ -530,6 +531,10 @@
as.h asintl.h bignum.h bit_fix.h config.h emul.h expr.h flonum.h \
frags.h hash.h listing.h obj.h read.h symbols.h tc.h write.h
+gasp_new_LDADD = ../libiberty/libiberty.a $(INTLLIBS)
+gasp_new_DEPENDENCIES = ../libiberty/libiberty.a $(INTLDEPS)
+
- EXPECT = `if [ -f $${rootme}/../expect/expect ] ; then \
- echo $${rootme}/../expect/expect ; \
- else echo expect ; fi`
-@@ -2416,6 +2421,8 @@
+ EXPECT = expect
+ RUNTEST = runtest
+ RUNTESTFLAGS=
+@@ -2508,6 +2513,8 @@
$(INCDIR)/obstack.h subsegs.h struc-symbol.h
write.o: write.c $(INCDIR)/symcat.h subsegs.h $(INCDIR)/obstack.h \
output-file.h dwarf2dbg.h
itbl-ops.o: itbl-ops.c itbl-ops.h $(INCDIR)/symcat.h
e-crisaout.o: $(srcdir)/config/e-crisaout.c $(INCDIR)/symcat.h \
emul-target.h
-diff -Nur binutils-2.13.90.0.18.orig/gas/doc/Makefile.am binutils-2.13.90.0.18/gas/doc/Makefile.am
---- binutils-2.13.90.0.18.orig/gas/doc/Makefile.am Sun Feb 2 03:21:17 2003
-+++ binutils-2.13.90.0.18/gas/doc/Makefile.am Sun Feb 2 12:35:43 2003
+diff -urNbB binutils-2.16.91.0.2.org/gas/doc/Makefile.am binutils-2.16.91.0.2/gas/doc/Makefile.am
+--- binutils-2.16.91.0.2.org/gas/doc/Makefile.am 2005-07-20 19:27:27.000000000 +0000
++++ binutils-2.16.91.0.2/gas/doc/Makefile.am 2005-07-21 18:31:04.000000000 +0000
@@ -15,7 +15,7 @@
man_MANS = as.1
asconfig.texi: $(CONFIG).texi
rm -f asconfig.texi
-diff -Nur binutils-2.14.90.0.7.orig/gas/doc/gasp.texinfo binutils-2.14.90.0.7/gas/doc/gasp.texinfo
---- binutils-2.14.90.0.7.orig/gas/doc/gasp.texinfo Thu Jan 1 01:00:00 1970
-+++ binutils-2.14.90.0.7/gas/doc/gasp.texinfo Wed Oct 30 05:09:13 2002
+diff -urNbB binutils-2.16.91.0.2.org/gas/doc/gasp.texinfo binutils-2.16.91.0.2/gas/doc/gasp.texinfo
+--- binutils-2.16.91.0.2.org/gas/doc/gasp.texinfo 1970-01-01 00:00:00.000000000 +0000
++++ binutils-2.16.91.0.2/gas/doc/gasp.texinfo 2005-07-21 18:31:04.000000000 +0000
@@ -0,0 +1,1456 @@
+\input texinfo @c -*- Texinfo -*-
+@setfilename gasp.info
+
+@contents
+@bye
---- binutils-2.16.90.0.3/gas/gasp.c.orig 1970-01-01 01:00:00.000000000 +0100
-+++ binutils-2.16.90.0.3/gas/gasp.c 2005-05-12 00:24:19.559668480 +0200
+diff -urNbB binutils-2.16.91.0.2.org/gas/gasp.c binutils-2.16.91.0.2/gas/gasp.c
+--- binutils-2.16.91.0.2.org/gas/gasp.c 1970-01-01 00:00:00.000000000 +0000
++++ binutils-2.16.91.0.2/gas/gasp.c 2005-07-21 18:31:04.000000000 +0000
@@ -0,0 +1,3983 @@
+/* gasp.c - Gnu assembler preprocessor main program.
+ Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
+
+/* just a stub to satisfy unused function in sb.o */
+int do_scrub_chars (int (*get) (char*, int), char *tostart, int tolen) {}
---- binutils-2.16.90.0.3/gas/macro.c.orig 2005-05-11 00:46:44.000000000 +0200
-+++ binutils-2.16.90.0.3/gas/macro.c 2005-05-12 00:09:50.205830352 +0200
+diff -urNbB binutils-2.16.91.0.2.org/gas/macro.c binutils-2.16.91.0.2/gas/macro.c
+--- binutils-2.16.91.0.2.org/gas/macro.c 2005-05-10 22:46:44.000000000 +0000
++++ binutils-2.16.91.0.2/gas/macro.c 2005-07-21 18:31:04.000000000 +0000
@@ -77,8 +77,8 @@
static int get_apost_token (int, sb *, sb *, int);
static int sub_actual (int, sb *, sb *, struct hash_control *, int, sb *, int);
if (err != NULL)
break;
if (!irpc)
---- binutils-2.16.90.0.2/gas/macro.h.orig 2005-04-29 19:50:28.000000000 +0200
-+++ binutils-2.16.90.0.2/gas/macro.h 2005-05-02 11:06:23.979151360 +0200
-@@ -80,8 +80,8 @@
+diff -urNbB binutils-2.16.91.0.2.org/gas/macro.h binutils-2.16.91.0.2/gas/macro.h
+--- binutils-2.16.91.0.2.org/gas/macro.h 2005-05-10 22:46:44.000000000 +0000
++++ binutils-2.16.91.0.2/gas/macro.h 2005-07-21 18:31:04.000000000 +0000
+@@ -90,8 +90,8 @@
extern void macro_mri_mode (int);
extern const char *define_macro
(int, sb *, sb *, int (*) (sb *), char *, unsigned int, const char **);
+extern const char *expand_irp (int, int, sb *, sb *, int (*) (sb *), int);
#endif
---- binutils-2.16.90.0.2/gas/read.c.orig 2005-04-29 19:50:28.000000000 +0200
-+++ binutils-2.16.90.0.2/gas/read.c 2005-05-02 11:06:53.579651400 +0200
-@@ -550,7 +550,7 @@
+diff -urNbB binutils-2.16.91.0.2.org/gas/macro.h.orig binutils-2.16.91.0.2/gas/macro.h.orig
+--- binutils-2.16.91.0.2.org/gas/macro.h.orig 1970-01-01 00:00:00.000000000 +0000
++++ binutils-2.16.91.0.2/gas/macro.h.orig 2005-05-10 22:46:44.000000000 +0000
+@@ -0,0 +1,97 @@
++/* macro.h - header file for macro support for gas
++ Copyright 1994, 1995, 1996, 1997, 1998, 2000, 2002, 2003, 2004
++ Free Software Foundation, Inc.
++
++ Written by Steve and Judy Chamberlain of Cygnus Support,
++ sac@cygnus.com
++
++ This file is part of GAS, the GNU Assembler.
++
++ GAS is free software; you can redistribute it and/or modify
++ it under the terms of the GNU General Public License as published by
++ the Free Software Foundation; either version 2, or (at your option)
++ any later version.
++
++ GAS is distributed in the hope that it will be useful,
++ but WITHOUT ANY WARRANTY; without even the implied warranty of
++ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
++ GNU General Public License for more details.
++
++ You should have received a copy of the GNU General Public License
++ along with GAS; see the file COPYING. If not, write to the Free
++ Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
++ 02110-1301, USA. */
++
++#ifndef MACRO_H
++
++#define MACRO_H
++
++#include "ansidecl.h"
++#include "sb.h"
++
++/* Structures used to store macros.
++
++ Each macro knows its name and included text. It gets built with a
++ list of formal arguments, and also keeps a hash table which points
++ into the list to speed up formal search. Each formal knows its
++ name and its default value. Each time the macro is expanded, the
++ formals get the actual values attached to them. */
++
++/* Describe the formal arguments to a macro. */
++
++typedef struct formal_struct {
++ struct formal_struct *next; /* Next formal in list. */
++ sb name; /* Name of the formal. */
++ sb def; /* The default value. */
++ sb actual; /* The actual argument (changed on each expansion). */
++ int index; /* The index of the formal 0..formal_count - 1. */
++ enum formal_type
++ {
++ FORMAL_OPTIONAL,
++ FORMAL_REQUIRED,
++ FORMAL_VARARG
++ } type; /* The kind of the formal. */
++} formal_entry;
++
++/* Other values found in the index field of a formal_entry. */
++#define QUAL_INDEX (-1)
++#define NARG_INDEX (-2)
++#define LOCAL_INDEX (-3)
++
++/* Describe the macro. */
++
++typedef struct macro_struct
++{
++ sb sub; /* Substitution text. */
++ int formal_count; /* Number of formal args. */
++ formal_entry *formals; /* Pointer to list of formal_structs. */
++ struct hash_control *formal_hash; /* Hash table of formals. */
++ const char *name; /* Macro name. */
++ char *file; /* File the macro was defined in. */
++ unsigned int line; /* Line number of definition. */
++} macro_entry;
++
++/* Whether any macros have been defined. */
++
++extern int macro_defined;
++
++/* The macro nesting level. */
++
++extern int macro_nest;
++
++/* The macro hash table. */
++
++extern struct hash_control *macro_hash;
++
++extern int buffer_and_nest (const char *, const char *, sb *, int (*) (sb *));
++extern void macro_init
++ (int, int, int, int (*) (const char *, int, sb *, int *));
++extern void macro_set_alternate (int);
++extern void macro_mri_mode (int);
++extern const char *define_macro
++ (int, sb *, sb *, int (*) (sb *), char *, unsigned int, const char **);
++extern int check_macro (const char *, sb *, const char **, macro_entry **);
++extern void delete_macro (const char *);
++extern const char *expand_irp (int, int, sb *, sb *, int (*) (sb *));
++
++#endif
+diff -urNbB binutils-2.16.91.0.2.org/gas/read.c binutils-2.16.91.0.2/gas/read.c
+--- binutils-2.16.91.0.2.org/gas/read.c 2005-06-22 20:53:34.000000000 +0000
++++ binutils-2.16.91.0.2/gas/read.c 2005-07-21 18:31:04.000000000 +0000
+@@ -555,7 +555,7 @@
const char *err;
macro_entry *macro;
{
if (err != NULL)
as_bad ("%s", err);
-@@ -1978,7 +1978,7 @@
+@@ -1958,7 +1958,7 @@
sb_new (&out);
if (err != NULL)
as_bad_where (file, line, "%s", err);
+diff -urNbB binutils-2.16.91.0.2.org/gas/read.c.orig binutils-2.16.91.0.2/gas/read.c.orig
+--- binutils-2.16.91.0.2.org/gas/read.c.orig 1970-01-01 00:00:00.000000000 +0000
++++ binutils-2.16.91.0.2/gas/read.c.orig 2005-06-22 20:53:34.000000000 +0000
+@@ -0,0 +1,5322 @@
++/* read.c - read a source file -
++ Copyright 1986, 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
++ 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
++ 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 2, or (at your option)
++any later version.
++
++GAS is distributed in the hope that it will be useful,
++but WITHOUT ANY WARRANTY; without even the implied warranty of
++MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
++GNU General Public License for more details.
++
++You should have received a copy of the GNU General Public License
++along with GAS; see the file COPYING. If not, write to the Free
++Software Foundation, 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 "listing.h"
++#include "ecoff.h"
++#include "dw2gencfi.h"
++
++#ifndef TC_START_LABEL
++#define TC_START_LABEL(x,y) (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
++/* The m88k unfortunately uses @ as a label beginner. */
++#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
++/* The a29k assembler does not permits labels to start with $. */
++#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. */
++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
++
++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 int hex_float (int, char *);
++static segT get_known_segmented_expression (expressionS * expP);
++static void pobegin (void);
++static int get_line_sb (sb *);
++static void generate_file_debug (void);
++static char *_find_end_of_line (char *, int, int);
++\f
++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);
++
++ /* Use machine dependent syntax. */
++ for (p = line_separator_chars; *p; p++)
++ is_end_of_line[(unsigned char) *p] = 1;
++ /* Use more. FIXME-SOMEDAY. */
++
++ if (flag_mri)
++ lex_type['?'] = 3;
++}
++\f
++#ifndef TC_ADDRESS_BYTES
++#ifdef BFD_ASSEMBLER
++#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
++#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, 0},
++ {"asciz", stringer, 1},
++ {"balign", s_align_bytes, 0},
++ {"balignw", s_align_bytes, -2},
++ {"balignl", s_align_bytes, -4},
++/* block */
++ {"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},
++ {"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, 0},
++ {"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", listing_flags, 0}, /* Listing flags. */
++ {"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},
++ {"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, 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},
++ {"word", cons, 2},
++ {"zero", s_space, 0},
++ {NULL, NULL, 0} /* End sentinel. */
++};
++
++static offsetT
++get_absolute_expr (expressionS *exp)
++{
++ expression (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);
++
++#ifdef TARGET_USE_CFIPOP
++ pop_table_name = "cfi";
++ pop_override_ok = 1;
++ cfi_pop_insert ();
++#endif
++}
++\f
++#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 int
++scrub_from_string (char *buf, int buflen)
++{
++ int 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;
++}
++
++/* We read the file, putting things into a web that represents what we
++ have been reading. */
++void
++read_a_source_file (char *name)
++{
++ register char c;
++ register char *s; /* String of symbol, '\0' appended. */
++ register 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
++ know (buffer_limit[-1] == '\n'); /* Must have a sentinel. */
++
++ while (input_line_pointer < buffer_limit)
++ {
++ /* 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. */
++ if (is_end_of_line[(unsigned char) input_line_pointer[-1]])
++ {
++#ifdef md_start_line_hook
++ md_start_line_hook ();
++#endif
++ if (input_line_pointer[-1] == '\n')
++ bump_line_counters ();
++
++ 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;
++ char c;
++ int mri_line_macro;
++
++ LISTING_NEWLINE ();
++ 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.
++ PLEASE make a compiler that doesn't use this assembler.
++ It is crufty to waste a compiler's time encoding things for this
++ assembler, which then wastes more time decoding it.
++ (And communicating via (linear) files is silly!
++ If you must pass stuff, please pass a tree!) */
++ if ((c = *input_line_pointer++) == '\t'
++ || c == ' '
++ || c == '\f'
++ || c == 0)
++ c = *input_line_pointer++;
++
++ know (c != ' '); /* No further leading whitespace. */
++
++#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)
++ {
++ char *copy;
++ int len;
++
++ /* Find the end of the current expanded macro line. */
++ s = find_end_of_line (input_line_pointer - 1, flag_m68k_mri);
++
++ if (s != last_eol)
++ {
++ 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 - 1);
++ copy = (char *) xmalloc (len + macro_nest + 2);
++ memset (copy, '>', macro_nest);
++ copy[macro_nest] = ' ';
++ memcpy (copy + macro_nest + 1, input_line_pointer - 1, len);
++ copy[macro_nest + 1 + len] = '\0';
++
++ /* Install the line with the listing facility. */
++ listing_newline (copy);
++ }
++ }
++ else
++ listing_newline (NULL);
++ }
++#endif
++ /* 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, 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 == '='
++ || ((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 and the m88k use 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);
++ 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 ());
++ }
++ }
++
++ md_assemble (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;
++
++ bump_line_counters ();
++ s = input_line_pointer;
++ if (strncmp (s, "APP\n", 4))
++ continue; /* We ignore it */
++ s += 4;
++
++ sb_new (&sbuf);
++ 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 = 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 = 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 (;;)
++ {
++ int space;
++ int 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 = 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. */
++ sb_add_string (&sbuf, new_buf);
++ 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 ignored. */
++ demand_empty_rest_of_line ();
++ }
++
++#ifdef md_after_pass_hook
++ md_after_pass_hook ();
++#endif
++ }
++
++ quit:
++
++#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 X_unsigned rather than X_add_number. */
++
++static void
++convert_to_bignum (expressionS *exp)
++{
++ 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) != !exp->X_unsigned)
++ generic_bignum[i++] = exp->X_unsigned ? 0 : LITTLENUM_MASK;
++ 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. */
++
++#ifdef BFD_ASSEMBLER
++#define ALIGN_LIMIT (stdoutput->arch_info->bits_per_address - 1)
++#else
++#define ALIGN_LIMIT 15
++#endif
++
++static void
++s_align (int arg, int bytes_p)
++{
++ unsigned int align_limit = ALIGN_LIMIT;
++ unsigned int align;
++ char *stop = NULL;
++ char stopc;
++ 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);
++}
++
++symbolS *
++s_comm_internal (int param,
++ symbolS *(*comm_parse_extra) (int, symbolS *, addressT))
++{
++ char *name;
++ char c;
++ char *p;
++ offsetT temp, size;
++ symbolS *symbolP = NULL;
++ char *stop = NULL;
++ char stopc;
++ expressionS exp;
++
++ if (flag_mri)
++ stop = mri_comment_field (&stopc);
++
++ name = input_line_pointer;
++ c = get_symbol_end ();
++ /* Just after name is now '\0'. */
++ p = input_line_pointer;
++ *p = c;
++
++ if (name == p)
++ {
++ as_bad (_("expected symbol name"));
++ ignore_rest_of_line ();
++ goto out;
++ }
++
++ SKIP_WHITESPACE ();
++
++ /* 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;
++#ifdef BFD_ASSEMBLER
++ size &= ((offsetT) 2 << (stdoutput->arch_info->bits_per_address - 1)) - 1;
++#endif
++ 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;
++ }
++
++ *p = 0;
++ symbolP = symbol_find_or_make (name);
++ if (S_IS_DEFINED (symbolP) && !S_IS_COMMON (symbolP))
++ {
++ symbolP = NULL;
++ as_bad (_("symbol `%s' is already defined"), name);
++ *p = c;
++ ignore_rest_of_line ();
++ goto out;
++ }
++
++ 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);
++
++ *p = c;
++ if (comm_parse_extra != NULL)
++ symbolP = (*comm_parse_extra) (param, symbolP, size);
++ else
++ {
++ S_SET_VALUE (symbolP, (valueT) size);
++ S_SET_EXTERNAL (symbolP);
++#ifdef OBJ_VMS
++ {
++ extern int flag_one;
++ if (size == 0 || !flag_one)
++ S_GET_OTHER (symbolP) = const_flag;
++ }
++#endif
++ }
++
++ demand_empty_rest_of_line ();
++ out:
++ if (flag_mri)
++ mri_comment_end (stop, stopc);
++ 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;
++
++ 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);
++ mri_common_symbol = sym;
++
++#ifdef S_SET_ALIGN
++ if (align != 0)
++ S_SET_ALIGN (sym, 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;
++ register 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);
++
++#ifdef OBJ_VMS
++ const_flag = 0;
++#endif
++ 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)
++{
++ register char *s;
++ int length;
++
++ /* Some assemblers tolerate immediately following '"'. */
++ if ((s = demand_copy_string (&length)) != 0)
++ {
++ /* If this is a fake .appfile, a fake newline was inserted into
++ the buffer. Passing -2 to new_logical_line tells it to
++ account for it. */
++ int may_omit
++ = (!new_logical_line (s, appfile ? -2 : -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);
++ }
++}
++
++/* 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 ignore ATTRIBUTE_UNUSED)
++{
++ int l;
++
++ /* The given number is that of the next line. */
++ l = get_absolute_expression () - 1;
++ if (l < 0)
++ /* Some of the back ends can't deal with non-positive line numbers.
++ Besides, it's silly. */
++ as_warn (_("line numbers must be positive; line number %d rejected"),
++ l + 1);
++ else
++ {
++ new_logical_line ((char *) NULL, l);
++#ifdef LISTING
++ if (listing)
++ listing_source_line (l);
++#endif
++ }
++ demand_empty_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;
++
++ 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;
++ register long fill = 0;
++ char *p;
++
++#ifdef md_flush_pending_output
++ md_flush_pending_output ();
++#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;
++
++ if (flag_mri)
++ stop = mri_comment_field (&stopc);
++
++ do
++ {
++ name = input_line_pointer;
++ c = get_symbol_end ();
++ symbolP = symbol_find_or_make (name);
++ S_SET_EXTERNAL (symbolP);
++
++ *input_line_pointer = c;
++ 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';
++ }
++ }
++ 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);
++
++ sb_new (&s);
++ eol = find_end_of_line (input_line_pointer, 0);
++ 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_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) */
++#ifdef BFD_ASSEMBLER
++ {
++ 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 ()));
++ }
++#else /* ! defined (BFD_ASSEMBLER) */
++ as_warn (_(".linkonce is not supported for this object file format"));
++#endif /* ! defined (BFD_ASSEMBLER) */
++#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;
++#ifdef BFD_ASSEMBLER
++ if (!bfd_set_section_flags (stdoutput, bss_seg, SEC_ALLOC))
++ as_warn (_("error setting flags for \".sbss\": %s"),
++ bfd_errmsg (bfd_get_error ()));
++#endif
++ }
++ }
++#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)
++{
++ register char *name;
++ register char c;
++ register char *p;
++ expressionS exp;
++ register symbolS *symbolP;
++
++ /* We permit ANY defined expression: BSD4.2 demands constants. */
++ name = input_line_pointer;
++ c = get_symbol_end ();
++ p = input_line_pointer;
++ *p = c;
++
++ if (name == p)
++ {
++ as_bad (_("expected symbol name"));
++ ignore_rest_of_line ();
++ return;
++ }
++
++ SKIP_WHITESPACE ();
++
++ if (*input_line_pointer != ',')
++ {
++ *p = 0;
++ as_bad (_("expected comma after \"%s\""), name);
++ *p = c;
++ ignore_rest_of_line ();
++ return;
++ }
++
++ input_line_pointer++;
++ expression (&exp);
++
++ if (exp.X_op != O_constant
++ && exp.X_op != O_register)
++ {
++ as_bad (_("bad expression"));
++ ignore_rest_of_line ();
++ return;
++ }
++
++ *p = 0;
++ symbolP = symbol_find_or_make (name);
++
++ /* FIXME-SOON I pulled a (&& symbolP->sy_other == 0 &&
++ symbolP->sy_desc == 0) out of this test because coff doesn't have
++ those fields, and I can't see when they'd ever be tripped. I
++ don't think I understand why they were here so I may have
++ introduced a bug. As recently as 1.37 didn't have this test
++ anyway. xoxorich. */
++
++ if (S_GET_SEGMENT (symbolP) == undefined_section
++ && S_GET_VALUE (symbolP) == 0)
++ {
++ /* 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);
++ }
++
++ *p = c;
++ demand_empty_rest_of_line ();
++}
++
++/* 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)
++{
++ 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);
++ 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++;
++}
++
++/* 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);
++
++ sb_new (&s);
++ eol = find_end_of_line (input_line_pointer, 0);
++ sb_add_buffer (&s, input_line_pointer, eol - input_line_pointer);
++ input_line_pointer = eol;
++
++ if (line_label != NULL)
++ {
++ sb label;
++
++ sb_new (&label);
++ sb_add_string (&label, S_GET_NAME (line_label));
++ err = define_macro (0, &s, &label, get_line_sb, file, line, &name);
++ sb_kill (&label);
++ }
++ else
++ err = define_macro (0, &s, NULL, get_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)
++{
++ cond_exit_macro (macro_nest);
++ buffer_limit = input_scrub_next_buffer (&input_line_pointer);
++}
++
++/* Switch in and out of MRI mode. */
++
++void
++s_mri (int ignore ATTRIBUTE_UNUSED)
++{
++ int on, old_flag;
++
++ on = get_absolute_expression ();
++ old_flag = flag_mri;
++ 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)
++ 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)
++{
++ register segT segment;
++ expressionS exp;
++ register 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). If BFD_ASSEMBLER is defined, 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;
++
++#ifdef BFD_ASSEMBLER
++ {
++ 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 ()));
++ }
++ }
++#endif
++ }
++
++ /* 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 preceeding %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_line_sb))
++ {
++ as_bad (_("%s without %s"), start, end);
++ return;
++ }
++
++ sb_new (&many);
++ 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 no_reassign)
++{
++ 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
++#ifdef OBJ_COFF
++ /* "set" symbols are local unless otherwise specified. */
++ SF_SET_LOCAL (symbolP);
++#endif
++ }
++
++ /* Permit register names to be redefined. */
++ if (no_reassign
++ && S_IS_DEFINED (symbolP)
++ && S_GET_SEGMENT (symbolP) != reg_section)
++ as_bad (_("symbol `%s' is already defined"), name);
++
++ pseudo_set (symbolP);
++}
++
++/* Handle the .equ, .equiv and .set directives. If EQUIV is 1, then
++ this is .equiv, and it is an error if the symbol is already
++ defined. */
++
++void
++s_set (int equiv)
++{
++ char *name;
++ char delim;
++ char *end_name;
++
++ /* Especial apologies for the random logic:
++ this just grew, and could be parsed much more simply!
++ Dean in haste. */
++ name = input_line_pointer;
++ delim = get_symbol_end ();
++ end_name = input_line_pointer;
++ *end_name = delim;
++
++ if (name == end_name)
++ {
++ as_bad (_("expected symbol name"));
++ ignore_rest_of_line ();
++ return;
++ }
++
++ SKIP_WHITESPACE ();
++
++ if (*input_line_pointer != ',')
++ {
++ *end_name = 0;
++ as_bad (_("expected comma after \"%s\""), name);
++ *end_name = delim;
++ ignore_rest_of_line ();
++ return;
++ }
++
++ input_line_pointer++;
++ *end_name = 0;
++
++ assign_symbol (name, equiv);
++ *end_name = delim;
++
++ demand_empty_rest_of_line ();
++}
++
++void
++s_space (int mult)
++{
++ expressionS exp;
++ expressionS val;
++ char *p = 0;
++ char *stop = NULL;
++ char stopc;
++ int bytes;
++
++#ifdef md_flush_pending_output
++ md_flush_pending_output ();
++#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 val;
++
++ val = S_GET_VALUE (mri_common_symbol);
++ if ((val & 1) != 0)
++ {
++ S_SET_VALUE (mri_common_symbol, 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))
++ {
++ 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 (exp.X_op == O_constant)
++ {
++ long 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;
++
++ 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 (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;
++
++ if (flag_mri)
++ stop = mri_comment_field (&stopc);
++ abs_section_offset = get_absolute_expression ();
++ 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)
++{
++ register int temp;
++
++ temp = get_absolute_expression ();
++ subseg_set (text_section, (subsegT) temp);
++ demand_empty_rest_of_line ();
++#ifdef OBJ_VMS
++ const_flag &= ~IN_DEFAULT_SECTION;
++#endif
++}
++\f
++
++/* 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;
++#if (defined (OBJ_AOUT) || defined (OBJ_BOUT)) && ! defined (BFD_ASSEMBLER)
++ int ext;
++#endif /* OBJ_AOUT or OBJ_BOUT */
++
++ know (symbolP); /* NULL pointer is logic error. */
++
++ (void) 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
++ && 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;
++ }
++#if (defined (OBJ_AOUT) || defined (OBJ_BOUT)) && ! defined (BFD_ASSEMBLER)
++ ext = S_IS_EXTERNAL (symbolP);
++#endif /* OBJ_AOUT or OBJ_BOUT */
++
++ 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:
++ S_SET_SEGMENT (symbolP, reg_section);
++ S_SET_VALUE (symbolP, (valueT) exp.X_add_number);
++ set_zero_frag (symbolP);
++ 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 (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;
++ }
++ /* Fall thru */
++
++ default:
++ /* The value is some complex expression.
++ Set segment and frag back to that of a newly created symbol. */
++ S_SET_SEGMENT (symbolP, undefined_section);
++ symbol_set_value_expression (symbolP, &exp);
++ set_zero_frag (symbolP);
++ break;
++ }
++
++#if (defined (OBJ_AOUT) || defined (OBJ_BOUT)) && ! defined (BFD_ASSEMBLER)
++ if (ext)
++ S_SET_EXTERNAL (symbolP);
++ else
++ S_CLEAR_EXTERNAL (symbolP);
++#endif /* OBJ_AOUT or OBJ_BOUT */
++}
++\f
++/* 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)
++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)
++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)
++#endif
++#endif
++
++void
++do_parse_cons_expression (expressionS *exp,
++ int nbytes ATTRIBUTE_UNUSED)
++{
++ 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 (register int nbytes, /* 1=.byte, 2=.word, 4=.long. */
++ int rva)
++{
++ int c;
++ expressionS exp;
++ char *stop = NULL;
++ char stopc;
++
++#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
++ {
++#ifdef TC_M68K
++ if (flag_m68k_mri)
++ parse_mri_cons (&exp, (unsigned int) nbytes);
++ else
++#endif
++ 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 (&exp, (unsigned int) nbytes);
++ ++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);
++}
++
++/* 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)
++{
++ operatorT op;
++ register char *p;
++ valueT extra_digit = 0;
++
++ /* Don't do anything if we are going to make another pass. */
++ if (need_pass_2)
++ return;
++
++ dot_value = frag_now_fix ();
++
++#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);
++
++#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);
++ op = O_big;
++ }
++
++ if (op == O_constant)
++ {
++ register valueT get;
++ register valueT use;
++ register valueT mask;
++ valueT hibit;
++ register 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. */
++ as_warn (_("value 0x%lx truncated to 0x%lx"),
++ (unsigned long) get, (unsigned long) use);
++ }
++ /* Put bytes in right order. */
++ md_number_to_chars (p, use, (int) nbytes);
++ }
++ else if (op == O_big)
++ {
++ unsigned int size;
++ LITTLENUM_TYPE *nums;
++
++ know (nbytes % CHARS_PER_LITTLENUM == 0);
++
++ size = exp->X_add_number * CHARS_PER_LITTLENUM;
++ if (nbytes < size)
++ {
++ as_warn (_("bignum truncated to %d bytes"), nbytes);
++ size = nbytes;
++ }
++
++ 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
++ {
++ memset (p, 0, nbytes);
++
++ /* Now we need to generate a fixS to record the symbol value.
++ This is easy for BFD. For other targets it can be more
++ complex. For very complex cases (currently, the HPPA and
++ NS32K), you can define TC_CONS_FIX_NEW to do whatever you
++ want. For simpler cases, you can define TC_CONS_RELOC to be
++ the name of the reloc code that should be stored in the fixS.
++ If neither is defined, the code uses NO_RELOC if it is
++ defined, and otherwise uses 0. */
++
++#ifdef BFD_ASSEMBLER
++#ifdef TC_CONS_FIX_NEW
++ TC_CONS_FIX_NEW (frag_now, p - frag_now->fr_literal, nbytes, exp);
++#else
++ {
++ bfd_reloc_code_real_type r;
++
++ switch (nbytes)
++ {
++ case 1:
++ r = BFD_RELOC_8;
++ break;
++ case 2:
++ r = BFD_RELOC_16;
++ break;
++ case 4:
++ r = BFD_RELOC_32;
++ break;
++ case 8:
++ r = BFD_RELOC_64;
++ break;
++ default:
++ as_bad (_("unsupported BFD relocation size %u"), nbytes);
++ r = BFD_RELOC_32;
++ break;
++ }
++ fix_new_exp (frag_now, p - frag_now->fr_literal, (int) nbytes, exp,
++ 0, r);
++ }
++#endif
++#else
++#ifdef TC_CONS_FIX_NEW
++ TC_CONS_FIX_NEW (frag_now, p - frag_now->fr_literal, nbytes, exp);
++#else
++ /* Figure out which reloc number to use. Use TC_CONS_RELOC if
++ it is defined, otherwise use NO_RELOC if it is defined,
++ otherwise use 0. */
++#ifndef TC_CONS_RELOC
++#ifdef NO_RELOC
++#define TC_CONS_RELOC NO_RELOC
++#else
++#define TC_CONS_RELOC 0
++#endif
++#endif
++ fix_new_exp (frag_now, p - frag_now->fr_literal, (int) nbytes, exp, 0,
++ TC_CONS_RELOC);
++#endif /* TC_CONS_FIX_NEW */
++#endif /* BFD_ASSEMBLER */
++ }
++}
++\f
++#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;
++ }
++}
++
++#endif /* BITFIELD_CONS_EXPRESSIONS */
++\f
++/* Handle an MRI style string expression. */
++
++#ifdef TC_M68K
++static void
++parse_mri_cons (exp, nbytes)
++ expressionS *exp;
++ unsigned int nbytes;
++{
++ if (*input_line_pointer != '\''
++ && (input_line_pointer[1] != '\''
++ || (*input_line_pointer != 'A'
++ && *input_line_pointer != 'E')))
++ 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 */
++\f
++#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;
++ register 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 */
++\f
++/* 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. */
++ register int float_type /* 'f':.ffloat ... 'F':.float ... */)
++{
++ register char *p;
++ int length; /* Number of chars in an object. */
++ register 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
++
++ 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 (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 ();
++}
++\f
++/* Return the size of a LEB128 value. */
++
++static inline int
++sizeof_sleb128 (offsetT value)
++{
++ register int size = 0;
++ register 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)
++{
++ register int size = 0;
++ register unsigned byte;
++
++ do
++ {
++ byte = (value & 0x7f);
++ 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)
++{
++ register char *orig = p;
++ register 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_unsigned)
++ {
++ /* 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);
++ 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 ();
++}
++\f
++/* We read 0 or more ',' separated, double-quoted strings.
++ Caller should have checked need_pass_2 is FALSE because we don't
++ check it. */
++
++void
++stringer (/* Worker to do .ascii etc statements. */
++ /* Checks end-of-line. */
++ register int append_zero /* 0: don't append '\0', else 1. */)
++{
++ register unsigned int c;
++ char *start;
++
++#ifdef md_flush_pending_output
++ md_flush_pending_output ();
++#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. */
++ start = input_line_pointer;
++ while (is_a_char (c = next_char_of_string ()))
++ {
++ FRAG_APPEND_1_CHAR (c);
++ }
++ if (append_zero)
++ {
++ FRAG_APPEND_1_CHAR (0);
++ }
++ know (input_line_pointer[-1] == '\"');
++
++#ifndef NO_LISTING
++#ifdef 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
++#endif
++
++ break;
++ case '<':
++ input_line_pointer++;
++ c = get_single_number ();
++ FRAG_APPEND_1_CHAR (c);
++ 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 ();
++} /* stringer() */
++\f
++/* 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)
++{
++ register 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);
++}
++\f
++static segT
++get_segmented_expression (register expressionS *expP)
++{
++ register 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 (register expressionS *expP)
++{
++ register segT retval;
++
++ if ((retval = get_segmented_expression (expP)) == 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;
++ }
++ know (retval == absolute_section || SEG_NORMAL (retval));
++ 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++);
++}
++\f
++/* 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)
++{
++ register char *s;
++
++ if ((s = demand_copy_string (len_pointer)) != 0)
++ {
++ register 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;
++}
++\f
++/* 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)
++{
++ register unsigned int c;
++ register 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 = obstack_finish (¬es);
++ }
++ else
++ {
++ as_bad (_("missing string"));
++ retval = NULL;
++ ignore_rest_of_line ();
++ }
++ *lenP = len;
++ return (retval);
++}
++\f
++/* 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;
++
++ input_line_pointer++;
++ if (*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);
++
++ 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
++
++ 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 = 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;
++ 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 = obstack_finish (¬es);
++ while (!is_end_of_line[(unsigned char) *input_line_pointer])
++ ++input_line_pointer;
++ }
++
++ demand_empty_rest_of_line ();
++ path = 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 = fopen (path, FOPEN_RT)))
++ {
++ fclose (try);
++ 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 **) realloc (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;
++}
++\f
++/* 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)
++ asprintf (&label, "%s%s", default_prefix, name);
++ else
++ {
++ char leading_char = 0;
++#ifdef BFD_ASSEMBLER
++ leading_char = bfd_get_symbol_leading_char (stdoutput);
++#endif
++ /* Missing entry point, use function's name with the leading
++ char prepended. */
++ if (leading_char)
++ asprintf (&label, "%c%s", leading_char, name);
++ 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 ();
++}
++\f
++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;
++ sb_new (&newline);
++ sb_add_string (&newline, line);
++ 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)
++{
++ 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
++ )
++ {
++ 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);
++}