/* read.c - read a source file -
|
/* read.c - read a source file -
|
Copyright 1986, 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
|
Copyright 1986, 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
|
1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
|
1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
|
2010, 2011 Free Software Foundation, Inc.
|
2010, 2011 Free Software Foundation, Inc.
|
|
|
This file is part of GAS, the GNU Assembler.
|
This file is part of GAS, the GNU Assembler.
|
|
|
GAS is free software; you can redistribute it and/or modify
|
GAS is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3, or (at your option)
|
the Free Software Foundation; either version 3, or (at your option)
|
any later version.
|
any later version.
|
|
|
GAS is distributed in the hope that it will be useful,
|
GAS is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
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
|
along with GAS; see the file COPYING. If not, write to the Free
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
02110-1301, USA. */
|
02110-1301, USA. */
|
|
|
/* If your chars aren't 8 bits, you will change this a bit (eg. to 0xFF).
|
/* 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.
|
But then, GNU isn't spozed to run on your machine anyway.
|
(RMS is so shortsighted sometimes.) */
|
(RMS is so shortsighted sometimes.) */
|
#define MASK_CHAR ((int)(unsigned char) -1)
|
#define MASK_CHAR ((int)(unsigned char) -1)
|
|
|
/* This is the largest known floating point format (for now). It will
|
/* This is the largest known floating point format (for now). It will
|
grow when we do 4361 style flonums. */
|
grow when we do 4361 style flonums. */
|
#define MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT (16)
|
#define MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT (16)
|
|
|
/* Routines that read assembler source text to build spaghetti in memory.
|
/* Routines that read assembler source text to build spaghetti in memory.
|
Another group of these functions is in the expr.c module. */
|
Another group of these functions is in the expr.c module. */
|
|
|
#include "as.h"
|
#include "as.h"
|
#include "safe-ctype.h"
|
#include "safe-ctype.h"
|
#include "subsegs.h"
|
#include "subsegs.h"
|
#include "sb.h"
|
#include "sb.h"
|
#include "macro.h"
|
#include "macro.h"
|
#include "obstack.h"
|
#include "obstack.h"
|
#include "ecoff.h"
|
#include "ecoff.h"
|
#include "dw2gencfi.h"
|
#include "dw2gencfi.h"
|
|
|
#ifndef TC_START_LABEL
|
#ifndef TC_START_LABEL
|
#define TC_START_LABEL(x,y,z) (x == ':')
|
#define TC_START_LABEL(x,y,z) (x == ':')
|
#endif
|
#endif
|
|
|
/* Set by the object-format or the target. */
|
/* Set by the object-format or the target. */
|
#ifndef TC_IMPLICIT_LCOMM_ALIGNMENT
|
#ifndef TC_IMPLICIT_LCOMM_ALIGNMENT
|
#define TC_IMPLICIT_LCOMM_ALIGNMENT(SIZE, P2VAR) \
|
#define TC_IMPLICIT_LCOMM_ALIGNMENT(SIZE, P2VAR) \
|
do \
|
do \
|
{ \
|
{ \
|
if ((SIZE) >= 8) \
|
if ((SIZE) >= 8) \
|
(P2VAR) = 3; \
|
(P2VAR) = 3; \
|
else if ((SIZE) >= 4) \
|
else if ((SIZE) >= 4) \
|
(P2VAR) = 2; \
|
(P2VAR) = 2; \
|
else if ((SIZE) >= 2) \
|
else if ((SIZE) >= 2) \
|
(P2VAR) = 1; \
|
(P2VAR) = 1; \
|
else \
|
else \
|
(P2VAR) = 0; \
|
(P2VAR) = 0; \
|
} \
|
} \
|
while (0)
|
while (0)
|
#endif
|
#endif
|
|
|
char *input_line_pointer; /*->next char of source file to parse. */
|
char *input_line_pointer; /*->next char of source file to parse. */
|
|
|
#if BITS_PER_CHAR != 8
|
#if BITS_PER_CHAR != 8
|
/* The following table is indexed by[(char)] and will break if
|
/* The following table is indexed by[(char)] and will break if
|
a char does not have exactly 256 states (hopefully 0:255!)! */
|
a char does not have exactly 256 states (hopefully 0:255!)! */
|
die horribly;
|
die horribly;
|
#endif
|
#endif
|
|
|
#ifndef LEX_AT
|
#ifndef LEX_AT
|
#define LEX_AT 0
|
#define LEX_AT 0
|
#endif
|
#endif
|
|
|
#ifndef LEX_BR
|
#ifndef LEX_BR
|
/* The RS/6000 assembler uses {,},[,] as parts of symbol names. */
|
/* The RS/6000 assembler uses {,},[,] as parts of symbol names. */
|
#define LEX_BR 0
|
#define LEX_BR 0
|
#endif
|
#endif
|
|
|
#ifndef LEX_PCT
|
#ifndef LEX_PCT
|
/* The Delta 68k assembler permits % inside label names. */
|
/* The Delta 68k assembler permits % inside label names. */
|
#define LEX_PCT 0
|
#define LEX_PCT 0
|
#endif
|
#endif
|
|
|
#ifndef LEX_QM
|
#ifndef LEX_QM
|
/* The PowerPC Windows NT assemblers permits ? inside label names. */
|
/* The PowerPC Windows NT assemblers permits ? inside label names. */
|
#define LEX_QM 0
|
#define LEX_QM 0
|
#endif
|
#endif
|
|
|
#ifndef LEX_HASH
|
#ifndef LEX_HASH
|
/* The IA-64 assembler uses # as a suffix designating a symbol. We include
|
/* 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. */
|
it in the symbol and strip it out in tc_canonicalize_symbol_name. */
|
#define LEX_HASH 0
|
#define LEX_HASH 0
|
#endif
|
#endif
|
|
|
#ifndef LEX_DOLLAR
|
#ifndef LEX_DOLLAR
|
#define LEX_DOLLAR 3
|
#define LEX_DOLLAR 3
|
#endif
|
#endif
|
|
|
#ifndef LEX_TILDE
|
#ifndef LEX_TILDE
|
/* The Delta 68k assembler permits ~ at start of label names. */
|
/* The Delta 68k assembler permits ~ at start of label names. */
|
#define LEX_TILDE 0
|
#define LEX_TILDE 0
|
#endif
|
#endif
|
|
|
/* Used by is_... macros. our ctype[]. */
|
/* Used by is_... macros. our ctype[]. */
|
char lex_type[256] = {
|
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, /* @ABCDEFGHIJKLMNO */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* PQRSTUVWXYZ[\]^_ */
|
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, /* _!"#$%&'()*+,-./ */
|
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:;<=>? */
|
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 */
|
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[\]^_ */
|
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 */
|
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, 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,
|
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
|
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
|
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
|
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
|
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
|
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
|
3, 3, 3, 3, 3, 3, 3, 3, 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.
|
/* In: a character.
|
Out: 1 if this character ends a line.
|
Out: 1 if this character ends a line.
|
2 if this character is a line separator. */
|
2 if this character is a line separator. */
|
char is_end_of_line[256] = {
|
char is_end_of_line[256] = {
|
#ifdef CR_EOL
|
#ifdef CR_EOL
|
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, /* @abcdefghijklmno */
|
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, /* @abcdefghijklmno */
|
#else
|
#else
|
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, /* @abcdefghijklmno */
|
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, /* @abcdefghijklmno */
|
#endif
|
#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, /* _!"#$%&'()*+,-./ */
|
0, 0, 0, 0, 0, 0, 0, 0, 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, /* 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, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* */
|
0, 0, 0, 0, 0, 0, 0, 0, 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
|
#ifndef TC_CASE_SENSITIVE
|
char original_case_string[128];
|
char original_case_string[128];
|
#endif
|
#endif
|
|
|
/* Functions private to this file. */
|
/* Functions private to this file. */
|
|
|
static char *buffer; /* 1st char of each buffer of lines is here. */
|
static char *buffer; /* 1st char of each buffer of lines is here. */
|
static char *buffer_limit; /*->1 + last char in buffer. */
|
static char *buffer_limit; /*->1 + last char in buffer. */
|
|
|
/* TARGET_BYTES_BIG_ENDIAN is required to be defined to either 0 or 1
|
/* 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
|
in the tc-<CPU>.h file. See the "Porting GAS" section of the
|
internals manual. */
|
internals manual. */
|
int target_big_endian = TARGET_BYTES_BIG_ENDIAN;
|
int target_big_endian = TARGET_BYTES_BIG_ENDIAN;
|
|
|
/* Variables for handling include file directory table. */
|
/* Variables for handling include file directory table. */
|
|
|
/* Table of pointers to directories to search for .include's. */
|
/* Table of pointers to directories to search for .include's. */
|
char **include_dirs;
|
char **include_dirs;
|
|
|
/* How many are in the table. */
|
/* How many are in the table. */
|
int include_dir_count;
|
int include_dir_count;
|
|
|
/* Length of longest in table. */
|
/* Length of longest in table. */
|
int include_dir_maxlen = 1;
|
int include_dir_maxlen = 1;
|
|
|
#ifndef WORKING_DOT_WORD
|
#ifndef WORKING_DOT_WORD
|
struct broken_word *broken_words;
|
struct broken_word *broken_words;
|
int new_broken_words;
|
int new_broken_words;
|
#endif
|
#endif
|
|
|
/* The current offset into the absolute section. We don't try to
|
/* The current offset into the absolute section. We don't try to
|
build frags in the absolute section, since no data can be stored
|
build frags in the absolute section, since no data can be stored
|
there. We just keep track of the current offset. */
|
there. We just keep track of the current offset. */
|
addressT abs_section_offset;
|
addressT abs_section_offset;
|
|
|
/* If this line had an MRI style label, it is stored in this variable.
|
/* If this line had an MRI style label, it is stored in this variable.
|
This is used by some of the MRI pseudo-ops. */
|
This is used by some of the MRI pseudo-ops. */
|
symbolS *line_label;
|
symbolS *line_label;
|
|
|
/* This global variable is used to support MRI common sections. We
|
/* This global variable is used to support MRI common sections. We
|
translate such sections into a common symbol. This variable is
|
translate such sections into a common symbol. This variable is
|
non-NULL when we are in an MRI common section. */
|
non-NULL when we are in an MRI common section. */
|
symbolS *mri_common_symbol;
|
symbolS *mri_common_symbol;
|
|
|
/* In MRI mode, after a dc.b pseudo-op with an odd number of bytes, we
|
/* 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
|
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
|
dc.b, ds.b, or dcb.b. This variable is set to 1 if an alignment
|
may be needed. */
|
may be needed. */
|
static int mri_pending_align;
|
static int mri_pending_align;
|
|
|
#ifndef NO_LISTING
|
#ifndef NO_LISTING
|
#ifdef OBJ_ELF
|
#ifdef OBJ_ELF
|
/* This variable is set to be non-zero if the next string we see might
|
/* 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
|
be the name of the source file in DWARF debugging information. See
|
the comment in emit_expr for the format we look for. */
|
the comment in emit_expr for the format we look for. */
|
static int dwarf_file_string;
|
static int dwarf_file_string;
|
#endif
|
#endif
|
#endif
|
#endif
|
|
|
static void do_s_func (int end_p, const char *default_prefix);
|
static void do_s_func (int end_p, const char *default_prefix);
|
static void do_align (int, char *, int, int);
|
static void do_align (int, char *, int, int);
|
static void s_align (int, int);
|
static void s_align (int, int);
|
static void s_altmacro (int);
|
static void s_altmacro (int);
|
static void s_bad_end (int);
|
static void s_bad_end (int);
|
#ifdef OBJ_ELF
|
#ifdef OBJ_ELF
|
static void s_gnu_attribute (int);
|
static void s_gnu_attribute (int);
|
#endif
|
#endif
|
static void s_reloc (int);
|
static void s_reloc (int);
|
static int hex_float (int, char *);
|
static int hex_float (int, char *);
|
static segT get_known_segmented_expression (expressionS * expP);
|
static segT get_known_segmented_expression (expressionS * expP);
|
static void pobegin (void);
|
static void pobegin (void);
|
static int get_non_macro_line_sb (sb *);
|
static int get_non_macro_line_sb (sb *);
|
static void generate_file_debug (void);
|
static void generate_file_debug (void);
|
static char *_find_end_of_line (char *, int, int, int);
|
static char *_find_end_of_line (char *, int, int, int);
|
|
|
void
|
void
|
read_begin (void)
|
read_begin (void)
|
{
|
{
|
const char *p;
|
const char *p;
|
|
|
pobegin ();
|
pobegin ();
|
obj_read_begin_hook ();
|
obj_read_begin_hook ();
|
|
|
/* Something close -- but not too close -- to a multiple of 1024.
|
/* Something close -- but not too close -- to a multiple of 1024.
|
The debugging malloc I'm using has 24 bytes of overhead. */
|
The debugging malloc I'm using has 24 bytes of overhead. */
|
obstack_begin (¬es, chunksize);
|
obstack_begin (¬es, chunksize);
|
obstack_begin (&cond_obstack, chunksize);
|
obstack_begin (&cond_obstack, chunksize);
|
|
|
/* Use machine dependent syntax. */
|
/* Use machine dependent syntax. */
|
for (p = line_separator_chars; *p; p++)
|
for (p = line_separator_chars; *p; p++)
|
is_end_of_line[(unsigned char) *p] = 2;
|
is_end_of_line[(unsigned char) *p] = 2;
|
/* Use more. FIXME-SOMEDAY. */
|
/* Use more. FIXME-SOMEDAY. */
|
|
|
if (flag_mri)
|
if (flag_mri)
|
lex_type['?'] = 3;
|
lex_type['?'] = 3;
|
}
|
}
|
|
|
#ifndef TC_ADDRESS_BYTES
|
#ifndef TC_ADDRESS_BYTES
|
#define TC_ADDRESS_BYTES address_bytes
|
#define TC_ADDRESS_BYTES address_bytes
|
|
|
static inline int
|
static inline int
|
address_bytes (void)
|
address_bytes (void)
|
{
|
{
|
/* Choose smallest of 1, 2, 4, 8 bytes that is large enough to
|
/* Choose smallest of 1, 2, 4, 8 bytes that is large enough to
|
contain an address. */
|
contain an address. */
|
int n = (stdoutput->arch_info->bits_per_address - 1) / 8;
|
int n = (stdoutput->arch_info->bits_per_address - 1) / 8;
|
n |= n >> 1;
|
n |= n >> 1;
|
n |= n >> 2;
|
n |= n >> 2;
|
n += 1;
|
n += 1;
|
return n;
|
return n;
|
}
|
}
|
#endif
|
#endif
|
|
|
/* Set up pseudo-op tables. */
|
/* Set up pseudo-op tables. */
|
|
|
static struct hash_control *po_hash;
|
static struct hash_control *po_hash;
|
|
|
static const pseudo_typeS potable[] = {
|
static const pseudo_typeS potable[] = {
|
{"abort", s_abort, 0},
|
{"abort", s_abort, 0},
|
{"align", s_align_ptwo, 0},
|
{"align", s_align_ptwo, 0},
|
{"altmacro", s_altmacro, 1},
|
{"altmacro", s_altmacro, 1},
|
{"ascii", stringer, 8+0},
|
{"ascii", stringer, 8+0},
|
{"asciz", stringer, 8+1},
|
{"asciz", stringer, 8+1},
|
{"balign", s_align_bytes, 0},
|
{"balign", s_align_bytes, 0},
|
{"balignw", s_align_bytes, -2},
|
{"balignw", s_align_bytes, -2},
|
{"balignl", s_align_bytes, -4},
|
{"balignl", s_align_bytes, -4},
|
/* block */
|
/* block */
|
{"byte", cons, 1},
|
{"byte", cons, 1},
|
{"comm", s_comm, 0},
|
{"comm", s_comm, 0},
|
{"common", s_mri_common, 0},
|
{"common", s_mri_common, 0},
|
{"common.s", s_mri_common, 1},
|
{"common.s", s_mri_common, 1},
|
{"data", s_data, 0},
|
{"data", s_data, 0},
|
{"dc", cons, 2},
|
{"dc", cons, 2},
|
#ifdef TC_ADDRESS_BYTES
|
#ifdef TC_ADDRESS_BYTES
|
{"dc.a", cons, 0},
|
{"dc.a", cons, 0},
|
#endif
|
#endif
|
{"dc.b", cons, 1},
|
{"dc.b", cons, 1},
|
{"dc.d", float_cons, 'd'},
|
{"dc.d", float_cons, 'd'},
|
{"dc.l", cons, 4},
|
{"dc.l", cons, 4},
|
{"dc.s", float_cons, 'f'},
|
{"dc.s", float_cons, 'f'},
|
{"dc.w", cons, 2},
|
{"dc.w", cons, 2},
|
{"dc.x", float_cons, 'x'},
|
{"dc.x", float_cons, 'x'},
|
{"dcb", s_space, 2},
|
{"dcb", s_space, 2},
|
{"dcb.b", s_space, 1},
|
{"dcb.b", s_space, 1},
|
{"dcb.d", s_float_space, 'd'},
|
{"dcb.d", s_float_space, 'd'},
|
{"dcb.l", s_space, 4},
|
{"dcb.l", s_space, 4},
|
{"dcb.s", s_float_space, 'f'},
|
{"dcb.s", s_float_space, 'f'},
|
{"dcb.w", s_space, 2},
|
{"dcb.w", s_space, 2},
|
{"dcb.x", s_float_space, 'x'},
|
{"dcb.x", s_float_space, 'x'},
|
{"ds", s_space, 2},
|
{"ds", s_space, 2},
|
{"ds.b", s_space, 1},
|
{"ds.b", s_space, 1},
|
{"ds.d", s_space, 8},
|
{"ds.d", s_space, 8},
|
{"ds.l", s_space, 4},
|
{"ds.l", s_space, 4},
|
{"ds.p", s_space, 12},
|
{"ds.p", s_space, 12},
|
{"ds.s", s_space, 4},
|
{"ds.s", s_space, 4},
|
{"ds.w", s_space, 2},
|
{"ds.w", s_space, 2},
|
{"ds.x", s_space, 12},
|
{"ds.x", s_space, 12},
|
{"debug", s_ignore, 0},
|
{"debug", s_ignore, 0},
|
#ifdef S_SET_DESC
|
#ifdef S_SET_DESC
|
{"desc", s_desc, 0},
|
{"desc", s_desc, 0},
|
#endif
|
#endif
|
/* dim */
|
/* dim */
|
{"double", float_cons, 'd'},
|
{"double", float_cons, 'd'},
|
/* dsect */
|
/* dsect */
|
{"eject", listing_eject, 0}, /* Formfeed listing. */
|
{"eject", listing_eject, 0}, /* Formfeed listing. */
|
{"else", s_else, 0},
|
{"else", s_else, 0},
|
{"elsec", s_else, 0},
|
{"elsec", s_else, 0},
|
{"elseif", s_elseif, (int) O_ne},
|
{"elseif", s_elseif, (int) O_ne},
|
{"end", s_end, 0},
|
{"end", s_end, 0},
|
{"endc", s_endif, 0},
|
{"endc", s_endif, 0},
|
{"endfunc", s_func, 1},
|
{"endfunc", s_func, 1},
|
{"endif", s_endif, 0},
|
{"endif", s_endif, 0},
|
{"endm", s_bad_end, 0},
|
{"endm", s_bad_end, 0},
|
{"endr", s_bad_end, 1},
|
{"endr", s_bad_end, 1},
|
/* endef */
|
/* endef */
|
{"equ", s_set, 0},
|
{"equ", s_set, 0},
|
{"equiv", s_set, 1},
|
{"equiv", s_set, 1},
|
{"eqv", s_set, -1},
|
{"eqv", s_set, -1},
|
{"err", s_err, 0},
|
{"err", s_err, 0},
|
{"error", s_errwarn, 1},
|
{"error", s_errwarn, 1},
|
{"exitm", s_mexit, 0},
|
{"exitm", s_mexit, 0},
|
/* extend */
|
/* extend */
|
{"extern", s_ignore, 0}, /* We treat all undef as ext. */
|
{"extern", s_ignore, 0}, /* We treat all undef as ext. */
|
{"appfile", s_app_file, 1},
|
{"appfile", s_app_file, 1},
|
{"appline", s_app_line, 1},
|
{"appline", s_app_line, 1},
|
{"fail", s_fail, 0},
|
{"fail", s_fail, 0},
|
{"file", s_app_file, 0},
|
{"file", s_app_file, 0},
|
{"fill", s_fill, 0},
|
{"fill", s_fill, 0},
|
{"float", float_cons, 'f'},
|
{"float", float_cons, 'f'},
|
{"format", s_ignore, 0},
|
{"format", s_ignore, 0},
|
{"func", s_func, 0},
|
{"func", s_func, 0},
|
{"global", s_globl, 0},
|
{"global", s_globl, 0},
|
{"globl", s_globl, 0},
|
{"globl", s_globl, 0},
|
#ifdef OBJ_ELF
|
#ifdef OBJ_ELF
|
{"gnu_attribute", s_gnu_attribute, 0},
|
{"gnu_attribute", s_gnu_attribute, 0},
|
#endif
|
#endif
|
{"hword", cons, 2},
|
{"hword", cons, 2},
|
{"if", s_if, (int) O_ne},
|
{"if", s_if, (int) O_ne},
|
{"ifb", s_ifb, 1},
|
{"ifb", s_ifb, 1},
|
{"ifc", s_ifc, 0},
|
{"ifc", s_ifc, 0},
|
{"ifdef", s_ifdef, 0},
|
{"ifdef", s_ifdef, 0},
|
{"ifeq", s_if, (int) O_eq},
|
{"ifeq", s_if, (int) O_eq},
|
{"ifeqs", s_ifeqs, 0},
|
{"ifeqs", s_ifeqs, 0},
|
{"ifge", s_if, (int) O_ge},
|
{"ifge", s_if, (int) O_ge},
|
{"ifgt", s_if, (int) O_gt},
|
{"ifgt", s_if, (int) O_gt},
|
{"ifle", s_if, (int) O_le},
|
{"ifle", s_if, (int) O_le},
|
{"iflt", s_if, (int) O_lt},
|
{"iflt", s_if, (int) O_lt},
|
{"ifnb", s_ifb, 0},
|
{"ifnb", s_ifb, 0},
|
{"ifnc", s_ifc, 1},
|
{"ifnc", s_ifc, 1},
|
{"ifndef", s_ifdef, 1},
|
{"ifndef", s_ifdef, 1},
|
{"ifne", s_if, (int) O_ne},
|
{"ifne", s_if, (int) O_ne},
|
{"ifnes", s_ifeqs, 1},
|
{"ifnes", s_ifeqs, 1},
|
{"ifnotdef", s_ifdef, 1},
|
{"ifnotdef", s_ifdef, 1},
|
{"incbin", s_incbin, 0},
|
{"incbin", s_incbin, 0},
|
{"include", s_include, 0},
|
{"include", s_include, 0},
|
{"int", cons, 4},
|
{"int", cons, 4},
|
{"irp", s_irp, 0},
|
{"irp", s_irp, 0},
|
{"irep", s_irp, 0},
|
{"irep", s_irp, 0},
|
{"irpc", s_irp, 1},
|
{"irpc", s_irp, 1},
|
{"irepc", s_irp, 1},
|
{"irepc", s_irp, 1},
|
{"lcomm", s_lcomm, 0},
|
{"lcomm", s_lcomm, 0},
|
{"lflags", s_ignore, 0}, /* Listing flags. */
|
{"lflags", s_ignore, 0}, /* Listing flags. */
|
{"linefile", s_app_line, 0},
|
{"linefile", s_app_line, 0},
|
{"linkonce", s_linkonce, 0},
|
{"linkonce", s_linkonce, 0},
|
{"list", listing_list, 1}, /* Turn listing on. */
|
{"list", listing_list, 1}, /* Turn listing on. */
|
{"llen", listing_psize, 1},
|
{"llen", listing_psize, 1},
|
{"long", cons, 4},
|
{"long", cons, 4},
|
{"lsym", s_lsym, 0},
|
{"lsym", s_lsym, 0},
|
{"macro", s_macro, 0},
|
{"macro", s_macro, 0},
|
{"mexit", s_mexit, 0},
|
{"mexit", s_mexit, 0},
|
{"mri", s_mri, 0},
|
{"mri", s_mri, 0},
|
{".mri", s_mri, 0}, /* Special case so .mri works in MRI mode. */
|
{".mri", s_mri, 0}, /* Special case so .mri works in MRI mode. */
|
{"name", s_ignore, 0},
|
{"name", s_ignore, 0},
|
{"noaltmacro", s_altmacro, 0},
|
{"noaltmacro", s_altmacro, 0},
|
{"noformat", s_ignore, 0},
|
{"noformat", s_ignore, 0},
|
{"nolist", listing_list, 0}, /* Turn listing off. */
|
{"nolist", listing_list, 0}, /* Turn listing off. */
|
{"nopage", listing_nopage, 0},
|
{"nopage", listing_nopage, 0},
|
{"octa", cons, 16},
|
{"octa", cons, 16},
|
{"offset", s_struct, 0},
|
{"offset", s_struct, 0},
|
{"org", s_org, 0},
|
{"org", s_org, 0},
|
{"p2align", s_align_ptwo, 0},
|
{"p2align", s_align_ptwo, 0},
|
{"p2alignw", s_align_ptwo, -2},
|
{"p2alignw", s_align_ptwo, -2},
|
{"p2alignl", s_align_ptwo, -4},
|
{"p2alignl", s_align_ptwo, -4},
|
{"page", listing_eject, 0},
|
{"page", listing_eject, 0},
|
{"plen", listing_psize, 0},
|
{"plen", listing_psize, 0},
|
{"print", s_print, 0},
|
{"print", s_print, 0},
|
{"psize", listing_psize, 0}, /* Set paper size. */
|
{"psize", listing_psize, 0}, /* Set paper size. */
|
{"purgem", s_purgem, 0},
|
{"purgem", s_purgem, 0},
|
{"quad", cons, 8},
|
{"quad", cons, 8},
|
{"reloc", s_reloc, 0},
|
{"reloc", s_reloc, 0},
|
{"rep", s_rept, 0},
|
{"rep", s_rept, 0},
|
{"rept", s_rept, 0},
|
{"rept", s_rept, 0},
|
{"rva", s_rva, 4},
|
{"rva", s_rva, 4},
|
{"sbttl", listing_title, 1}, /* Subtitle of listing. */
|
{"sbttl", listing_title, 1}, /* Subtitle of listing. */
|
/* scl */
|
/* scl */
|
/* sect */
|
/* sect */
|
{"set", s_set, 0},
|
{"set", s_set, 0},
|
{"short", cons, 2},
|
{"short", cons, 2},
|
{"single", float_cons, 'f'},
|
{"single", float_cons, 'f'},
|
/* size */
|
/* size */
|
{"space", s_space, 0},
|
{"space", s_space, 0},
|
{"skip", s_space, 0},
|
{"skip", s_space, 0},
|
{"sleb128", s_leb128, 1},
|
{"sleb128", s_leb128, 1},
|
{"spc", s_ignore, 0},
|
{"spc", s_ignore, 0},
|
{"stabd", s_stab, 'd'},
|
{"stabd", s_stab, 'd'},
|
{"stabn", s_stab, 'n'},
|
{"stabn", s_stab, 'n'},
|
{"stabs", s_stab, 's'},
|
{"stabs", s_stab, 's'},
|
{"string", stringer, 8+1},
|
{"string", stringer, 8+1},
|
{"string8", stringer, 8+1},
|
{"string8", stringer, 8+1},
|
{"string16", stringer, 16+1},
|
{"string16", stringer, 16+1},
|
{"string32", stringer, 32+1},
|
{"string32", stringer, 32+1},
|
{"string64", stringer, 64+1},
|
{"string64", stringer, 64+1},
|
{"struct", s_struct, 0},
|
{"struct", s_struct, 0},
|
/* tag */
|
/* tag */
|
{"text", s_text, 0},
|
{"text", s_text, 0},
|
|
|
/* This is for gcc to use. It's only just been added (2/94), so gcc
|
/* 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.
|
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
|
But once this has been released, check with gcc maintainers
|
before deleting it or even changing the spelling. */
|
before deleting it or even changing the spelling. */
|
{"this_GCC_requires_the_GNU_assembler", s_ignore, 0},
|
{"this_GCC_requires_the_GNU_assembler", s_ignore, 0},
|
/* If we're folding case -- done for some targets, not necessarily
|
/* If we're folding case -- done for some targets, not necessarily
|
all -- the above string in an input file will be converted to
|
all -- the above string in an input file will be converted to
|
this one. Match it either way... */
|
this one. Match it either way... */
|
{"this_gcc_requires_the_gnu_assembler", s_ignore, 0},
|
{"this_gcc_requires_the_gnu_assembler", s_ignore, 0},
|
|
|
{"title", listing_title, 0}, /* Listing title. */
|
{"title", listing_title, 0}, /* Listing title. */
|
{"ttl", listing_title, 0},
|
{"ttl", listing_title, 0},
|
/* type */
|
/* type */
|
{"uleb128", s_leb128, 0},
|
{"uleb128", s_leb128, 0},
|
/* use */
|
/* use */
|
/* val */
|
/* val */
|
{"xcom", s_comm, 0},
|
{"xcom", s_comm, 0},
|
{"xdef", s_globl, 0},
|
{"xdef", s_globl, 0},
|
{"xref", s_ignore, 0},
|
{"xref", s_ignore, 0},
|
{"xstabs", s_xstab, 's'},
|
{"xstabs", s_xstab, 's'},
|
{"warning", s_errwarn, 0},
|
{"warning", s_errwarn, 0},
|
{"weakref", s_weakref, 0},
|
{"weakref", s_weakref, 0},
|
{"word", cons, 2},
|
{"word", cons, 2},
|
{"zero", s_space, 0},
|
{"zero", s_space, 0},
|
{NULL, NULL, 0} /* End sentinel. */
|
{NULL, NULL, 0} /* End sentinel. */
|
};
|
};
|
|
|
static offsetT
|
static offsetT
|
get_absolute_expr (expressionS *exp)
|
get_absolute_expr (expressionS *exp)
|
{
|
{
|
expression_and_evaluate (exp);
|
expression_and_evaluate (exp);
|
if (exp->X_op != O_constant)
|
if (exp->X_op != O_constant)
|
{
|
{
|
if (exp->X_op != O_absent)
|
if (exp->X_op != O_absent)
|
as_bad (_("bad or irreducible absolute expression"));
|
as_bad (_("bad or irreducible absolute expression"));
|
exp->X_add_number = 0;
|
exp->X_add_number = 0;
|
}
|
}
|
return exp->X_add_number;
|
return exp->X_add_number;
|
}
|
}
|
|
|
offsetT
|
offsetT
|
get_absolute_expression (void)
|
get_absolute_expression (void)
|
{
|
{
|
expressionS exp;
|
expressionS exp;
|
|
|
return get_absolute_expr (&exp);
|
return get_absolute_expr (&exp);
|
}
|
}
|
|
|
static int pop_override_ok = 0;
|
static int pop_override_ok = 0;
|
static const char *pop_table_name;
|
static const char *pop_table_name;
|
|
|
void
|
void
|
pop_insert (const pseudo_typeS *table)
|
pop_insert (const pseudo_typeS *table)
|
{
|
{
|
const char *errtxt;
|
const char *errtxt;
|
const pseudo_typeS *pop;
|
const pseudo_typeS *pop;
|
for (pop = table; pop->poc_name; pop++)
|
for (pop = table; pop->poc_name; pop++)
|
{
|
{
|
errtxt = hash_insert (po_hash, pop->poc_name, (char *) pop);
|
errtxt = hash_insert (po_hash, pop->poc_name, (char *) pop);
|
if (errtxt && (!pop_override_ok || strcmp (errtxt, "exists")))
|
if (errtxt && (!pop_override_ok || strcmp (errtxt, "exists")))
|
as_fatal (_("error constructing %s pseudo-op table: %s"), pop_table_name,
|
as_fatal (_("error constructing %s pseudo-op table: %s"), pop_table_name,
|
errtxt);
|
errtxt);
|
}
|
}
|
}
|
}
|
|
|
#ifndef md_pop_insert
|
#ifndef md_pop_insert
|
#define md_pop_insert() pop_insert(md_pseudo_table)
|
#define md_pop_insert() pop_insert(md_pseudo_table)
|
#endif
|
#endif
|
|
|
#ifndef obj_pop_insert
|
#ifndef obj_pop_insert
|
#define obj_pop_insert() pop_insert(obj_pseudo_table)
|
#define obj_pop_insert() pop_insert(obj_pseudo_table)
|
#endif
|
#endif
|
|
|
#ifndef cfi_pop_insert
|
#ifndef cfi_pop_insert
|
#define cfi_pop_insert() pop_insert(cfi_pseudo_table)
|
#define cfi_pop_insert() pop_insert(cfi_pseudo_table)
|
#endif
|
#endif
|
|
|
static void
|
static void
|
pobegin (void)
|
pobegin (void)
|
{
|
{
|
po_hash = hash_new ();
|
po_hash = hash_new ();
|
|
|
/* Do the target-specific pseudo ops. */
|
/* Do the target-specific pseudo ops. */
|
pop_table_name = "md";
|
pop_table_name = "md";
|
md_pop_insert ();
|
md_pop_insert ();
|
|
|
/* Now object specific. Skip any that were in the target table. */
|
/* Now object specific. Skip any that were in the target table. */
|
pop_table_name = "obj";
|
pop_table_name = "obj";
|
pop_override_ok = 1;
|
pop_override_ok = 1;
|
obj_pop_insert ();
|
obj_pop_insert ();
|
|
|
/* Now portable ones. Skip any that we've seen already. */
|
/* Now portable ones. Skip any that we've seen already. */
|
pop_table_name = "standard";
|
pop_table_name = "standard";
|
pop_insert (potable);
|
pop_insert (potable);
|
|
|
/* Now CFI ones. */
|
/* Now CFI ones. */
|
pop_table_name = "cfi";
|
pop_table_name = "cfi";
|
pop_override_ok = 1;
|
pop_override_ok = 1;
|
cfi_pop_insert ();
|
cfi_pop_insert ();
|
}
|
}
|
|
|
#define HANDLE_CONDITIONAL_ASSEMBLY() \
|
#define HANDLE_CONDITIONAL_ASSEMBLY() \
|
if (ignore_input ()) \
|
if (ignore_input ()) \
|
{ \
|
{ \
|
char *eol = find_end_of_line (input_line_pointer, flag_m68k_mri); \
|
char *eol = find_end_of_line (input_line_pointer, flag_m68k_mri); \
|
input_line_pointer = (input_line_pointer <= buffer_limit \
|
input_line_pointer = (input_line_pointer <= buffer_limit \
|
&& eol >= buffer_limit) \
|
&& eol >= buffer_limit) \
|
? buffer_limit \
|
? buffer_limit \
|
: eol + 1; \
|
: eol + 1; \
|
continue; \
|
continue; \
|
}
|
}
|
|
|
/* This function is used when scrubbing the characters between #APP
|
/* This function is used when scrubbing the characters between #APP
|
and #NO_APP. */
|
and #NO_APP. */
|
|
|
static char *scrub_string;
|
static char *scrub_string;
|
static char *scrub_string_end;
|
static char *scrub_string_end;
|
|
|
static int
|
static int
|
scrub_from_string (char *buf, int buflen)
|
scrub_from_string (char *buf, int buflen)
|
{
|
{
|
int copy;
|
int copy;
|
|
|
copy = scrub_string_end - scrub_string;
|
copy = scrub_string_end - scrub_string;
|
if (copy > buflen)
|
if (copy > buflen)
|
copy = buflen;
|
copy = buflen;
|
memcpy (buf, scrub_string, copy);
|
memcpy (buf, scrub_string, copy);
|
scrub_string += copy;
|
scrub_string += copy;
|
return copy;
|
return copy;
|
}
|
}
|
|
|
/* Helper function of read_a_source_file, which tries to expand a macro. */
|
/* Helper function of read_a_source_file, which tries to expand a macro. */
|
static int
|
static int
|
try_macro (char term, const char *line)
|
try_macro (char term, const char *line)
|
{
|
{
|
sb out;
|
sb out;
|
const char *err;
|
const char *err;
|
macro_entry *macro;
|
macro_entry *macro;
|
|
|
if (check_macro (line, &out, &err, ¯o))
|
if (check_macro (line, &out, &err, ¯o))
|
{
|
{
|
if (err != NULL)
|
if (err != NULL)
|
as_bad ("%s", err);
|
as_bad ("%s", err);
|
*input_line_pointer++ = term;
|
*input_line_pointer++ = term;
|
input_scrub_include_sb (&out,
|
input_scrub_include_sb (&out,
|
input_line_pointer, 1);
|
input_line_pointer, 1);
|
sb_kill (&out);
|
sb_kill (&out);
|
buffer_limit =
|
buffer_limit =
|
input_scrub_next_buffer (&input_line_pointer);
|
input_scrub_next_buffer (&input_line_pointer);
|
#ifdef md_macro_info
|
#ifdef md_macro_info
|
md_macro_info (macro);
|
md_macro_info (macro);
|
#endif
|
#endif
|
return 1;
|
return 1;
|
}
|
}
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* We read the file, putting things into a web that represents what we
|
/* We read the file, putting things into a web that represents what we
|
have been reading. */
|
have been reading. */
|
void
|
void
|
read_a_source_file (char *name)
|
read_a_source_file (char *name)
|
{
|
{
|
char c;
|
char c;
|
char *s; /* String of symbol, '\0' appended. */
|
char *s; /* String of symbol, '\0' appended. */
|
int temp;
|
int temp;
|
pseudo_typeS *pop;
|
pseudo_typeS *pop;
|
|
|
#ifdef WARN_COMMENTS
|
#ifdef WARN_COMMENTS
|
found_comment = 0;
|
found_comment = 0;
|
#endif
|
#endif
|
|
|
buffer = input_scrub_new_file (name);
|
buffer = input_scrub_new_file (name);
|
|
|
listing_file (name);
|
listing_file (name);
|
listing_newline (NULL);
|
listing_newline (NULL);
|
register_dependency (name);
|
register_dependency (name);
|
|
|
/* Generate debugging information before we've read anything in to denote
|
/* Generate debugging information before we've read anything in to denote
|
this file as the "main" source file and not a subordinate one
|
this file as the "main" source file and not a subordinate one
|
(e.g. N_SO vs N_SOL in stabs). */
|
(e.g. N_SO vs N_SOL in stabs). */
|
generate_file_debug ();
|
generate_file_debug ();
|
|
|
while ((buffer_limit = input_scrub_next_buffer (&input_line_pointer)) != 0)
|
while ((buffer_limit = input_scrub_next_buffer (&input_line_pointer)) != 0)
|
{ /* We have another line to parse. */
|
{ /* We have another line to parse. */
|
#ifndef NO_LISTING
|
#ifndef NO_LISTING
|
/* In order to avoid listing macro expansion lines with labels
|
/* In order to avoid listing macro expansion lines with labels
|
multiple times, keep track of which line was last issued. */
|
multiple times, keep track of which line was last issued. */
|
static char *last_eol;
|
static char *last_eol;
|
|
|
last_eol = NULL;
|
last_eol = NULL;
|
#endif
|
#endif
|
while (input_line_pointer < buffer_limit)
|
while (input_line_pointer < buffer_limit)
|
{
|
{
|
bfd_boolean was_new_line;
|
bfd_boolean was_new_line;
|
/* We have more of this buffer to parse. */
|
/* We have more of this buffer to parse. */
|
|
|
/* We now have input_line_pointer->1st char of next line.
|
/* We now have input_line_pointer->1st char of next line.
|
If input_line_pointer [-1] == '\n' then we just
|
If input_line_pointer [-1] == '\n' then we just
|
scanned another line: so bump line counters. */
|
scanned another line: so bump line counters. */
|
was_new_line = is_end_of_line[(unsigned char) input_line_pointer[-1]];
|
was_new_line = is_end_of_line[(unsigned char) input_line_pointer[-1]];
|
if (was_new_line)
|
if (was_new_line)
|
{
|
{
|
symbol_set_value_now (&dot_symbol);
|
symbol_set_value_now (&dot_symbol);
|
#ifdef md_start_line_hook
|
#ifdef md_start_line_hook
|
md_start_line_hook ();
|
md_start_line_hook ();
|
#endif
|
#endif
|
if (input_line_pointer[-1] == '\n')
|
if (input_line_pointer[-1] == '\n')
|
bump_line_counters ();
|
bump_line_counters ();
|
}
|
}
|
|
|
#ifndef NO_LISTING
|
#ifndef NO_LISTING
|
/* If listing is on, and we are expanding a macro, then give
|
/* If listing is on, and we are expanding a macro, then give
|
the listing code the contents of the expanded line. */
|
the listing code the contents of the expanded line. */
|
if (listing)
|
if (listing)
|
{
|
{
|
if ((listing & LISTING_MACEXP) && macro_nest > 0)
|
if ((listing & LISTING_MACEXP) && macro_nest > 0)
|
{
|
{
|
/* Find the end of the current expanded macro line. */
|
/* Find the end of the current expanded macro line. */
|
s = find_end_of_line (input_line_pointer, flag_m68k_mri);
|
s = find_end_of_line (input_line_pointer, flag_m68k_mri);
|
|
|
if (s != last_eol)
|
if (s != last_eol)
|
{
|
{
|
char *copy;
|
char *copy;
|
int len;
|
int len;
|
|
|
last_eol = s;
|
last_eol = s;
|
/* Copy it for safe keeping. Also give an indication of
|
/* Copy it for safe keeping. Also give an indication of
|
how much macro nesting is involved at this point. */
|
how much macro nesting is involved at this point. */
|
len = s - input_line_pointer;
|
len = s - input_line_pointer;
|
copy = (char *) xmalloc (len + macro_nest + 2);
|
copy = (char *) xmalloc (len + macro_nest + 2);
|
memset (copy, '>', macro_nest);
|
memset (copy, '>', macro_nest);
|
copy[macro_nest] = ' ';
|
copy[macro_nest] = ' ';
|
memcpy (copy + macro_nest + 1, input_line_pointer, len);
|
memcpy (copy + macro_nest + 1, input_line_pointer, len);
|
copy[macro_nest + 1 + len] = '\0';
|
copy[macro_nest + 1 + len] = '\0';
|
|
|
/* Install the line with the listing facility. */
|
/* Install the line with the listing facility. */
|
listing_newline (copy);
|
listing_newline (copy);
|
}
|
}
|
}
|
}
|
else
|
else
|
listing_newline (NULL);
|
listing_newline (NULL);
|
}
|
}
|
#endif
|
#endif
|
if (was_new_line)
|
if (was_new_line)
|
{
|
{
|
line_label = NULL;
|
line_label = NULL;
|
|
|
if (LABELS_WITHOUT_COLONS || flag_m68k_mri)
|
if (LABELS_WITHOUT_COLONS || flag_m68k_mri)
|
{
|
{
|
/* Text at the start of a line must be a label, we
|
/* Text at the start of a line must be a label, we
|
run down and stick a colon in. */
|
run down and stick a colon in. */
|
if (is_name_beginner (*input_line_pointer))
|
if (is_name_beginner (*input_line_pointer))
|
{
|
{
|
char *line_start = input_line_pointer;
|
char *line_start = input_line_pointer;
|
int mri_line_macro;
|
int mri_line_macro;
|
|
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
|
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
|
|
/* In MRI mode, the EQU and MACRO pseudoops must
|
/* In MRI mode, the EQU and MACRO pseudoops must
|
be handled specially. */
|
be handled specially. */
|
mri_line_macro = 0;
|
mri_line_macro = 0;
|
if (flag_m68k_mri)
|
if (flag_m68k_mri)
|
{
|
{
|
char *rest = input_line_pointer + 1;
|
char *rest = input_line_pointer + 1;
|
|
|
if (*rest == ':')
|
if (*rest == ':')
|
++rest;
|
++rest;
|
if (*rest == ' ' || *rest == '\t')
|
if (*rest == ' ' || *rest == '\t')
|
++rest;
|
++rest;
|
if ((strncasecmp (rest, "EQU", 3) == 0
|
if ((strncasecmp (rest, "EQU", 3) == 0
|
|| strncasecmp (rest, "SET", 3) == 0)
|
|| strncasecmp (rest, "SET", 3) == 0)
|
&& (rest[3] == ' ' || rest[3] == '\t'))
|
&& (rest[3] == ' ' || rest[3] == '\t'))
|
{
|
{
|
input_line_pointer = rest + 3;
|
input_line_pointer = rest + 3;
|
equals (line_start,
|
equals (line_start,
|
strncasecmp (rest, "SET", 3) == 0);
|
strncasecmp (rest, "SET", 3) == 0);
|
continue;
|
continue;
|
}
|
}
|
if (strncasecmp (rest, "MACRO", 5) == 0
|
if (strncasecmp (rest, "MACRO", 5) == 0
|
&& (rest[5] == ' '
|
&& (rest[5] == ' '
|
|| rest[5] == '\t'
|
|| rest[5] == '\t'
|
|| is_end_of_line[(unsigned char) rest[5]]))
|
|| is_end_of_line[(unsigned char) rest[5]]))
|
mri_line_macro = 1;
|
mri_line_macro = 1;
|
}
|
}
|
|
|
/* In MRI mode, we need to handle the MACRO
|
/* In MRI mode, we need to handle the MACRO
|
pseudo-op specially: we don't want to put the
|
pseudo-op specially: we don't want to put the
|
symbol in the symbol table. */
|
symbol in the symbol table. */
|
if (!mri_line_macro
|
if (!mri_line_macro
|
#ifdef TC_START_LABEL_WITHOUT_COLON
|
#ifdef TC_START_LABEL_WITHOUT_COLON
|
&& TC_START_LABEL_WITHOUT_COLON(c,
|
&& TC_START_LABEL_WITHOUT_COLON(c,
|
input_line_pointer)
|
input_line_pointer)
|
#endif
|
#endif
|
)
|
)
|
line_label = colon (line_start);
|
line_label = colon (line_start);
|
else
|
else
|
line_label = symbol_create (line_start,
|
line_label = symbol_create (line_start,
|
absolute_section,
|
absolute_section,
|
(valueT) 0,
|
(valueT) 0,
|
&zero_address_frag);
|
&zero_address_frag);
|
|
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
if (c == ':')
|
if (c == ':')
|
input_line_pointer++;
|
input_line_pointer++;
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
/* We are at the beginning of a line, or similar place.
|
/* We are at the beginning of a line, or similar place.
|
We expect a well-formed assembler statement.
|
We expect a well-formed assembler statement.
|
A "symbol-name:" is a statement.
|
A "symbol-name:" is a statement.
|
|
|
Depending on what compiler is used, the order of these tests
|
Depending on what compiler is used, the order of these tests
|
may vary to catch most common case 1st.
|
may vary to catch most common case 1st.
|
Each test is independent of all other tests at the (top)
|
Each test is independent of all other tests at the (top)
|
level. */
|
level. */
|
do
|
do
|
c = *input_line_pointer++;
|
c = *input_line_pointer++;
|
while (c == '\t' || c == ' ' || c == '\f');
|
while (c == '\t' || c == ' ' || c == '\f');
|
|
|
/* C is the 1st significant character.
|
/* C is the 1st significant character.
|
Input_line_pointer points after that character. */
|
Input_line_pointer points after that character. */
|
if (is_name_beginner (c))
|
if (is_name_beginner (c))
|
{
|
{
|
/* Want user-defined label or pseudo/opcode. */
|
/* Want user-defined label or pseudo/opcode. */
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
|
|
s = --input_line_pointer;
|
s = --input_line_pointer;
|
c = get_symbol_end (); /* name's delimiter. */
|
c = get_symbol_end (); /* name's delimiter. */
|
|
|
/* C is character after symbol.
|
/* C is character after symbol.
|
That character's place in the input line is now '\0'.
|
That character's place in the input line is now '\0'.
|
S points to the beginning of the symbol.
|
S points to the beginning of the symbol.
|
[In case of pseudo-op, s->'.'.]
|
[In case of pseudo-op, s->'.'.]
|
Input_line_pointer->'\0' where c was. */
|
Input_line_pointer->'\0' where c was. */
|
if (TC_START_LABEL (c, s, input_line_pointer))
|
if (TC_START_LABEL (c, s, input_line_pointer))
|
{
|
{
|
if (flag_m68k_mri)
|
if (flag_m68k_mri)
|
{
|
{
|
char *rest = input_line_pointer + 1;
|
char *rest = input_line_pointer + 1;
|
|
|
/* In MRI mode, \tsym: set 0 is permitted. */
|
/* In MRI mode, \tsym: set 0 is permitted. */
|
if (*rest == ':')
|
if (*rest == ':')
|
++rest;
|
++rest;
|
|
|
if (*rest == ' ' || *rest == '\t')
|
if (*rest == ' ' || *rest == '\t')
|
++rest;
|
++rest;
|
|
|
if ((strncasecmp (rest, "EQU", 3) == 0
|
if ((strncasecmp (rest, "EQU", 3) == 0
|
|| strncasecmp (rest, "SET", 3) == 0)
|
|| strncasecmp (rest, "SET", 3) == 0)
|
&& (rest[3] == ' ' || rest[3] == '\t'))
|
&& (rest[3] == ' ' || rest[3] == '\t'))
|
{
|
{
|
input_line_pointer = rest + 3;
|
input_line_pointer = rest + 3;
|
equals (s, 1);
|
equals (s, 1);
|
continue;
|
continue;
|
}
|
}
|
}
|
}
|
|
|
line_label = colon (s); /* User-defined label. */
|
line_label = colon (s); /* User-defined label. */
|
/* Put ':' back for error messages' sake. */
|
/* Put ':' back for error messages' sake. */
|
*input_line_pointer++ = ':';
|
*input_line_pointer++ = ':';
|
#ifdef tc_check_label
|
#ifdef tc_check_label
|
tc_check_label (line_label);
|
tc_check_label (line_label);
|
#endif
|
#endif
|
/* Input_line_pointer->after ':'. */
|
/* Input_line_pointer->after ':'. */
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
}
|
}
|
else if ((c == '=' && input_line_pointer[1] == '=')
|
else if ((c == '=' && input_line_pointer[1] == '=')
|
|| ((c == ' ' || c == '\t')
|
|| ((c == ' ' || c == '\t')
|
&& input_line_pointer[1] == '='
|
&& input_line_pointer[1] == '='
|
&& input_line_pointer[2] == '='))
|
&& input_line_pointer[2] == '='))
|
{
|
{
|
equals (s, -1);
|
equals (s, -1);
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
else if ((c == '='
|
else if ((c == '='
|
|| ((c == ' ' || c == '\t')
|
|| ((c == ' ' || c == '\t')
|
&& input_line_pointer[1] == '='))
|
&& input_line_pointer[1] == '='))
|
#ifdef TC_EQUAL_IN_INSN
|
#ifdef TC_EQUAL_IN_INSN
|
&& !TC_EQUAL_IN_INSN (c, s)
|
&& !TC_EQUAL_IN_INSN (c, s)
|
#endif
|
#endif
|
)
|
)
|
{
|
{
|
equals (s, 1);
|
equals (s, 1);
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Expect pseudo-op or machine instruction. */
|
/* Expect pseudo-op or machine instruction. */
|
pop = NULL;
|
pop = NULL;
|
|
|
#ifndef TC_CASE_SENSITIVE
|
#ifndef TC_CASE_SENSITIVE
|
{
|
{
|
char *s2 = s;
|
char *s2 = s;
|
|
|
strncpy (original_case_string, s2, sizeof (original_case_string));
|
strncpy (original_case_string, s2, sizeof (original_case_string));
|
original_case_string[sizeof (original_case_string) - 1] = 0;
|
original_case_string[sizeof (original_case_string) - 1] = 0;
|
|
|
while (*s2)
|
while (*s2)
|
{
|
{
|
*s2 = TOLOWER (*s2);
|
*s2 = TOLOWER (*s2);
|
s2++;
|
s2++;
|
}
|
}
|
}
|
}
|
#endif
|
#endif
|
if (NO_PSEUDO_DOT || flag_m68k_mri)
|
if (NO_PSEUDO_DOT || flag_m68k_mri)
|
{
|
{
|
/* The MRI assembler uses pseudo-ops without
|
/* The MRI assembler uses pseudo-ops without
|
a period. */
|
a period. */
|
pop = (pseudo_typeS *) hash_find (po_hash, s);
|
pop = (pseudo_typeS *) hash_find (po_hash, s);
|
if (pop != NULL && pop->poc_handler == NULL)
|
if (pop != NULL && pop->poc_handler == NULL)
|
pop = NULL;
|
pop = NULL;
|
}
|
}
|
|
|
if (pop != NULL
|
if (pop != NULL
|
|| (!flag_m68k_mri && *s == '.'))
|
|| (!flag_m68k_mri && *s == '.'))
|
{
|
{
|
/* PSEUDO - OP.
|
/* PSEUDO - OP.
|
|
|
WARNING: c has next char, which may be end-of-line.
|
WARNING: c has next char, which may be end-of-line.
|
We lookup the pseudo-op table with s+1 because we
|
We lookup the pseudo-op table with s+1 because we
|
already know that the pseudo-op begins with a '.'. */
|
already know that the pseudo-op begins with a '.'. */
|
|
|
if (pop == NULL)
|
if (pop == NULL)
|
pop = (pseudo_typeS *) hash_find (po_hash, s + 1);
|
pop = (pseudo_typeS *) hash_find (po_hash, s + 1);
|
if (pop && !pop->poc_handler)
|
if (pop && !pop->poc_handler)
|
pop = NULL;
|
pop = NULL;
|
|
|
/* In MRI mode, we may need to insert an
|
/* In MRI mode, we may need to insert an
|
automatic alignment directive. What a hack
|
automatic alignment directive. What a hack
|
this is. */
|
this is. */
|
if (mri_pending_align
|
if (mri_pending_align
|
&& (pop == NULL
|
&& (pop == NULL
|
|| !((pop->poc_handler == cons
|
|| !((pop->poc_handler == cons
|
&& pop->poc_val == 1)
|
&& pop->poc_val == 1)
|
|| (pop->poc_handler == s_space
|
|| (pop->poc_handler == s_space
|
&& pop->poc_val == 1)
|
&& pop->poc_val == 1)
|
#ifdef tc_conditional_pseudoop
|
#ifdef tc_conditional_pseudoop
|
|| tc_conditional_pseudoop (pop)
|
|| tc_conditional_pseudoop (pop)
|
#endif
|
#endif
|
|| pop->poc_handler == s_if
|
|| pop->poc_handler == s_if
|
|| pop->poc_handler == s_ifdef
|
|| pop->poc_handler == s_ifdef
|
|| pop->poc_handler == s_ifc
|
|| pop->poc_handler == s_ifc
|
|| pop->poc_handler == s_ifeqs
|
|| pop->poc_handler == s_ifeqs
|
|| pop->poc_handler == s_else
|
|| pop->poc_handler == s_else
|
|| pop->poc_handler == s_endif
|
|| pop->poc_handler == s_endif
|
|| pop->poc_handler == s_globl
|
|| pop->poc_handler == s_globl
|
|| pop->poc_handler == s_ignore)))
|
|| pop->poc_handler == s_ignore)))
|
{
|
{
|
do_align (1, (char *) NULL, 0, 0);
|
do_align (1, (char *) NULL, 0, 0);
|
mri_pending_align = 0;
|
mri_pending_align = 0;
|
|
|
if (line_label != NULL)
|
if (line_label != NULL)
|
{
|
{
|
symbol_set_frag (line_label, frag_now);
|
symbol_set_frag (line_label, frag_now);
|
S_SET_VALUE (line_label, frag_now_fix ());
|
S_SET_VALUE (line_label, frag_now_fix ());
|
}
|
}
|
}
|
}
|
|
|
/* Print the error msg now, while we still can. */
|
/* Print the error msg now, while we still can. */
|
if (pop == NULL)
|
if (pop == NULL)
|
{
|
{
|
char *end = input_line_pointer;
|
char *end = input_line_pointer;
|
|
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
s_ignore (0);
|
s_ignore (0);
|
c = *--input_line_pointer;
|
c = *--input_line_pointer;
|
*input_line_pointer = '\0';
|
*input_line_pointer = '\0';
|
if (! macro_defined || ! try_macro (c, s))
|
if (! macro_defined || ! try_macro (c, s))
|
{
|
{
|
*end = '\0';
|
*end = '\0';
|
as_bad (_("unknown pseudo-op: `%s'"), s);
|
as_bad (_("unknown pseudo-op: `%s'"), s);
|
*input_line_pointer++ = c;
|
*input_line_pointer++ = c;
|
}
|
}
|
continue;
|
continue;
|
}
|
}
|
|
|
/* Put it back for error messages etc. */
|
/* Put it back for error messages etc. */
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
/* The following skip of whitespace is compulsory.
|
/* The following skip of whitespace is compulsory.
|
A well shaped space is sometimes all that separates
|
A well shaped space is sometimes all that separates
|
keyword from operands. */
|
keyword from operands. */
|
if (c == ' ' || c == '\t')
|
if (c == ' ' || c == '\t')
|
input_line_pointer++;
|
input_line_pointer++;
|
|
|
/* Input_line is restored.
|
/* Input_line is restored.
|
Input_line_pointer->1st non-blank char
|
Input_line_pointer->1st non-blank char
|
after pseudo-operation. */
|
after pseudo-operation. */
|
(*pop->poc_handler) (pop->poc_val);
|
(*pop->poc_handler) (pop->poc_val);
|
|
|
/* If that was .end, just get out now. */
|
/* If that was .end, just get out now. */
|
if (pop->poc_handler == s_end)
|
if (pop->poc_handler == s_end)
|
goto quit;
|
goto quit;
|
}
|
}
|
else
|
else
|
{
|
{
|
/* WARNING: c has char, which may be end-of-line. */
|
/* WARNING: c has char, which may be end-of-line. */
|
/* Also: input_line_pointer->`\0` where c was. */
|
/* Also: input_line_pointer->`\0` where c was. */
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
input_line_pointer = _find_end_of_line (input_line_pointer, flag_m68k_mri, 1, 0);
|
input_line_pointer = _find_end_of_line (input_line_pointer, flag_m68k_mri, 1, 0);
|
c = *input_line_pointer;
|
c = *input_line_pointer;
|
*input_line_pointer = '\0';
|
*input_line_pointer = '\0';
|
|
|
generate_lineno_debug ();
|
generate_lineno_debug ();
|
|
|
if (macro_defined && try_macro (c, s))
|
if (macro_defined && try_macro (c, s))
|
continue;
|
continue;
|
|
|
if (mri_pending_align)
|
if (mri_pending_align)
|
{
|
{
|
do_align (1, (char *) NULL, 0, 0);
|
do_align (1, (char *) NULL, 0, 0);
|
mri_pending_align = 0;
|
mri_pending_align = 0;
|
if (line_label != NULL)
|
if (line_label != NULL)
|
{
|
{
|
symbol_set_frag (line_label, frag_now);
|
symbol_set_frag (line_label, frag_now);
|
S_SET_VALUE (line_label, frag_now_fix ());
|
S_SET_VALUE (line_label, frag_now_fix ());
|
}
|
}
|
}
|
}
|
|
|
md_assemble (s); /* Assemble 1 instruction. */
|
md_assemble (s); /* Assemble 1 instruction. */
|
|
|
*input_line_pointer++ = c;
|
*input_line_pointer++ = c;
|
|
|
/* We resume loop AFTER the end-of-line from
|
/* We resume loop AFTER the end-of-line from
|
this instruction. */
|
this instruction. */
|
}
|
}
|
}
|
}
|
continue;
|
continue;
|
}
|
}
|
|
|
/* Empty statement? */
|
/* Empty statement? */
|
if (is_end_of_line[(unsigned char) c])
|
if (is_end_of_line[(unsigned char) c])
|
continue;
|
continue;
|
|
|
if ((LOCAL_LABELS_DOLLAR || LOCAL_LABELS_FB) && ISDIGIT (c))
|
if ((LOCAL_LABELS_DOLLAR || LOCAL_LABELS_FB) && ISDIGIT (c))
|
{
|
{
|
/* local label ("4:") */
|
/* local label ("4:") */
|
char *backup = input_line_pointer;
|
char *backup = input_line_pointer;
|
|
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
|
|
temp = c - '0';
|
temp = c - '0';
|
|
|
/* Read the whole number. */
|
/* Read the whole number. */
|
while (ISDIGIT (*input_line_pointer))
|
while (ISDIGIT (*input_line_pointer))
|
{
|
{
|
temp = (temp * 10) + *input_line_pointer - '0';
|
temp = (temp * 10) + *input_line_pointer - '0';
|
++input_line_pointer;
|
++input_line_pointer;
|
}
|
}
|
|
|
if (LOCAL_LABELS_DOLLAR
|
if (LOCAL_LABELS_DOLLAR
|
&& *input_line_pointer == '$'
|
&& *input_line_pointer == '$'
|
&& *(input_line_pointer + 1) == ':')
|
&& *(input_line_pointer + 1) == ':')
|
{
|
{
|
input_line_pointer += 2;
|
input_line_pointer += 2;
|
|
|
if (dollar_label_defined (temp))
|
if (dollar_label_defined (temp))
|
{
|
{
|
as_fatal (_("label \"%d$\" redefined"), temp);
|
as_fatal (_("label \"%d$\" redefined"), temp);
|
}
|
}
|
|
|
define_dollar_label (temp);
|
define_dollar_label (temp);
|
colon (dollar_label_name (temp, 0));
|
colon (dollar_label_name (temp, 0));
|
continue;
|
continue;
|
}
|
}
|
|
|
if (LOCAL_LABELS_FB
|
if (LOCAL_LABELS_FB
|
&& *input_line_pointer++ == ':')
|
&& *input_line_pointer++ == ':')
|
{
|
{
|
fb_label_instance_inc (temp);
|
fb_label_instance_inc (temp);
|
colon (fb_label_name (temp, 0));
|
colon (fb_label_name (temp, 0));
|
continue;
|
continue;
|
}
|
}
|
|
|
input_line_pointer = backup;
|
input_line_pointer = backup;
|
} /* local label ("4:") */
|
} /* local label ("4:") */
|
|
|
if (c && strchr (line_comment_chars, c))
|
if (c && strchr (line_comment_chars, c))
|
{ /* Its a comment. Better say APP or NO_APP. */
|
{ /* Its a comment. Better say APP or NO_APP. */
|
sb sbuf;
|
sb sbuf;
|
char *ends;
|
char *ends;
|
char *new_buf;
|
char *new_buf;
|
char *new_tmp;
|
char *new_tmp;
|
unsigned int new_length;
|
unsigned int new_length;
|
char *tmp_buf = 0;
|
char *tmp_buf = 0;
|
|
|
s = input_line_pointer;
|
s = input_line_pointer;
|
if (strncmp (s, "APP\n", 4))
|
if (strncmp (s, "APP\n", 4))
|
{
|
{
|
/* We ignore it. */
|
/* We ignore it. */
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
continue;
|
continue;
|
}
|
}
|
bump_line_counters ();
|
bump_line_counters ();
|
s += 4;
|
s += 4;
|
|
|
sb_new (&sbuf);
|
sb_new (&sbuf);
|
ends = strstr (s, "#NO_APP\n");
|
ends = strstr (s, "#NO_APP\n");
|
|
|
if (!ends)
|
if (!ends)
|
{
|
{
|
unsigned int tmp_len;
|
unsigned int tmp_len;
|
unsigned int num;
|
unsigned int num;
|
|
|
/* The end of the #APP wasn't in this buffer. We
|
/* The end of the #APP wasn't in this buffer. We
|
keep reading in buffers until we find the #NO_APP
|
keep reading in buffers until we find the #NO_APP
|
that goes with this #APP There is one. The specs
|
that goes with this #APP There is one. The specs
|
guarantee it... */
|
guarantee it... */
|
tmp_len = buffer_limit - s;
|
tmp_len = buffer_limit - s;
|
tmp_buf = (char *) xmalloc (tmp_len + 1);
|
tmp_buf = (char *) xmalloc (tmp_len + 1);
|
memcpy (tmp_buf, s, tmp_len);
|
memcpy (tmp_buf, s, tmp_len);
|
do
|
do
|
{
|
{
|
new_tmp = input_scrub_next_buffer (&buffer);
|
new_tmp = input_scrub_next_buffer (&buffer);
|
if (!new_tmp)
|
if (!new_tmp)
|
break;
|
break;
|
else
|
else
|
buffer_limit = new_tmp;
|
buffer_limit = new_tmp;
|
input_line_pointer = buffer;
|
input_line_pointer = buffer;
|
ends = strstr (buffer, "#NO_APP\n");
|
ends = strstr (buffer, "#NO_APP\n");
|
if (ends)
|
if (ends)
|
num = ends - buffer;
|
num = ends - buffer;
|
else
|
else
|
num = buffer_limit - buffer;
|
num = buffer_limit - buffer;
|
|
|
tmp_buf = (char *) xrealloc (tmp_buf, tmp_len + num);
|
tmp_buf = (char *) xrealloc (tmp_buf, tmp_len + num);
|
memcpy (tmp_buf + tmp_len, buffer, num);
|
memcpy (tmp_buf + tmp_len, buffer, num);
|
tmp_len += num;
|
tmp_len += num;
|
}
|
}
|
while (!ends);
|
while (!ends);
|
|
|
input_line_pointer = ends ? ends + 8 : NULL;
|
input_line_pointer = ends ? ends + 8 : NULL;
|
|
|
s = tmp_buf;
|
s = tmp_buf;
|
ends = s + tmp_len;
|
ends = s + tmp_len;
|
|
|
}
|
}
|
else
|
else
|
{
|
{
|
input_line_pointer = ends + 8;
|
input_line_pointer = ends + 8;
|
}
|
}
|
|
|
scrub_string = s;
|
scrub_string = s;
|
scrub_string_end = ends;
|
scrub_string_end = ends;
|
|
|
new_length = ends - s;
|
new_length = ends - s;
|
new_buf = (char *) xmalloc (new_length);
|
new_buf = (char *) xmalloc (new_length);
|
new_tmp = new_buf;
|
new_tmp = new_buf;
|
for (;;)
|
for (;;)
|
{
|
{
|
int space;
|
int space;
|
int size;
|
int size;
|
|
|
space = (new_buf + new_length) - new_tmp;
|
space = (new_buf + new_length) - new_tmp;
|
size = do_scrub_chars (scrub_from_string, new_tmp, space);
|
size = do_scrub_chars (scrub_from_string, new_tmp, space);
|
|
|
if (size < space)
|
if (size < space)
|
{
|
{
|
new_tmp[size] = 0;
|
new_tmp[size] = 0;
|
break;
|
break;
|
}
|
}
|
|
|
new_buf = (char *) xrealloc (new_buf, new_length + 100);
|
new_buf = (char *) xrealloc (new_buf, new_length + 100);
|
new_tmp = new_buf + new_length;
|
new_tmp = new_buf + new_length;
|
new_length += 100;
|
new_length += 100;
|
}
|
}
|
|
|
if (tmp_buf)
|
if (tmp_buf)
|
free (tmp_buf);
|
free (tmp_buf);
|
|
|
/* We've "scrubbed" input to the preferred format. In the
|
/* We've "scrubbed" input to the preferred format. In the
|
process we may have consumed the whole of the remaining
|
process we may have consumed the whole of the remaining
|
file (and included files). We handle this formatted
|
file (and included files). We handle this formatted
|
input similar to that of macro expansion, letting
|
input similar to that of macro expansion, letting
|
actual macro expansion (possibly nested) and other
|
actual macro expansion (possibly nested) and other
|
input expansion work. Beware that in messages, line
|
input expansion work. Beware that in messages, line
|
numbers and possibly file names will be incorrect. */
|
numbers and possibly file names will be incorrect. */
|
sb_add_string (&sbuf, new_buf);
|
sb_add_string (&sbuf, new_buf);
|
input_scrub_include_sb (&sbuf, input_line_pointer, 0);
|
input_scrub_include_sb (&sbuf, input_line_pointer, 0);
|
sb_kill (&sbuf);
|
sb_kill (&sbuf);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
free (new_buf);
|
free (new_buf);
|
continue;
|
continue;
|
}
|
}
|
|
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
|
|
#ifdef tc_unrecognized_line
|
#ifdef tc_unrecognized_line
|
if (tc_unrecognized_line (c))
|
if (tc_unrecognized_line (c))
|
continue;
|
continue;
|
#endif
|
#endif
|
input_line_pointer--;
|
input_line_pointer--;
|
/* Report unknown char as error. */
|
/* Report unknown char as error. */
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
}
|
}
|
|
|
quit:
|
quit:
|
symbol_set_value_now (&dot_symbol);
|
symbol_set_value_now (&dot_symbol);
|
|
|
#ifdef md_cleanup
|
#ifdef md_cleanup
|
md_cleanup ();
|
md_cleanup ();
|
#endif
|
#endif
|
/* Close the input file. */
|
/* Close the input file. */
|
input_scrub_close ();
|
input_scrub_close ();
|
#ifdef WARN_COMMENTS
|
#ifdef WARN_COMMENTS
|
{
|
{
|
if (warn_comment && found_comment)
|
if (warn_comment && found_comment)
|
as_warn_where (found_comment_file, found_comment,
|
as_warn_where (found_comment_file, found_comment,
|
"first comment found here");
|
"first comment found here");
|
}
|
}
|
#endif
|
#endif
|
}
|
}
|
|
|
/* Convert O_constant expression EXP into the equivalent O_big representation.
|
/* 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. */
|
Take the sign of the number from X_unsigned rather than X_add_number. */
|
|
|
static void
|
static void
|
convert_to_bignum (expressionS *exp)
|
convert_to_bignum (expressionS *exp)
|
{
|
{
|
valueT value;
|
valueT value;
|
unsigned int i;
|
unsigned int i;
|
|
|
value = exp->X_add_number;
|
value = exp->X_add_number;
|
for (i = 0; i < sizeof (exp->X_add_number) / CHARS_PER_LITTLENUM; i++)
|
for (i = 0; i < sizeof (exp->X_add_number) / CHARS_PER_LITTLENUM; i++)
|
{
|
{
|
generic_bignum[i] = value & LITTLENUM_MASK;
|
generic_bignum[i] = value & LITTLENUM_MASK;
|
value >>= LITTLENUM_NUMBER_OF_BITS;
|
value >>= LITTLENUM_NUMBER_OF_BITS;
|
}
|
}
|
/* Add a sequence of sign bits if the top bit of X_add_number is not
|
/* Add a sequence of sign bits if the top bit of X_add_number is not
|
the sign of the original value. */
|
the sign of the original value. */
|
if ((exp->X_add_number < 0) != !exp->X_unsigned)
|
if ((exp->X_add_number < 0) != !exp->X_unsigned)
|
generic_bignum[i++] = exp->X_unsigned ? 0 : LITTLENUM_MASK;
|
generic_bignum[i++] = exp->X_unsigned ? 0 : LITTLENUM_MASK;
|
exp->X_op = O_big;
|
exp->X_op = O_big;
|
exp->X_add_number = i;
|
exp->X_add_number = i;
|
}
|
}
|
|
|
/* For most MRI pseudo-ops, the line actually ends at the first
|
/* For most MRI pseudo-ops, the line actually ends at the first
|
nonquoted space. This function looks for that point, stuffs a null
|
nonquoted space. This function looks for that point, stuffs a null
|
in, and sets *STOPCP to the character that used to be there, and
|
in, and sets *STOPCP to the character that used to be there, and
|
returns the location.
|
returns the location.
|
|
|
Until I hear otherwise, I am going to assume that this is only true
|
Until I hear otherwise, I am going to assume that this is only true
|
for the m68k MRI assembler. */
|
for the m68k MRI assembler. */
|
|
|
char *
|
char *
|
mri_comment_field (char *stopcp)
|
mri_comment_field (char *stopcp)
|
{
|
{
|
char *s;
|
char *s;
|
#ifdef TC_M68K
|
#ifdef TC_M68K
|
int inquote = 0;
|
int inquote = 0;
|
|
|
know (flag_m68k_mri);
|
know (flag_m68k_mri);
|
|
|
for (s = input_line_pointer;
|
for (s = input_line_pointer;
|
((!is_end_of_line[(unsigned char) *s] && *s != ' ' && *s != '\t')
|
((!is_end_of_line[(unsigned char) *s] && *s != ' ' && *s != '\t')
|
|| inquote);
|
|| inquote);
|
s++)
|
s++)
|
{
|
{
|
if (*s == '\'')
|
if (*s == '\'')
|
inquote = !inquote;
|
inquote = !inquote;
|
}
|
}
|
#else
|
#else
|
for (s = input_line_pointer;
|
for (s = input_line_pointer;
|
!is_end_of_line[(unsigned char) *s];
|
!is_end_of_line[(unsigned char) *s];
|
s++)
|
s++)
|
;
|
;
|
#endif
|
#endif
|
*stopcp = *s;
|
*stopcp = *s;
|
*s = '\0';
|
*s = '\0';
|
|
|
return s;
|
return s;
|
}
|
}
|
|
|
/* Skip to the end of an MRI comment field. */
|
/* Skip to the end of an MRI comment field. */
|
|
|
void
|
void
|
mri_comment_end (char *stop, int stopc)
|
mri_comment_end (char *stop, int stopc)
|
{
|
{
|
know (flag_mri);
|
know (flag_mri);
|
|
|
input_line_pointer = stop;
|
input_line_pointer = stop;
|
*stop = stopc;
|
*stop = stopc;
|
while (!is_end_of_line[(unsigned char) *input_line_pointer])
|
while (!is_end_of_line[(unsigned char) *input_line_pointer])
|
++input_line_pointer;
|
++input_line_pointer;
|
}
|
}
|
|
|
void
|
void
|
s_abort (int ignore ATTRIBUTE_UNUSED)
|
s_abort (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
as_fatal (_(".abort detected. Abandoning ship."));
|
as_fatal (_(".abort detected. Abandoning ship."));
|
}
|
}
|
|
|
/* Guts of .align directive. N is the power of two to which to align.
|
/* 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.
|
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
|
LEN is the length of whatever FILL points to, if anything. MAX is
|
the maximum number of characters to skip when doing the alignment,
|
the maximum number of characters to skip when doing the alignment,
|
or 0 if there is no maximum. */
|
or 0 if there is no maximum. */
|
|
|
static void
|
static void
|
do_align (int n, char *fill, int len, int max)
|
do_align (int n, char *fill, int len, int max)
|
{
|
{
|
if (now_seg == absolute_section)
|
if (now_seg == absolute_section)
|
{
|
{
|
if (fill != NULL)
|
if (fill != NULL)
|
while (len-- > 0)
|
while (len-- > 0)
|
if (*fill++ != '\0')
|
if (*fill++ != '\0')
|
{
|
{
|
as_warn (_("ignoring fill value in absolute section"));
|
as_warn (_("ignoring fill value in absolute section"));
|
break;
|
break;
|
}
|
}
|
fill = NULL;
|
fill = NULL;
|
len = 0;
|
len = 0;
|
}
|
}
|
|
|
#ifdef md_flush_pending_output
|
#ifdef md_flush_pending_output
|
md_flush_pending_output ();
|
md_flush_pending_output ();
|
#endif
|
#endif
|
#ifdef md_do_align
|
#ifdef md_do_align
|
md_do_align (n, fill, len, max, just_record_alignment);
|
md_do_align (n, fill, len, max, just_record_alignment);
|
#endif
|
#endif
|
|
|
/* Only make a frag if we HAVE to... */
|
/* Only make a frag if we HAVE to... */
|
if (n != 0 && !need_pass_2)
|
if (n != 0 && !need_pass_2)
|
{
|
{
|
if (fill == NULL)
|
if (fill == NULL)
|
{
|
{
|
if (subseg_text_p (now_seg))
|
if (subseg_text_p (now_seg))
|
frag_align_code (n, max);
|
frag_align_code (n, max);
|
else
|
else
|
frag_align (n, 0, max);
|
frag_align (n, 0, max);
|
}
|
}
|
else if (len <= 1)
|
else if (len <= 1)
|
frag_align (n, *fill, max);
|
frag_align (n, *fill, max);
|
else
|
else
|
frag_align_pattern (n, fill, len, max);
|
frag_align_pattern (n, fill, len, max);
|
}
|
}
|
|
|
#ifdef md_do_align
|
#ifdef md_do_align
|
just_record_alignment: ATTRIBUTE_UNUSED_LABEL
|
just_record_alignment: ATTRIBUTE_UNUSED_LABEL
|
#endif
|
#endif
|
|
|
record_alignment (now_seg, n - OCTETS_PER_BYTE_POWER);
|
record_alignment (now_seg, n - OCTETS_PER_BYTE_POWER);
|
}
|
}
|
|
|
/* Handle the .align pseudo-op. A positive ARG is a default alignment
|
/* 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
|
(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
|
fill pattern. BYTES_P is non-zero if the alignment value should be
|
interpreted as the byte boundary, rather than the power of 2. */
|
interpreted as the byte boundary, rather than the power of 2. */
|
#ifndef TC_ALIGN_LIMIT
|
#ifndef TC_ALIGN_LIMIT
|
#define TC_ALIGN_LIMIT (stdoutput->arch_info->bits_per_address - 1)
|
#define TC_ALIGN_LIMIT (stdoutput->arch_info->bits_per_address - 1)
|
#endif
|
#endif
|
|
|
static void
|
static void
|
s_align (int arg, int bytes_p)
|
s_align (int arg, int bytes_p)
|
{
|
{
|
unsigned int align_limit = TC_ALIGN_LIMIT;
|
unsigned int align_limit = TC_ALIGN_LIMIT;
|
unsigned int align;
|
unsigned int align;
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
offsetT fill = 0;
|
offsetT fill = 0;
|
int max;
|
int max;
|
int fill_p;
|
int fill_p;
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
if (is_end_of_line[(unsigned char) *input_line_pointer])
|
if (is_end_of_line[(unsigned char) *input_line_pointer])
|
{
|
{
|
if (arg < 0)
|
if (arg < 0)
|
align = 0;
|
align = 0;
|
else
|
else
|
align = arg; /* Default value from pseudo-op table. */
|
align = arg; /* Default value from pseudo-op table. */
|
}
|
}
|
else
|
else
|
{
|
{
|
align = get_absolute_expression ();
|
align = get_absolute_expression ();
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
}
|
}
|
|
|
if (bytes_p)
|
if (bytes_p)
|
{
|
{
|
/* Convert to a power of 2. */
|
/* Convert to a power of 2. */
|
if (align != 0)
|
if (align != 0)
|
{
|
{
|
unsigned int i;
|
unsigned int i;
|
|
|
for (i = 0; (align & 1) == 0; align >>= 1, ++i)
|
for (i = 0; (align & 1) == 0; align >>= 1, ++i)
|
;
|
;
|
if (align != 1)
|
if (align != 1)
|
as_bad (_("alignment not a power of 2"));
|
as_bad (_("alignment not a power of 2"));
|
|
|
align = i;
|
align = i;
|
}
|
}
|
}
|
}
|
|
|
if (align > align_limit)
|
if (align > align_limit)
|
{
|
{
|
align = align_limit;
|
align = align_limit;
|
as_warn (_("alignment too large: %u assumed"), align);
|
as_warn (_("alignment too large: %u assumed"), align);
|
}
|
}
|
|
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
{
|
{
|
fill_p = 0;
|
fill_p = 0;
|
max = 0;
|
max = 0;
|
}
|
}
|
else
|
else
|
{
|
{
|
++input_line_pointer;
|
++input_line_pointer;
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
fill_p = 0;
|
fill_p = 0;
|
else
|
else
|
{
|
{
|
fill = get_absolute_expression ();
|
fill = get_absolute_expression ();
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
fill_p = 1;
|
fill_p = 1;
|
}
|
}
|
|
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
max = 0;
|
max = 0;
|
else
|
else
|
{
|
{
|
++input_line_pointer;
|
++input_line_pointer;
|
max = get_absolute_expression ();
|
max = get_absolute_expression ();
|
}
|
}
|
}
|
}
|
|
|
if (!fill_p)
|
if (!fill_p)
|
{
|
{
|
if (arg < 0)
|
if (arg < 0)
|
as_warn (_("expected fill pattern missing"));
|
as_warn (_("expected fill pattern missing"));
|
do_align (align, (char *) NULL, 0, max);
|
do_align (align, (char *) NULL, 0, max);
|
}
|
}
|
else
|
else
|
{
|
{
|
int fill_len;
|
int fill_len;
|
|
|
if (arg >= 0)
|
if (arg >= 0)
|
fill_len = 1;
|
fill_len = 1;
|
else
|
else
|
fill_len = -arg;
|
fill_len = -arg;
|
if (fill_len <= 1)
|
if (fill_len <= 1)
|
{
|
{
|
char fill_char;
|
char fill_char;
|
|
|
fill_char = fill;
|
fill_char = fill;
|
do_align (align, &fill_char, fill_len, max);
|
do_align (align, &fill_char, fill_len, max);
|
}
|
}
|
else
|
else
|
{
|
{
|
char ab[16];
|
char ab[16];
|
|
|
if ((size_t) fill_len > sizeof ab)
|
if ((size_t) fill_len > sizeof ab)
|
abort ();
|
abort ();
|
md_number_to_chars (ab, fill, fill_len);
|
md_number_to_chars (ab, fill, fill_len);
|
do_align (align, ab, fill_len, max);
|
do_align (align, ab, fill_len, max);
|
}
|
}
|
}
|
}
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
|
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
}
|
}
|
|
|
/* Handle the .align pseudo-op on machines where ".align 4" means
|
/* Handle the .align pseudo-op on machines where ".align 4" means
|
align to a 4 byte boundary. */
|
align to a 4 byte boundary. */
|
|
|
void
|
void
|
s_align_bytes (int arg)
|
s_align_bytes (int arg)
|
{
|
{
|
s_align (arg, 1);
|
s_align (arg, 1);
|
}
|
}
|
|
|
/* Handle the .align pseudo-op on machines where ".align 4" means align
|
/* Handle the .align pseudo-op on machines where ".align 4" means align
|
to a 2**4 boundary. */
|
to a 2**4 boundary. */
|
|
|
void
|
void
|
s_align_ptwo (int arg)
|
s_align_ptwo (int arg)
|
{
|
{
|
s_align (arg, 0);
|
s_align (arg, 0);
|
}
|
}
|
|
|
/* Switch in and out of alternate macro mode. */
|
/* Switch in and out of alternate macro mode. */
|
|
|
void
|
void
|
s_altmacro (int on)
|
s_altmacro (int on)
|
{
|
{
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
macro_set_alternate (on);
|
macro_set_alternate (on);
|
}
|
}
|
|
|
symbolS *
|
symbolS *
|
s_comm_internal (int param,
|
s_comm_internal (int param,
|
symbolS *(*comm_parse_extra) (int, symbolS *, addressT))
|
symbolS *(*comm_parse_extra) (int, symbolS *, addressT))
|
{
|
{
|
char *name;
|
char *name;
|
char c;
|
char c;
|
char *p;
|
char *p;
|
offsetT temp, size;
|
offsetT temp, size;
|
symbolS *symbolP = NULL;
|
symbolS *symbolP = NULL;
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
expressionS exp;
|
expressionS exp;
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
name = input_line_pointer;
|
name = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
/* Just after name is now '\0'. */
|
/* Just after name is now '\0'. */
|
p = input_line_pointer;
|
p = input_line_pointer;
|
*p = c;
|
*p = c;
|
|
|
if (name == p)
|
if (name == p)
|
{
|
{
|
as_bad (_("expected symbol name"));
|
as_bad (_("expected symbol name"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
goto out;
|
goto out;
|
}
|
}
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
/* Accept an optional comma after the name. The comma used to be
|
/* Accept an optional comma after the name. The comma used to be
|
required, but Irix 5 cc does not generate it for .lcomm. */
|
required, but Irix 5 cc does not generate it for .lcomm. */
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
input_line_pointer++;
|
input_line_pointer++;
|
|
|
temp = get_absolute_expr (&exp);
|
temp = get_absolute_expr (&exp);
|
size = temp;
|
size = temp;
|
size &= ((offsetT) 2 << (stdoutput->arch_info->bits_per_address - 1)) - 1;
|
size &= ((offsetT) 2 << (stdoutput->arch_info->bits_per_address - 1)) - 1;
|
if (exp.X_op == O_absent)
|
if (exp.X_op == O_absent)
|
{
|
{
|
as_bad (_("missing size expression"));
|
as_bad (_("missing size expression"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
goto out;
|
goto out;
|
}
|
}
|
else if (temp != size || !exp.X_unsigned)
|
else if (temp != size || !exp.X_unsigned)
|
{
|
{
|
as_warn (_("size (%ld) out of range, ignored"), (long) temp);
|
as_warn (_("size (%ld) out of range, ignored"), (long) temp);
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
goto out;
|
goto out;
|
}
|
}
|
|
|
*p = 0;
|
*p = 0;
|
symbolP = symbol_find_or_make (name);
|
symbolP = symbol_find_or_make (name);
|
if ((S_IS_DEFINED (symbolP) || symbol_equated_p (symbolP))
|
if ((S_IS_DEFINED (symbolP) || symbol_equated_p (symbolP))
|
&& !S_IS_COMMON (symbolP))
|
&& !S_IS_COMMON (symbolP))
|
{
|
{
|
if (!S_IS_VOLATILE (symbolP))
|
if (!S_IS_VOLATILE (symbolP))
|
{
|
{
|
symbolP = NULL;
|
symbolP = NULL;
|
as_bad (_("symbol `%s' is already defined"), name);
|
as_bad (_("symbol `%s' is already defined"), name);
|
*p = c;
|
*p = c;
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
goto out;
|
goto out;
|
}
|
}
|
symbolP = symbol_clone (symbolP, 1);
|
symbolP = symbol_clone (symbolP, 1);
|
S_SET_SEGMENT (symbolP, undefined_section);
|
S_SET_SEGMENT (symbolP, undefined_section);
|
S_SET_VALUE (symbolP, 0);
|
S_SET_VALUE (symbolP, 0);
|
symbol_set_frag (symbolP, &zero_address_frag);
|
symbol_set_frag (symbolP, &zero_address_frag);
|
S_CLEAR_VOLATILE (symbolP);
|
S_CLEAR_VOLATILE (symbolP);
|
}
|
}
|
|
|
size = S_GET_VALUE (symbolP);
|
size = S_GET_VALUE (symbolP);
|
if (size == 0)
|
if (size == 0)
|
size = temp;
|
size = temp;
|
else if (size != temp)
|
else if (size != temp)
|
as_warn (_("size of \"%s\" is already %ld; not changing to %ld"),
|
as_warn (_("size of \"%s\" is already %ld; not changing to %ld"),
|
name, (long) size, (long) temp);
|
name, (long) size, (long) temp);
|
|
|
*p = c;
|
*p = c;
|
if (comm_parse_extra != NULL)
|
if (comm_parse_extra != NULL)
|
symbolP = (*comm_parse_extra) (param, symbolP, size);
|
symbolP = (*comm_parse_extra) (param, symbolP, size);
|
else
|
else
|
{
|
{
|
S_SET_VALUE (symbolP, (valueT) size);
|
S_SET_VALUE (symbolP, (valueT) size);
|
S_SET_EXTERNAL (symbolP);
|
S_SET_EXTERNAL (symbolP);
|
S_SET_SEGMENT (symbolP, bfd_com_section_ptr);
|
S_SET_SEGMENT (symbolP, bfd_com_section_ptr);
|
}
|
}
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
out:
|
out:
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
return symbolP;
|
return symbolP;
|
}
|
}
|
|
|
void
|
void
|
s_comm (int ignore)
|
s_comm (int ignore)
|
{
|
{
|
s_comm_internal (ignore, NULL);
|
s_comm_internal (ignore, NULL);
|
}
|
}
|
|
|
/* The MRI COMMON pseudo-op. We handle this by creating a common
|
/* The MRI COMMON pseudo-op. We handle this by creating a common
|
symbol with the appropriate name. We make s_space do the right
|
symbol with the appropriate name. We make s_space do the right
|
thing by increasing the size. */
|
thing by increasing the size. */
|
|
|
void
|
void
|
s_mri_common (int small ATTRIBUTE_UNUSED)
|
s_mri_common (int small ATTRIBUTE_UNUSED)
|
{
|
{
|
char *name;
|
char *name;
|
char c;
|
char c;
|
char *alc = NULL;
|
char *alc = NULL;
|
symbolS *sym;
|
symbolS *sym;
|
offsetT align;
|
offsetT align;
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
|
|
if (!flag_mri)
|
if (!flag_mri)
|
{
|
{
|
s_comm (0);
|
s_comm (0);
|
return;
|
return;
|
}
|
}
|
|
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
name = input_line_pointer;
|
name = input_line_pointer;
|
if (!ISDIGIT (*name))
|
if (!ISDIGIT (*name))
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
else
|
else
|
{
|
{
|
do
|
do
|
{
|
{
|
++input_line_pointer;
|
++input_line_pointer;
|
}
|
}
|
while (ISDIGIT (*input_line_pointer));
|
while (ISDIGIT (*input_line_pointer));
|
|
|
c = *input_line_pointer;
|
c = *input_line_pointer;
|
*input_line_pointer = '\0';
|
*input_line_pointer = '\0';
|
|
|
if (line_label != NULL)
|
if (line_label != NULL)
|
{
|
{
|
alc = (char *) xmalloc (strlen (S_GET_NAME (line_label))
|
alc = (char *) xmalloc (strlen (S_GET_NAME (line_label))
|
+ (input_line_pointer - name)
|
+ (input_line_pointer - name)
|
+ 1);
|
+ 1);
|
sprintf (alc, "%s%s", name, S_GET_NAME (line_label));
|
sprintf (alc, "%s%s", name, S_GET_NAME (line_label));
|
name = alc;
|
name = alc;
|
}
|
}
|
}
|
}
|
|
|
sym = symbol_find_or_make (name);
|
sym = symbol_find_or_make (name);
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
if (alc != NULL)
|
if (alc != NULL)
|
free (alc);
|
free (alc);
|
|
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
align = 0;
|
align = 0;
|
else
|
else
|
{
|
{
|
++input_line_pointer;
|
++input_line_pointer;
|
align = get_absolute_expression ();
|
align = get_absolute_expression ();
|
}
|
}
|
|
|
if (S_IS_DEFINED (sym) && !S_IS_COMMON (sym))
|
if (S_IS_DEFINED (sym) && !S_IS_COMMON (sym))
|
{
|
{
|
as_bad (_("symbol `%s' is already defined"), S_GET_NAME (sym));
|
as_bad (_("symbol `%s' is already defined"), S_GET_NAME (sym));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
return;
|
return;
|
}
|
}
|
|
|
S_SET_EXTERNAL (sym);
|
S_SET_EXTERNAL (sym);
|
S_SET_SEGMENT (sym, bfd_com_section_ptr);
|
S_SET_SEGMENT (sym, bfd_com_section_ptr);
|
mri_common_symbol = sym;
|
mri_common_symbol = sym;
|
|
|
#ifdef S_SET_ALIGN
|
#ifdef S_SET_ALIGN
|
if (align != 0)
|
if (align != 0)
|
S_SET_ALIGN (sym, align);
|
S_SET_ALIGN (sym, align);
|
#else
|
#else
|
(void) align;
|
(void) align;
|
#endif
|
#endif
|
|
|
if (line_label != NULL)
|
if (line_label != NULL)
|
{
|
{
|
expressionS exp;
|
expressionS exp;
|
exp.X_op = O_symbol;
|
exp.X_op = O_symbol;
|
exp.X_add_symbol = sym;
|
exp.X_add_symbol = sym;
|
exp.X_add_number = 0;
|
exp.X_add_number = 0;
|
symbol_set_value_expression (line_label, &exp);
|
symbol_set_value_expression (line_label, &exp);
|
symbol_set_frag (line_label, &zero_address_frag);
|
symbol_set_frag (line_label, &zero_address_frag);
|
S_SET_SEGMENT (line_label, expr_section);
|
S_SET_SEGMENT (line_label, expr_section);
|
}
|
}
|
|
|
/* FIXME: We just ignore the small argument, which distinguishes
|
/* FIXME: We just ignore the small argument, which distinguishes
|
COMMON and COMMON.S. I don't know what we can do about it. */
|
COMMON and COMMON.S. I don't know what we can do about it. */
|
|
|
/* Ignore the type and hptype. */
|
/* Ignore the type and hptype. */
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
input_line_pointer += 2;
|
input_line_pointer += 2;
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
input_line_pointer += 2;
|
input_line_pointer += 2;
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
|
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
}
|
}
|
|
|
void
|
void
|
s_data (int ignore ATTRIBUTE_UNUSED)
|
s_data (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
segT section;
|
segT section;
|
int temp;
|
int temp;
|
|
|
temp = get_absolute_expression ();
|
temp = get_absolute_expression ();
|
if (flag_readonly_data_in_text)
|
if (flag_readonly_data_in_text)
|
{
|
{
|
section = text_section;
|
section = text_section;
|
temp += 1000;
|
temp += 1000;
|
}
|
}
|
else
|
else
|
section = data_section;
|
section = data_section;
|
|
|
subseg_set (section, (subsegT) temp);
|
subseg_set (section, (subsegT) temp);
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Handle the .appfile pseudo-op. This is automatically generated by
|
/* Handle the .appfile pseudo-op. This is automatically generated by
|
do_scrub_chars when a preprocessor # line comment is seen with a
|
do_scrub_chars when a preprocessor # line comment is seen with a
|
file name. This default definition may be overridden by the object
|
file name. This default definition may be overridden by the object
|
or CPU specific pseudo-ops. This function is also the default
|
or CPU specific pseudo-ops. This function is also the default
|
definition for .file; the APPFILE argument is 1 for .appfile, 0 for
|
definition for .file; the APPFILE argument is 1 for .appfile, 0 for
|
.file. */
|
.file. */
|
|
|
void
|
void
|
s_app_file_string (char *file, int appfile ATTRIBUTE_UNUSED)
|
s_app_file_string (char *file, int appfile ATTRIBUTE_UNUSED)
|
{
|
{
|
#ifdef LISTING
|
#ifdef LISTING
|
if (listing)
|
if (listing)
|
listing_source_file (file);
|
listing_source_file (file);
|
#endif
|
#endif
|
register_dependency (file);
|
register_dependency (file);
|
#ifdef obj_app_file
|
#ifdef obj_app_file
|
obj_app_file (file, appfile);
|
obj_app_file (file, appfile);
|
#endif
|
#endif
|
}
|
}
|
|
|
void
|
void
|
s_app_file (int appfile)
|
s_app_file (int appfile)
|
{
|
{
|
char *s;
|
char *s;
|
int length;
|
int length;
|
|
|
/* Some assemblers tolerate immediately following '"'. */
|
/* Some assemblers tolerate immediately following '"'. */
|
if ((s = demand_copy_string (&length)) != 0)
|
if ((s = demand_copy_string (&length)) != 0)
|
{
|
{
|
int may_omit
|
int may_omit
|
= (!new_logical_line_flags (s, -1, 1) && appfile);
|
= (!new_logical_line_flags (s, -1, 1) && appfile);
|
|
|
/* In MRI mode, the preprocessor may have inserted an extraneous
|
/* In MRI mode, the preprocessor may have inserted an extraneous
|
backquote. */
|
backquote. */
|
if (flag_m68k_mri
|
if (flag_m68k_mri
|
&& *input_line_pointer == '\''
|
&& *input_line_pointer == '\''
|
&& is_end_of_line[(unsigned char) input_line_pointer[1]])
|
&& is_end_of_line[(unsigned char) input_line_pointer[1]])
|
++input_line_pointer;
|
++input_line_pointer;
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
if (!may_omit)
|
if (!may_omit)
|
s_app_file_string (s, appfile);
|
s_app_file_string (s, appfile);
|
}
|
}
|
}
|
}
|
|
|
static int
|
static int
|
get_linefile_number (int *flag)
|
get_linefile_number (int *flag)
|
{
|
{
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
if (*input_line_pointer < '0' || *input_line_pointer > '9')
|
if (*input_line_pointer < '0' || *input_line_pointer > '9')
|
return 0;
|
return 0;
|
|
|
*flag = get_absolute_expression ();
|
*flag = get_absolute_expression ();
|
|
|
return 1;
|
return 1;
|
}
|
}
|
|
|
/* Handle the .appline pseudo-op. This is automatically generated by
|
/* Handle the .appline pseudo-op. This is automatically generated by
|
do_scrub_chars when a preprocessor # line comment is seen. This
|
do_scrub_chars when a preprocessor # line comment is seen. This
|
default definition may be overridden by the object or CPU specific
|
default definition may be overridden by the object or CPU specific
|
pseudo-ops. */
|
pseudo-ops. */
|
|
|
void
|
void
|
s_app_line (int appline)
|
s_app_line (int appline)
|
{
|
{
|
char *file = NULL;
|
char *file = NULL;
|
int l;
|
int l;
|
|
|
/* The given number is that of the next line. */
|
/* The given number is that of the next line. */
|
if (appline)
|
if (appline)
|
l = get_absolute_expression ();
|
l = get_absolute_expression ();
|
else if (!get_linefile_number (&l))
|
else if (!get_linefile_number (&l))
|
{
|
{
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
l--;
|
l--;
|
|
|
if (l < -1)
|
if (l < -1)
|
/* Some of the back ends can't deal with non-positive line numbers.
|
/* Some of the back ends can't deal with non-positive line numbers.
|
Besides, it's silly. GCC however will generate a line number of
|
Besides, it's silly. GCC however will generate a line number of
|
zero when it is pre-processing builtins for assembler-with-cpp files:
|
zero when it is pre-processing builtins for assembler-with-cpp files:
|
|
|
# 0 "<built-in>"
|
# 0 "<built-in>"
|
|
|
We do not want to barf on this, especially since such files are used
|
We do not want to barf on this, especially since such files are used
|
in the GCC and GDB testsuites. So we check for negative line numbers
|
in the GCC and GDB testsuites. So we check for negative line numbers
|
rather than non-positive line numbers. */
|
rather than non-positive line numbers. */
|
as_warn (_("line numbers must be positive; line number %d rejected"),
|
as_warn (_("line numbers must be positive; line number %d rejected"),
|
l + 1);
|
l + 1);
|
else
|
else
|
{
|
{
|
int flags = 0;
|
int flags = 0;
|
int length = 0;
|
int length = 0;
|
|
|
if (!appline)
|
if (!appline)
|
{
|
{
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
if (*input_line_pointer == '"')
|
if (*input_line_pointer == '"')
|
file = demand_copy_string (&length);
|
file = demand_copy_string (&length);
|
|
|
if (file)
|
if (file)
|
{
|
{
|
int this_flag;
|
int this_flag;
|
|
|
while (get_linefile_number (&this_flag))
|
while (get_linefile_number (&this_flag))
|
switch (this_flag)
|
switch (this_flag)
|
{
|
{
|
/* From GCC's cpp documentation:
|
/* From GCC's cpp documentation:
|
1: start of a new file.
|
1: start of a new file.
|
2: returning to a file after having included
|
2: returning to a file after having included
|
another file.
|
another file.
|
3: following text comes from a system header file.
|
3: following text comes from a system header file.
|
4: following text should be treated as extern "C".
|
4: following text should be treated as extern "C".
|
|
|
4 is nonsensical for the assembler; 3, we don't
|
4 is nonsensical for the assembler; 3, we don't
|
care about, so we ignore it just in case a
|
care about, so we ignore it just in case a
|
system header file is included while
|
system header file is included while
|
preprocessing assembly. So 1 and 2 are all we
|
preprocessing assembly. So 1 and 2 are all we
|
care about, and they are mutually incompatible.
|
care about, and they are mutually incompatible.
|
new_logical_line_flags() demands this. */
|
new_logical_line_flags() demands this. */
|
case 1:
|
case 1:
|
case 2:
|
case 2:
|
if (flags && flags != (1 << this_flag))
|
if (flags && flags != (1 << this_flag))
|
as_warn (_("incompatible flag %i in line directive"),
|
as_warn (_("incompatible flag %i in line directive"),
|
this_flag);
|
this_flag);
|
else
|
else
|
flags |= 1 << this_flag;
|
flags |= 1 << this_flag;
|
break;
|
break;
|
|
|
case 3:
|
case 3:
|
case 4:
|
case 4:
|
/* We ignore these. */
|
/* We ignore these. */
|
break;
|
break;
|
|
|
default:
|
default:
|
as_warn (_("unsupported flag %i in line directive"),
|
as_warn (_("unsupported flag %i in line directive"),
|
this_flag);
|
this_flag);
|
break;
|
break;
|
}
|
}
|
|
|
if (!is_end_of_line[(unsigned char)*input_line_pointer])
|
if (!is_end_of_line[(unsigned char)*input_line_pointer])
|
file = 0;
|
file = 0;
|
}
|
}
|
}
|
}
|
|
|
if (appline || file)
|
if (appline || file)
|
{
|
{
|
new_logical_line_flags (file, l, flags);
|
new_logical_line_flags (file, l, flags);
|
#ifdef LISTING
|
#ifdef LISTING
|
if (listing)
|
if (listing)
|
listing_source_line (l);
|
listing_source_line (l);
|
#endif
|
#endif
|
}
|
}
|
}
|
}
|
if (appline || file)
|
if (appline || file)
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
else
|
else
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
}
|
}
|
|
|
/* Handle the .end pseudo-op. Actually, the real work is done in
|
/* Handle the .end pseudo-op. Actually, the real work is done in
|
read_a_source_file. */
|
read_a_source_file. */
|
|
|
void
|
void
|
s_end (int ignore ATTRIBUTE_UNUSED)
|
s_end (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
if (flag_mri)
|
if (flag_mri)
|
{
|
{
|
/* The MRI assembler permits the start symbol to follow .end,
|
/* The MRI assembler permits the start symbol to follow .end,
|
but we don't support that. */
|
but we don't support that. */
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (!is_end_of_line[(unsigned char) *input_line_pointer]
|
if (!is_end_of_line[(unsigned char) *input_line_pointer]
|
&& *input_line_pointer != '*'
|
&& *input_line_pointer != '*'
|
&& *input_line_pointer != '!')
|
&& *input_line_pointer != '!')
|
as_warn (_("start address not supported"));
|
as_warn (_("start address not supported"));
|
}
|
}
|
}
|
}
|
|
|
/* Handle the .err pseudo-op. */
|
/* Handle the .err pseudo-op. */
|
|
|
void
|
void
|
s_err (int ignore ATTRIBUTE_UNUSED)
|
s_err (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
as_bad (_(".err encountered"));
|
as_bad (_(".err encountered"));
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Handle the .error and .warning pseudo-ops. */
|
/* Handle the .error and .warning pseudo-ops. */
|
|
|
void
|
void
|
s_errwarn (int err)
|
s_errwarn (int err)
|
{
|
{
|
int len;
|
int len;
|
/* The purpose for the conditional assignment is not to
|
/* The purpose for the conditional assignment is not to
|
internationalize the directive itself, but that we need a
|
internationalize the directive itself, but that we need a
|
self-contained message, one that can be passed like the
|
self-contained message, one that can be passed like the
|
demand_copy_C_string return value, and with no assumption on the
|
demand_copy_C_string return value, and with no assumption on the
|
location of the name of the directive within the message. */
|
location of the name of the directive within the message. */
|
char *msg
|
char *msg
|
= (err ? _(".error directive invoked in source file")
|
= (err ? _(".error directive invoked in source file")
|
: _(".warning directive invoked in source file"));
|
: _(".warning directive invoked in source file"));
|
|
|
if (!is_it_end_of_statement ())
|
if (!is_it_end_of_statement ())
|
{
|
{
|
if (*input_line_pointer != '\"')
|
if (*input_line_pointer != '\"')
|
{
|
{
|
as_bad (_("%s argument must be a string"),
|
as_bad (_("%s argument must be a string"),
|
err ? ".error" : ".warning");
|
err ? ".error" : ".warning");
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
msg = demand_copy_C_string (&len);
|
msg = demand_copy_C_string (&len);
|
if (msg == NULL)
|
if (msg == NULL)
|
return;
|
return;
|
}
|
}
|
|
|
if (err)
|
if (err)
|
as_bad ("%s", msg);
|
as_bad ("%s", msg);
|
else
|
else
|
as_warn ("%s", msg);
|
as_warn ("%s", msg);
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Handle the MRI fail pseudo-op. */
|
/* Handle the MRI fail pseudo-op. */
|
|
|
void
|
void
|
s_fail (int ignore ATTRIBUTE_UNUSED)
|
s_fail (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
offsetT temp;
|
offsetT temp;
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
temp = get_absolute_expression ();
|
temp = get_absolute_expression ();
|
if (temp >= 500)
|
if (temp >= 500)
|
as_warn (_(".fail %ld encountered"), (long) temp);
|
as_warn (_(".fail %ld encountered"), (long) temp);
|
else
|
else
|
as_bad (_(".fail %ld encountered"), (long) temp);
|
as_bad (_(".fail %ld encountered"), (long) temp);
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
|
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
}
|
}
|
|
|
void
|
void
|
s_fill (int ignore ATTRIBUTE_UNUSED)
|
s_fill (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
expressionS rep_exp;
|
expressionS rep_exp;
|
long size = 1;
|
long size = 1;
|
long fill = 0;
|
long fill = 0;
|
char *p;
|
char *p;
|
|
|
#ifdef md_flush_pending_output
|
#ifdef md_flush_pending_output
|
md_flush_pending_output ();
|
md_flush_pending_output ();
|
#endif
|
#endif
|
|
|
#ifdef md_cons_align
|
#ifdef md_cons_align
|
md_cons_align (1);
|
md_cons_align (1);
|
#endif
|
#endif
|
|
|
get_known_segmented_expression (&rep_exp);
|
get_known_segmented_expression (&rep_exp);
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
{
|
{
|
input_line_pointer++;
|
input_line_pointer++;
|
size = get_absolute_expression ();
|
size = get_absolute_expression ();
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
{
|
{
|
input_line_pointer++;
|
input_line_pointer++;
|
fill = get_absolute_expression ();
|
fill = get_absolute_expression ();
|
}
|
}
|
}
|
}
|
|
|
/* This is to be compatible with BSD 4.2 AS, not for any rational reason. */
|
/* This is to be compatible with BSD 4.2 AS, not for any rational reason. */
|
#define BSD_FILL_SIZE_CROCK_8 (8)
|
#define BSD_FILL_SIZE_CROCK_8 (8)
|
if (size > BSD_FILL_SIZE_CROCK_8)
|
if (size > BSD_FILL_SIZE_CROCK_8)
|
{
|
{
|
as_warn (_(".fill size clamped to %d"), BSD_FILL_SIZE_CROCK_8);
|
as_warn (_(".fill size clamped to %d"), BSD_FILL_SIZE_CROCK_8);
|
size = BSD_FILL_SIZE_CROCK_8;
|
size = BSD_FILL_SIZE_CROCK_8;
|
}
|
}
|
if (size < 0)
|
if (size < 0)
|
{
|
{
|
as_warn (_("size negative; .fill ignored"));
|
as_warn (_("size negative; .fill ignored"));
|
size = 0;
|
size = 0;
|
}
|
}
|
else if (rep_exp.X_op == O_constant && rep_exp.X_add_number <= 0)
|
else if (rep_exp.X_op == O_constant && rep_exp.X_add_number <= 0)
|
{
|
{
|
if (rep_exp.X_add_number < 0)
|
if (rep_exp.X_add_number < 0)
|
as_warn (_("repeat < 0; .fill ignored"));
|
as_warn (_("repeat < 0; .fill ignored"));
|
size = 0;
|
size = 0;
|
}
|
}
|
|
|
if (size && !need_pass_2)
|
if (size && !need_pass_2)
|
{
|
{
|
if (rep_exp.X_op == O_constant)
|
if (rep_exp.X_op == O_constant)
|
{
|
{
|
p = frag_var (rs_fill, (int) size, (int) size,
|
p = frag_var (rs_fill, (int) size, (int) size,
|
(relax_substateT) 0, (symbolS *) 0,
|
(relax_substateT) 0, (symbolS *) 0,
|
(offsetT) rep_exp.X_add_number,
|
(offsetT) rep_exp.X_add_number,
|
(char *) 0);
|
(char *) 0);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* We don't have a constant repeat count, so we can't use
|
/* 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,
|
rs_fill. We can get the same results out of rs_space,
|
but its argument is in bytes, so we must multiply the
|
but its argument is in bytes, so we must multiply the
|
repeat count by size. */
|
repeat count by size. */
|
|
|
symbolS *rep_sym;
|
symbolS *rep_sym;
|
rep_sym = make_expr_symbol (&rep_exp);
|
rep_sym = make_expr_symbol (&rep_exp);
|
if (size != 1)
|
if (size != 1)
|
{
|
{
|
expressionS size_exp;
|
expressionS size_exp;
|
size_exp.X_op = O_constant;
|
size_exp.X_op = O_constant;
|
size_exp.X_add_number = size;
|
size_exp.X_add_number = size;
|
|
|
rep_exp.X_op = O_multiply;
|
rep_exp.X_op = O_multiply;
|
rep_exp.X_add_symbol = rep_sym;
|
rep_exp.X_add_symbol = rep_sym;
|
rep_exp.X_op_symbol = make_expr_symbol (&size_exp);
|
rep_exp.X_op_symbol = make_expr_symbol (&size_exp);
|
rep_exp.X_add_number = 0;
|
rep_exp.X_add_number = 0;
|
rep_sym = make_expr_symbol (&rep_exp);
|
rep_sym = make_expr_symbol (&rep_exp);
|
}
|
}
|
|
|
p = frag_var (rs_space, (int) size, (int) size,
|
p = frag_var (rs_space, (int) size, (int) size,
|
(relax_substateT) 0, rep_sym, (offsetT) 0, (char *) 0);
|
(relax_substateT) 0, rep_sym, (offsetT) 0, (char *) 0);
|
}
|
}
|
|
|
memset (p, 0, (unsigned int) size);
|
memset (p, 0, (unsigned int) size);
|
|
|
/* The magic number BSD_FILL_SIZE_CROCK_4 is from BSD 4.2 VAX
|
/* The magic number BSD_FILL_SIZE_CROCK_4 is from BSD 4.2 VAX
|
flavoured AS. The following bizarre behaviour is to be
|
flavoured AS. The following bizarre behaviour is to be
|
compatible with above. I guess they tried to take up to 8
|
compatible with above. I guess they tried to take up to 8
|
bytes from a 4-byte expression and they forgot to sign
|
bytes from a 4-byte expression and they forgot to sign
|
extend. */
|
extend. */
|
#define BSD_FILL_SIZE_CROCK_4 (4)
|
#define BSD_FILL_SIZE_CROCK_4 (4)
|
md_number_to_chars (p, (valueT) fill,
|
md_number_to_chars (p, (valueT) fill,
|
(size > BSD_FILL_SIZE_CROCK_4
|
(size > BSD_FILL_SIZE_CROCK_4
|
? BSD_FILL_SIZE_CROCK_4
|
? BSD_FILL_SIZE_CROCK_4
|
: (int) size));
|
: (int) size));
|
/* Note: .fill (),0 emits no frag (since we are asked to .fill 0 bytes)
|
/* 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.
|
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
|
It is a degenerate case of .fill but could be emitted by a
|
compiler. */
|
compiler. */
|
}
|
}
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
void
|
void
|
s_globl (int ignore ATTRIBUTE_UNUSED)
|
s_globl (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
char *name;
|
char *name;
|
int c;
|
int c;
|
symbolS *symbolP;
|
symbolS *symbolP;
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
do
|
do
|
{
|
{
|
name = input_line_pointer;
|
name = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
symbolP = symbol_find_or_make (name);
|
symbolP = symbol_find_or_make (name);
|
S_SET_EXTERNAL (symbolP);
|
S_SET_EXTERNAL (symbolP);
|
|
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
c = *input_line_pointer;
|
c = *input_line_pointer;
|
if (c == ',')
|
if (c == ',')
|
{
|
{
|
input_line_pointer++;
|
input_line_pointer++;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (is_end_of_line[(unsigned char) *input_line_pointer])
|
if (is_end_of_line[(unsigned char) *input_line_pointer])
|
c = '\n';
|
c = '\n';
|
}
|
}
|
}
|
}
|
while (c == ',');
|
while (c == ',');
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
|
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
}
|
}
|
|
|
#ifdef OBJ_ELF
|
#ifdef OBJ_ELF
|
#define skip_whitespace(str) do { if (*(str) == ' ') ++(str); } while (0)
|
#define skip_whitespace(str) do { if (*(str) == ' ') ++(str); } while (0)
|
|
|
static inline int
|
static inline int
|
skip_past_char (char ** str, char c)
|
skip_past_char (char ** str, char c)
|
{
|
{
|
if (**str == c)
|
if (**str == c)
|
{
|
{
|
(*str)++;
|
(*str)++;
|
return 0;
|
return 0;
|
}
|
}
|
else
|
else
|
return -1;
|
return -1;
|
}
|
}
|
#define skip_past_comma(str) skip_past_char (str, ',')
|
#define skip_past_comma(str) skip_past_char (str, ',')
|
|
|
/* Parse an attribute directive for VENDOR.
|
/* Parse an attribute directive for VENDOR.
|
Returns the attribute number read, or zero on error. */
|
Returns the attribute number read, or zero on error. */
|
int
|
int
|
s_vendor_attribute (int vendor)
|
s_vendor_attribute (int vendor)
|
{
|
{
|
expressionS exp;
|
expressionS exp;
|
int type;
|
int type;
|
int tag;
|
int tag;
|
unsigned int i = 0;
|
unsigned int i = 0;
|
char *s = NULL;
|
char *s = NULL;
|
|
|
/* Read the first number or name. */
|
/* Read the first number or name. */
|
skip_whitespace (input_line_pointer);
|
skip_whitespace (input_line_pointer);
|
s = input_line_pointer;
|
s = input_line_pointer;
|
if (ISDIGIT (*input_line_pointer))
|
if (ISDIGIT (*input_line_pointer))
|
{
|
{
|
expression (& exp);
|
expression (& exp);
|
if (exp.X_op != O_constant)
|
if (exp.X_op != O_constant)
|
goto bad;
|
goto bad;
|
tag = exp.X_add_number;
|
tag = exp.X_add_number;
|
}
|
}
|
else
|
else
|
{
|
{
|
char *name;
|
char *name;
|
|
|
/* A name may contain '_', but no other punctuation. */
|
/* A name may contain '_', but no other punctuation. */
|
for (; ISALNUM (*input_line_pointer) || *input_line_pointer == '_';
|
for (; ISALNUM (*input_line_pointer) || *input_line_pointer == '_';
|
++input_line_pointer)
|
++input_line_pointer)
|
i++;
|
i++;
|
if (i == 0)
|
if (i == 0)
|
goto bad;
|
goto bad;
|
|
|
name = (char *) alloca (i + 1);
|
name = (char *) alloca (i + 1);
|
memcpy (name, s, i);
|
memcpy (name, s, i);
|
name[i] = '\0';
|
name[i] = '\0';
|
|
|
#ifndef CONVERT_SYMBOLIC_ATTRIBUTE
|
#ifndef CONVERT_SYMBOLIC_ATTRIBUTE
|
#define CONVERT_SYMBOLIC_ATTRIBUTE(a) -1
|
#define CONVERT_SYMBOLIC_ATTRIBUTE(a) -1
|
#endif
|
#endif
|
|
|
tag = CONVERT_SYMBOLIC_ATTRIBUTE (name);
|
tag = CONVERT_SYMBOLIC_ATTRIBUTE (name);
|
if (tag == -1)
|
if (tag == -1)
|
{
|
{
|
as_bad (_("Attribute name not recognised: %s"), name);
|
as_bad (_("Attribute name not recognised: %s"), name);
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return 0;
|
return 0;
|
}
|
}
|
}
|
}
|
|
|
type = _bfd_elf_obj_attrs_arg_type (stdoutput, vendor, tag);
|
type = _bfd_elf_obj_attrs_arg_type (stdoutput, vendor, tag);
|
|
|
if (skip_past_comma (&input_line_pointer) == -1)
|
if (skip_past_comma (&input_line_pointer) == -1)
|
goto bad;
|
goto bad;
|
if (type & 1)
|
if (type & 1)
|
{
|
{
|
expression (& exp);
|
expression (& exp);
|
if (exp.X_op != O_constant)
|
if (exp.X_op != O_constant)
|
{
|
{
|
as_bad (_("expected numeric constant"));
|
as_bad (_("expected numeric constant"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return 0;
|
return 0;
|
}
|
}
|
i = exp.X_add_number;
|
i = exp.X_add_number;
|
}
|
}
|
if ((type & 3) == 3
|
if ((type & 3) == 3
|
&& skip_past_comma (&input_line_pointer) == -1)
|
&& skip_past_comma (&input_line_pointer) == -1)
|
{
|
{
|
as_bad (_("expected comma"));
|
as_bad (_("expected comma"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return 0;
|
return 0;
|
}
|
}
|
if (type & 2)
|
if (type & 2)
|
{
|
{
|
int len;
|
int len;
|
|
|
skip_whitespace (input_line_pointer);
|
skip_whitespace (input_line_pointer);
|
if (*input_line_pointer != '"')
|
if (*input_line_pointer != '"')
|
goto bad_string;
|
goto bad_string;
|
s = demand_copy_C_string (&len);
|
s = demand_copy_C_string (&len);
|
}
|
}
|
|
|
switch (type & 3)
|
switch (type & 3)
|
{
|
{
|
case 3:
|
case 3:
|
bfd_elf_add_obj_attr_int_string (stdoutput, vendor, tag, i, s);
|
bfd_elf_add_obj_attr_int_string (stdoutput, vendor, tag, i, s);
|
break;
|
break;
|
case 2:
|
case 2:
|
bfd_elf_add_obj_attr_string (stdoutput, vendor, tag, s);
|
bfd_elf_add_obj_attr_string (stdoutput, vendor, tag, s);
|
break;
|
break;
|
case 1:
|
case 1:
|
bfd_elf_add_obj_attr_int (stdoutput, vendor, tag, i);
|
bfd_elf_add_obj_attr_int (stdoutput, vendor, tag, i);
|
break;
|
break;
|
default:
|
default:
|
abort ();
|
abort ();
|
}
|
}
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
return tag;
|
return tag;
|
bad_string:
|
bad_string:
|
as_bad (_("bad string constant"));
|
as_bad (_("bad string constant"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return 0;
|
return 0;
|
bad:
|
bad:
|
as_bad (_("expected <tag> , <value>"));
|
as_bad (_("expected <tag> , <value>"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Parse a .gnu_attribute directive. */
|
/* Parse a .gnu_attribute directive. */
|
|
|
static void
|
static void
|
s_gnu_attribute (int ignored ATTRIBUTE_UNUSED)
|
s_gnu_attribute (int ignored ATTRIBUTE_UNUSED)
|
{
|
{
|
s_vendor_attribute (OBJ_ATTR_GNU);
|
s_vendor_attribute (OBJ_ATTR_GNU);
|
}
|
}
|
#endif /* OBJ_ELF */
|
#endif /* OBJ_ELF */
|
|
|
/* Handle the MRI IRP and IRPC pseudo-ops. */
|
/* Handle the MRI IRP and IRPC pseudo-ops. */
|
|
|
void
|
void
|
s_irp (int irpc)
|
s_irp (int irpc)
|
{
|
{
|
char *file, *eol;
|
char *file, *eol;
|
unsigned int line;
|
unsigned int line;
|
sb s;
|
sb s;
|
const char *err;
|
const char *err;
|
sb out;
|
sb out;
|
|
|
as_where (&file, &line);
|
as_where (&file, &line);
|
|
|
sb_new (&s);
|
sb_new (&s);
|
eol = find_end_of_line (input_line_pointer, 0);
|
eol = find_end_of_line (input_line_pointer, 0);
|
sb_add_buffer (&s, input_line_pointer, eol - input_line_pointer);
|
sb_add_buffer (&s, input_line_pointer, eol - input_line_pointer);
|
input_line_pointer = eol;
|
input_line_pointer = eol;
|
|
|
sb_new (&out);
|
sb_new (&out);
|
|
|
err = expand_irp (irpc, 0, &s, &out, get_non_macro_line_sb);
|
err = expand_irp (irpc, 0, &s, &out, get_non_macro_line_sb);
|
if (err != NULL)
|
if (err != NULL)
|
as_bad_where (file, line, "%s", err);
|
as_bad_where (file, line, "%s", err);
|
|
|
sb_kill (&s);
|
sb_kill (&s);
|
|
|
input_scrub_include_sb (&out, input_line_pointer, 1);
|
input_scrub_include_sb (&out, input_line_pointer, 1);
|
sb_kill (&out);
|
sb_kill (&out);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
}
|
}
|
|
|
/* Handle the .linkonce pseudo-op. This tells the assembler to mark
|
/* Handle the .linkonce pseudo-op. This tells the assembler to mark
|
the section to only be linked once. However, this is not supported
|
the section to only be linked once. However, this is not supported
|
by most object file formats. This takes an optional argument,
|
by most object file formats. This takes an optional argument,
|
which is what to do about duplicates. */
|
which is what to do about duplicates. */
|
|
|
void
|
void
|
s_linkonce (int ignore ATTRIBUTE_UNUSED)
|
s_linkonce (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
enum linkonce_type type;
|
enum linkonce_type type;
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
type = LINKONCE_DISCARD;
|
type = LINKONCE_DISCARD;
|
|
|
if (!is_end_of_line[(unsigned char) *input_line_pointer])
|
if (!is_end_of_line[(unsigned char) *input_line_pointer])
|
{
|
{
|
char *s;
|
char *s;
|
char c;
|
char c;
|
|
|
s = input_line_pointer;
|
s = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
if (strcasecmp (s, "discard") == 0)
|
if (strcasecmp (s, "discard") == 0)
|
type = LINKONCE_DISCARD;
|
type = LINKONCE_DISCARD;
|
else if (strcasecmp (s, "one_only") == 0)
|
else if (strcasecmp (s, "one_only") == 0)
|
type = LINKONCE_ONE_ONLY;
|
type = LINKONCE_ONE_ONLY;
|
else if (strcasecmp (s, "same_size") == 0)
|
else if (strcasecmp (s, "same_size") == 0)
|
type = LINKONCE_SAME_SIZE;
|
type = LINKONCE_SAME_SIZE;
|
else if (strcasecmp (s, "same_contents") == 0)
|
else if (strcasecmp (s, "same_contents") == 0)
|
type = LINKONCE_SAME_CONTENTS;
|
type = LINKONCE_SAME_CONTENTS;
|
else
|
else
|
as_warn (_("unrecognized .linkonce type `%s'"), s);
|
as_warn (_("unrecognized .linkonce type `%s'"), s);
|
|
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
}
|
}
|
|
|
#ifdef obj_handle_link_once
|
#ifdef obj_handle_link_once
|
obj_handle_link_once (type);
|
obj_handle_link_once (type);
|
#else /* ! defined (obj_handle_link_once) */
|
#else /* ! defined (obj_handle_link_once) */
|
{
|
{
|
flagword flags;
|
flagword flags;
|
|
|
if ((bfd_applicable_section_flags (stdoutput) & SEC_LINK_ONCE) == 0)
|
if ((bfd_applicable_section_flags (stdoutput) & SEC_LINK_ONCE) == 0)
|
as_warn (_(".linkonce is not supported for this object file format"));
|
as_warn (_(".linkonce is not supported for this object file format"));
|
|
|
flags = bfd_get_section_flags (stdoutput, now_seg);
|
flags = bfd_get_section_flags (stdoutput, now_seg);
|
flags |= SEC_LINK_ONCE;
|
flags |= SEC_LINK_ONCE;
|
switch (type)
|
switch (type)
|
{
|
{
|
default:
|
default:
|
abort ();
|
abort ();
|
case LINKONCE_DISCARD:
|
case LINKONCE_DISCARD:
|
flags |= SEC_LINK_DUPLICATES_DISCARD;
|
flags |= SEC_LINK_DUPLICATES_DISCARD;
|
break;
|
break;
|
case LINKONCE_ONE_ONLY:
|
case LINKONCE_ONE_ONLY:
|
flags |= SEC_LINK_DUPLICATES_ONE_ONLY;
|
flags |= SEC_LINK_DUPLICATES_ONE_ONLY;
|
break;
|
break;
|
case LINKONCE_SAME_SIZE:
|
case LINKONCE_SAME_SIZE:
|
flags |= SEC_LINK_DUPLICATES_SAME_SIZE;
|
flags |= SEC_LINK_DUPLICATES_SAME_SIZE;
|
break;
|
break;
|
case LINKONCE_SAME_CONTENTS:
|
case LINKONCE_SAME_CONTENTS:
|
flags |= SEC_LINK_DUPLICATES_SAME_CONTENTS;
|
flags |= SEC_LINK_DUPLICATES_SAME_CONTENTS;
|
break;
|
break;
|
}
|
}
|
if (!bfd_set_section_flags (stdoutput, now_seg, flags))
|
if (!bfd_set_section_flags (stdoutput, now_seg, flags))
|
as_bad (_("bfd_set_section_flags: %s"),
|
as_bad (_("bfd_set_section_flags: %s"),
|
bfd_errmsg (bfd_get_error ()));
|
bfd_errmsg (bfd_get_error ()));
|
}
|
}
|
#endif /* ! defined (obj_handle_link_once) */
|
#endif /* ! defined (obj_handle_link_once) */
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
void
|
void
|
bss_alloc (symbolS *symbolP, addressT size, int align)
|
bss_alloc (symbolS *symbolP, addressT size, int align)
|
{
|
{
|
char *pfrag;
|
char *pfrag;
|
segT current_seg = now_seg;
|
segT current_seg = now_seg;
|
subsegT current_subseg = now_subseg;
|
subsegT current_subseg = now_subseg;
|
segT bss_seg = bss_section;
|
segT bss_seg = bss_section;
|
|
|
#if defined (TC_MIPS) || defined (TC_ALPHA)
|
#if defined (TC_MIPS) || defined (TC_ALPHA)
|
if (OUTPUT_FLAVOR == bfd_target_ecoff_flavour
|
if (OUTPUT_FLAVOR == bfd_target_ecoff_flavour
|
|| OUTPUT_FLAVOR == bfd_target_elf_flavour)
|
|| OUTPUT_FLAVOR == bfd_target_elf_flavour)
|
{
|
{
|
/* For MIPS and Alpha ECOFF or ELF, small objects are put in .sbss. */
|
/* For MIPS and Alpha ECOFF or ELF, small objects are put in .sbss. */
|
if (size <= bfd_get_gp_size (stdoutput))
|
if (size <= bfd_get_gp_size (stdoutput))
|
{
|
{
|
bss_seg = subseg_new (".sbss", 1);
|
bss_seg = subseg_new (".sbss", 1);
|
seg_info (bss_seg)->bss = 1;
|
seg_info (bss_seg)->bss = 1;
|
if (!bfd_set_section_flags (stdoutput, bss_seg, SEC_ALLOC))
|
if (!bfd_set_section_flags (stdoutput, bss_seg, SEC_ALLOC))
|
as_warn (_("error setting flags for \".sbss\": %s"),
|
as_warn (_("error setting flags for \".sbss\": %s"),
|
bfd_errmsg (bfd_get_error ()));
|
bfd_errmsg (bfd_get_error ()));
|
}
|
}
|
}
|
}
|
#endif
|
#endif
|
subseg_set (bss_seg, 1);
|
subseg_set (bss_seg, 1);
|
|
|
if (align)
|
if (align)
|
{
|
{
|
record_alignment (bss_seg, align);
|
record_alignment (bss_seg, align);
|
frag_align (align, 0, 0);
|
frag_align (align, 0, 0);
|
}
|
}
|
|
|
/* Detach from old frag. */
|
/* Detach from old frag. */
|
if (S_GET_SEGMENT (symbolP) == bss_seg)
|
if (S_GET_SEGMENT (symbolP) == bss_seg)
|
symbol_get_frag (symbolP)->fr_symbol = NULL;
|
symbol_get_frag (symbolP)->fr_symbol = NULL;
|
|
|
symbol_set_frag (symbolP, frag_now);
|
symbol_set_frag (symbolP, frag_now);
|
pfrag = frag_var (rs_org, 1, 1, 0, symbolP, size, NULL);
|
pfrag = frag_var (rs_org, 1, 1, 0, symbolP, size, NULL);
|
*pfrag = 0;
|
*pfrag = 0;
|
|
|
#ifdef S_SET_SIZE
|
#ifdef S_SET_SIZE
|
S_SET_SIZE (symbolP, size);
|
S_SET_SIZE (symbolP, size);
|
#endif
|
#endif
|
S_SET_SEGMENT (symbolP, bss_seg);
|
S_SET_SEGMENT (symbolP, bss_seg);
|
|
|
#ifdef OBJ_COFF
|
#ifdef OBJ_COFF
|
/* The symbol may already have been created with a preceding
|
/* The symbol may already have been created with a preceding
|
".globl" directive -- be careful not to step on storage class
|
".globl" directive -- be careful not to step on storage class
|
in that case. Otherwise, set it to static. */
|
in that case. Otherwise, set it to static. */
|
if (S_GET_STORAGE_CLASS (symbolP) != C_EXT)
|
if (S_GET_STORAGE_CLASS (symbolP) != C_EXT)
|
S_SET_STORAGE_CLASS (symbolP, C_STAT);
|
S_SET_STORAGE_CLASS (symbolP, C_STAT);
|
#endif /* OBJ_COFF */
|
#endif /* OBJ_COFF */
|
|
|
subseg_set (current_seg, current_subseg);
|
subseg_set (current_seg, current_subseg);
|
}
|
}
|
|
|
offsetT
|
offsetT
|
parse_align (int align_bytes)
|
parse_align (int align_bytes)
|
{
|
{
|
expressionS exp;
|
expressionS exp;
|
addressT align;
|
addressT align;
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
{
|
{
|
no_align:
|
no_align:
|
as_bad (_("expected alignment after size"));
|
as_bad (_("expected alignment after size"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return -1;
|
return -1;
|
}
|
}
|
|
|
input_line_pointer++;
|
input_line_pointer++;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
align = get_absolute_expr (&exp);
|
align = get_absolute_expr (&exp);
|
if (exp.X_op == O_absent)
|
if (exp.X_op == O_absent)
|
goto no_align;
|
goto no_align;
|
|
|
if (!exp.X_unsigned)
|
if (!exp.X_unsigned)
|
{
|
{
|
as_warn (_("alignment negative; 0 assumed"));
|
as_warn (_("alignment negative; 0 assumed"));
|
align = 0;
|
align = 0;
|
}
|
}
|
|
|
if (align_bytes && align != 0)
|
if (align_bytes && align != 0)
|
{
|
{
|
/* convert to a power of 2 alignment */
|
/* convert to a power of 2 alignment */
|
unsigned int alignp2 = 0;
|
unsigned int alignp2 = 0;
|
while ((align & 1) == 0)
|
while ((align & 1) == 0)
|
align >>= 1, ++alignp2;
|
align >>= 1, ++alignp2;
|
if (align != 1)
|
if (align != 1)
|
{
|
{
|
as_bad (_("alignment not a power of 2"));
|
as_bad (_("alignment not a power of 2"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return -1;
|
return -1;
|
}
|
}
|
align = alignp2;
|
align = alignp2;
|
}
|
}
|
return align;
|
return align;
|
}
|
}
|
|
|
/* Called from s_comm_internal after symbol name and size have been
|
/* 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),
|
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
|
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
|
(alignment as a power of 2), or 2 if this was a ".bss" directive
|
with alignment in bytes. */
|
with alignment in bytes. */
|
|
|
symbolS *
|
symbolS *
|
s_lcomm_internal (int needs_align, symbolS *symbolP, addressT size)
|
s_lcomm_internal (int needs_align, symbolS *symbolP, addressT size)
|
{
|
{
|
addressT align = 0;
|
addressT align = 0;
|
|
|
if (needs_align)
|
if (needs_align)
|
{
|
{
|
align = parse_align (needs_align - 1);
|
align = parse_align (needs_align - 1);
|
if (align == (addressT) -1)
|
if (align == (addressT) -1)
|
return NULL;
|
return NULL;
|
}
|
}
|
else
|
else
|
/* Assume some objects may require alignment on some systems. */
|
/* Assume some objects may require alignment on some systems. */
|
TC_IMPLICIT_LCOMM_ALIGNMENT (size, align);
|
TC_IMPLICIT_LCOMM_ALIGNMENT (size, align);
|
|
|
bss_alloc (symbolP, size, align);
|
bss_alloc (symbolP, size, align);
|
return symbolP;
|
return symbolP;
|
}
|
}
|
|
|
void
|
void
|
s_lcomm (int needs_align)
|
s_lcomm (int needs_align)
|
{
|
{
|
s_comm_internal (needs_align, s_lcomm_internal);
|
s_comm_internal (needs_align, s_lcomm_internal);
|
}
|
}
|
|
|
void
|
void
|
s_lcomm_bytes (int needs_align)
|
s_lcomm_bytes (int needs_align)
|
{
|
{
|
s_comm_internal (needs_align * 2, s_lcomm_internal);
|
s_comm_internal (needs_align * 2, s_lcomm_internal);
|
}
|
}
|
|
|
void
|
void
|
s_lsym (int ignore ATTRIBUTE_UNUSED)
|
s_lsym (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
char *name;
|
char *name;
|
char c;
|
char c;
|
char *p;
|
char *p;
|
expressionS exp;
|
expressionS exp;
|
symbolS *symbolP;
|
symbolS *symbolP;
|
|
|
/* We permit ANY defined expression: BSD4.2 demands constants. */
|
/* We permit ANY defined expression: BSD4.2 demands constants. */
|
name = input_line_pointer;
|
name = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
p = input_line_pointer;
|
p = input_line_pointer;
|
*p = c;
|
*p = c;
|
|
|
if (name == p)
|
if (name == p)
|
{
|
{
|
as_bad (_("expected symbol name"));
|
as_bad (_("expected symbol name"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
{
|
{
|
*p = 0;
|
*p = 0;
|
as_bad (_("expected comma after \"%s\""), name);
|
as_bad (_("expected comma after \"%s\""), name);
|
*p = c;
|
*p = c;
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
input_line_pointer++;
|
input_line_pointer++;
|
expression_and_evaluate (&exp);
|
expression_and_evaluate (&exp);
|
|
|
if (exp.X_op != O_constant
|
if (exp.X_op != O_constant
|
&& exp.X_op != O_register)
|
&& exp.X_op != O_register)
|
{
|
{
|
as_bad (_("bad expression"));
|
as_bad (_("bad expression"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
*p = 0;
|
*p = 0;
|
symbolP = symbol_find_or_make (name);
|
symbolP = symbol_find_or_make (name);
|
|
|
if (S_GET_SEGMENT (symbolP) == undefined_section)
|
if (S_GET_SEGMENT (symbolP) == undefined_section)
|
{
|
{
|
/* The name might be an undefined .global symbol; be sure to
|
/* The name might be an undefined .global symbol; be sure to
|
keep the "external" bit. */
|
keep the "external" bit. */
|
S_SET_SEGMENT (symbolP,
|
S_SET_SEGMENT (symbolP,
|
(exp.X_op == O_constant
|
(exp.X_op == O_constant
|
? absolute_section
|
? absolute_section
|
: reg_section));
|
: reg_section));
|
S_SET_VALUE (symbolP, (valueT) exp.X_add_number);
|
S_SET_VALUE (symbolP, (valueT) exp.X_add_number);
|
}
|
}
|
else
|
else
|
{
|
{
|
as_bad (_("symbol `%s' is already defined"), name);
|
as_bad (_("symbol `%s' is already defined"), name);
|
}
|
}
|
|
|
*p = c;
|
*p = c;
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Read a line into an sb. Returns the character that ended the line
|
/* Read a line into an sb. Returns the character that ended the line
|
or zero if there are no more lines. */
|
or zero if there are no more lines. */
|
|
|
static int
|
static int
|
get_line_sb (sb *line, int in_macro)
|
get_line_sb (sb *line, int in_macro)
|
{
|
{
|
char *eol;
|
char *eol;
|
|
|
if (input_line_pointer[-1] == '\n')
|
if (input_line_pointer[-1] == '\n')
|
bump_line_counters ();
|
bump_line_counters ();
|
|
|
if (input_line_pointer >= buffer_limit)
|
if (input_line_pointer >= buffer_limit)
|
{
|
{
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
if (buffer_limit == 0)
|
if (buffer_limit == 0)
|
return 0;
|
return 0;
|
}
|
}
|
|
|
eol = _find_end_of_line (input_line_pointer, flag_m68k_mri, 0, in_macro);
|
eol = _find_end_of_line (input_line_pointer, flag_m68k_mri, 0, in_macro);
|
sb_add_buffer (line, input_line_pointer, eol - input_line_pointer);
|
sb_add_buffer (line, input_line_pointer, eol - input_line_pointer);
|
input_line_pointer = eol;
|
input_line_pointer = eol;
|
|
|
/* Don't skip multiple end-of-line characters, because that breaks support
|
/* 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
|
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
|
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
|
return the character skipped so that the caller can re-insert it if
|
necessary. */
|
necessary. */
|
return *input_line_pointer++;
|
return *input_line_pointer++;
|
}
|
}
|
|
|
static int
|
static int
|
get_non_macro_line_sb (sb *line)
|
get_non_macro_line_sb (sb *line)
|
{
|
{
|
return get_line_sb (line, 0);
|
return get_line_sb (line, 0);
|
}
|
}
|
|
|
static int
|
static int
|
get_macro_line_sb (sb *line)
|
get_macro_line_sb (sb *line)
|
{
|
{
|
return get_line_sb (line, 1);
|
return get_line_sb (line, 1);
|
}
|
}
|
|
|
/* Define a macro. This is an interface to macro.c. */
|
/* Define a macro. This is an interface to macro.c. */
|
|
|
void
|
void
|
s_macro (int ignore ATTRIBUTE_UNUSED)
|
s_macro (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
char *file, *eol;
|
char *file, *eol;
|
unsigned int line;
|
unsigned int line;
|
sb s;
|
sb s;
|
const char *err;
|
const char *err;
|
const char *name;
|
const char *name;
|
|
|
as_where (&file, &line);
|
as_where (&file, &line);
|
|
|
sb_new (&s);
|
sb_new (&s);
|
eol = find_end_of_line (input_line_pointer, 0);
|
eol = find_end_of_line (input_line_pointer, 0);
|
sb_add_buffer (&s, input_line_pointer, eol - input_line_pointer);
|
sb_add_buffer (&s, input_line_pointer, eol - input_line_pointer);
|
input_line_pointer = eol;
|
input_line_pointer = eol;
|
|
|
if (line_label != NULL)
|
if (line_label != NULL)
|
{
|
{
|
sb label;
|
sb label;
|
|
|
sb_new (&label);
|
sb_new (&label);
|
sb_add_string (&label, S_GET_NAME (line_label));
|
sb_add_string (&label, S_GET_NAME (line_label));
|
err = define_macro (0, &s, &label, get_macro_line_sb, file, line, &name);
|
err = define_macro (0, &s, &label, get_macro_line_sb, file, line, &name);
|
sb_kill (&label);
|
sb_kill (&label);
|
}
|
}
|
else
|
else
|
err = define_macro (0, &s, NULL, get_macro_line_sb, file, line, &name);
|
err = define_macro (0, &s, NULL, get_macro_line_sb, file, line, &name);
|
if (err != NULL)
|
if (err != NULL)
|
as_bad_where (file, line, err, name);
|
as_bad_where (file, line, err, name);
|
else
|
else
|
{
|
{
|
if (line_label != NULL)
|
if (line_label != NULL)
|
{
|
{
|
S_SET_SEGMENT (line_label, absolute_section);
|
S_SET_SEGMENT (line_label, absolute_section);
|
S_SET_VALUE (line_label, 0);
|
S_SET_VALUE (line_label, 0);
|
symbol_set_frag (line_label, &zero_address_frag);
|
symbol_set_frag (line_label, &zero_address_frag);
|
}
|
}
|
|
|
if (((NO_PSEUDO_DOT || flag_m68k_mri)
|
if (((NO_PSEUDO_DOT || flag_m68k_mri)
|
&& hash_find (po_hash, name) != NULL)
|
&& hash_find (po_hash, name) != NULL)
|
|| (!flag_m68k_mri
|
|| (!flag_m68k_mri
|
&& *name == '.'
|
&& *name == '.'
|
&& hash_find (po_hash, name + 1) != NULL))
|
&& hash_find (po_hash, name + 1) != NULL))
|
as_warn_where (file,
|
as_warn_where (file,
|
line,
|
line,
|
_("attempt to redefine pseudo-op `%s' ignored"),
|
_("attempt to redefine pseudo-op `%s' ignored"),
|
name);
|
name);
|
}
|
}
|
|
|
sb_kill (&s);
|
sb_kill (&s);
|
}
|
}
|
|
|
/* Handle the .mexit pseudo-op, which immediately exits a macro
|
/* Handle the .mexit pseudo-op, which immediately exits a macro
|
expansion. */
|
expansion. */
|
|
|
void
|
void
|
s_mexit (int ignore ATTRIBUTE_UNUSED)
|
s_mexit (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
if (macro_nest)
|
if (macro_nest)
|
{
|
{
|
cond_exit_macro (macro_nest);
|
cond_exit_macro (macro_nest);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
}
|
}
|
else
|
else
|
as_warn (_("ignoring macro exit outside a macro definition."));
|
as_warn (_("ignoring macro exit outside a macro definition."));
|
}
|
}
|
|
|
/* Switch in and out of MRI mode. */
|
/* Switch in and out of MRI mode. */
|
|
|
void
|
void
|
s_mri (int ignore ATTRIBUTE_UNUSED)
|
s_mri (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
int on;
|
int on;
|
#ifdef MRI_MODE_CHANGE
|
#ifdef MRI_MODE_CHANGE
|
int old_flag;
|
int old_flag;
|
#endif
|
#endif
|
|
|
on = get_absolute_expression ();
|
on = get_absolute_expression ();
|
#ifdef MRI_MODE_CHANGE
|
#ifdef MRI_MODE_CHANGE
|
old_flag = flag_mri;
|
old_flag = flag_mri;
|
#endif
|
#endif
|
if (on != 0)
|
if (on != 0)
|
{
|
{
|
flag_mri = 1;
|
flag_mri = 1;
|
#ifdef TC_M68K
|
#ifdef TC_M68K
|
flag_m68k_mri = 1;
|
flag_m68k_mri = 1;
|
#endif
|
#endif
|
macro_mri_mode (1);
|
macro_mri_mode (1);
|
}
|
}
|
else
|
else
|
{
|
{
|
flag_mri = 0;
|
flag_mri = 0;
|
#ifdef TC_M68K
|
#ifdef TC_M68K
|
flag_m68k_mri = 0;
|
flag_m68k_mri = 0;
|
#endif
|
#endif
|
macro_mri_mode (0);
|
macro_mri_mode (0);
|
}
|
}
|
|
|
/* Operator precedence changes in m68k MRI mode, so we need to
|
/* Operator precedence changes in m68k MRI mode, so we need to
|
update the operator rankings. */
|
update the operator rankings. */
|
expr_set_precedence ();
|
expr_set_precedence ();
|
|
|
#ifdef MRI_MODE_CHANGE
|
#ifdef MRI_MODE_CHANGE
|
if (on != old_flag)
|
if (on != old_flag)
|
MRI_MODE_CHANGE (on);
|
MRI_MODE_CHANGE (on);
|
#endif
|
#endif
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Handle changing the location counter. */
|
/* Handle changing the location counter. */
|
|
|
static void
|
static void
|
do_org (segT segment, expressionS *exp, int fill)
|
do_org (segT segment, expressionS *exp, int fill)
|
{
|
{
|
if (segment != now_seg
|
if (segment != now_seg
|
&& segment != absolute_section
|
&& segment != absolute_section
|
&& segment != expr_section)
|
&& segment != expr_section)
|
as_bad (_("invalid segment \"%s\""), segment_name (segment));
|
as_bad (_("invalid segment \"%s\""), segment_name (segment));
|
|
|
if (now_seg == absolute_section)
|
if (now_seg == absolute_section)
|
{
|
{
|
if (fill != 0)
|
if (fill != 0)
|
as_warn (_("ignoring fill value in absolute section"));
|
as_warn (_("ignoring fill value in absolute section"));
|
if (exp->X_op != O_constant)
|
if (exp->X_op != O_constant)
|
{
|
{
|
as_bad (_("only constant offsets supported in absolute section"));
|
as_bad (_("only constant offsets supported in absolute section"));
|
exp->X_add_number = 0;
|
exp->X_add_number = 0;
|
}
|
}
|
abs_section_offset = exp->X_add_number;
|
abs_section_offset = exp->X_add_number;
|
}
|
}
|
else
|
else
|
{
|
{
|
char *p;
|
char *p;
|
symbolS *sym = exp->X_add_symbol;
|
symbolS *sym = exp->X_add_symbol;
|
offsetT off = exp->X_add_number * OCTETS_PER_BYTE;
|
offsetT off = exp->X_add_number * OCTETS_PER_BYTE;
|
|
|
if (exp->X_op != O_constant && exp->X_op != O_symbol)
|
if (exp->X_op != O_constant && exp->X_op != O_symbol)
|
{
|
{
|
/* Handle complex expressions. */
|
/* Handle complex expressions. */
|
sym = make_expr_symbol (exp);
|
sym = make_expr_symbol (exp);
|
off = 0;
|
off = 0;
|
}
|
}
|
|
|
p = frag_var (rs_org, 1, 1, (relax_substateT) 0, sym, off, (char *) 0);
|
p = frag_var (rs_org, 1, 1, (relax_substateT) 0, sym, off, (char *) 0);
|
*p = fill;
|
*p = fill;
|
}
|
}
|
}
|
}
|
|
|
void
|
void
|
s_org (int ignore ATTRIBUTE_UNUSED)
|
s_org (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
segT segment;
|
segT segment;
|
expressionS exp;
|
expressionS exp;
|
long temp_fill;
|
long temp_fill;
|
|
|
#ifdef md_flush_pending_output
|
#ifdef md_flush_pending_output
|
md_flush_pending_output ();
|
md_flush_pending_output ();
|
#endif
|
#endif
|
|
|
/* The m68k MRI assembler has a different meaning for .org. It
|
/* The m68k MRI assembler has a different meaning for .org. It
|
means to create an absolute section at a given address. We can't
|
means to create an absolute section at a given address. We can't
|
support that--use a linker script instead. */
|
support that--use a linker script instead. */
|
if (flag_m68k_mri)
|
if (flag_m68k_mri)
|
{
|
{
|
as_bad (_("MRI style ORG pseudo-op not supported"));
|
as_bad (_("MRI style ORG pseudo-op not supported"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
/* Don't believe the documentation of BSD 4.2 AS. There is no such
|
/* 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
|
thing as a sub-segment-relative origin. Any absolute origin is
|
given a warning, then assumed to be segment-relative. Any
|
given a warning, then assumed to be segment-relative. Any
|
segmented origin expression ("foo+42") had better be in the right
|
segmented origin expression ("foo+42") had better be in the right
|
segment or the .org is ignored.
|
segment or the .org is ignored.
|
|
|
BSD 4.2 AS warns if you try to .org backwards. We cannot because
|
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
|
we never know sub-segment sizes when we are reading code. BSD
|
will crash trying to emit negative numbers of filler bytes in
|
will crash trying to emit negative numbers of filler bytes in
|
certain .orgs. We don't crash, but see as-write for that code.
|
certain .orgs. We don't crash, but see as-write for that code.
|
|
|
Don't make frag if need_pass_2==1. */
|
Don't make frag if need_pass_2==1. */
|
segment = get_known_segmented_expression (&exp);
|
segment = get_known_segmented_expression (&exp);
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
{
|
{
|
input_line_pointer++;
|
input_line_pointer++;
|
temp_fill = get_absolute_expression ();
|
temp_fill = get_absolute_expression ();
|
}
|
}
|
else
|
else
|
temp_fill = 0;
|
temp_fill = 0;
|
|
|
if (!need_pass_2)
|
if (!need_pass_2)
|
do_org (segment, &exp, temp_fill);
|
do_org (segment, &exp, temp_fill);
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Handle parsing for the MRI SECT/SECTION pseudo-op. This should be
|
/* Handle parsing for the MRI SECT/SECTION pseudo-op. This should be
|
called by the obj-format routine which handles section changing
|
called by the obj-format routine which handles section changing
|
when in MRI mode. It will create a new section, and return it. It
|
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),
|
will set *TYPE to the section type: one of 'C' (code), 'D' (data),
|
'M' (mixed), or 'R' (romable). The flags will be set in the section. */
|
'M' (mixed), or 'R' (romable). The flags will be set in the section. */
|
|
|
void
|
void
|
s_mri_sect (char *type ATTRIBUTE_UNUSED)
|
s_mri_sect (char *type ATTRIBUTE_UNUSED)
|
{
|
{
|
#ifdef TC_M68K
|
#ifdef TC_M68K
|
|
|
char *name;
|
char *name;
|
char c;
|
char c;
|
segT seg;
|
segT seg;
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
name = input_line_pointer;
|
name = input_line_pointer;
|
if (!ISDIGIT (*name))
|
if (!ISDIGIT (*name))
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
else
|
else
|
{
|
{
|
do
|
do
|
{
|
{
|
++input_line_pointer;
|
++input_line_pointer;
|
}
|
}
|
while (ISDIGIT (*input_line_pointer));
|
while (ISDIGIT (*input_line_pointer));
|
|
|
c = *input_line_pointer;
|
c = *input_line_pointer;
|
*input_line_pointer = '\0';
|
*input_line_pointer = '\0';
|
}
|
}
|
|
|
name = xstrdup (name);
|
name = xstrdup (name);
|
|
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
|
|
seg = subseg_new (name, 0);
|
seg = subseg_new (name, 0);
|
|
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
{
|
{
|
int align;
|
int align;
|
|
|
++input_line_pointer;
|
++input_line_pointer;
|
align = get_absolute_expression ();
|
align = get_absolute_expression ();
|
record_alignment (seg, align);
|
record_alignment (seg, align);
|
}
|
}
|
|
|
*type = 'C';
|
*type = 'C';
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
{
|
{
|
c = *++input_line_pointer;
|
c = *++input_line_pointer;
|
c = TOUPPER (c);
|
c = TOUPPER (c);
|
if (c == 'C' || c == 'D' || c == 'M' || c == 'R')
|
if (c == 'C' || c == 'D' || c == 'M' || c == 'R')
|
*type = c;
|
*type = c;
|
else
|
else
|
as_bad (_("unrecognized section type"));
|
as_bad (_("unrecognized section type"));
|
++input_line_pointer;
|
++input_line_pointer;
|
|
|
{
|
{
|
flagword flags;
|
flagword flags;
|
|
|
flags = SEC_NO_FLAGS;
|
flags = SEC_NO_FLAGS;
|
if (*type == 'C')
|
if (*type == 'C')
|
flags = SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE;
|
flags = SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE;
|
else if (*type == 'D' || *type == 'M')
|
else if (*type == 'D' || *type == 'M')
|
flags = SEC_ALLOC | SEC_LOAD | SEC_DATA;
|
flags = SEC_ALLOC | SEC_LOAD | SEC_DATA;
|
else if (*type == 'R')
|
else if (*type == 'R')
|
flags = SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_READONLY | SEC_ROM;
|
flags = SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_READONLY | SEC_ROM;
|
if (flags != SEC_NO_FLAGS)
|
if (flags != SEC_NO_FLAGS)
|
{
|
{
|
if (!bfd_set_section_flags (stdoutput, seg, flags))
|
if (!bfd_set_section_flags (stdoutput, seg, flags))
|
as_warn (_("error setting flags for \"%s\": %s"),
|
as_warn (_("error setting flags for \"%s\": %s"),
|
bfd_section_name (stdoutput, seg),
|
bfd_section_name (stdoutput, seg),
|
bfd_errmsg (bfd_get_error ()));
|
bfd_errmsg (bfd_get_error ()));
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
/* Ignore the HP type. */
|
/* Ignore the HP type. */
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
input_line_pointer += 2;
|
input_line_pointer += 2;
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
|
|
#else /* ! TC_M68K */
|
#else /* ! TC_M68K */
|
#ifdef TC_I960
|
#ifdef TC_I960
|
|
|
char *name;
|
char *name;
|
char c;
|
char c;
|
segT seg;
|
segT seg;
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
name = input_line_pointer;
|
name = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
|
|
name = xstrdup (name);
|
name = xstrdup (name);
|
|
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
|
|
seg = subseg_new (name, 0);
|
seg = subseg_new (name, 0);
|
|
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
*type = 'C';
|
*type = 'C';
|
else
|
else
|
{
|
{
|
char *sectype;
|
char *sectype;
|
|
|
++input_line_pointer;
|
++input_line_pointer;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
sectype = input_line_pointer;
|
sectype = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
if (*sectype == '\0')
|
if (*sectype == '\0')
|
*type = 'C';
|
*type = 'C';
|
else if (strcasecmp (sectype, "text") == 0)
|
else if (strcasecmp (sectype, "text") == 0)
|
*type = 'C';
|
*type = 'C';
|
else if (strcasecmp (sectype, "data") == 0)
|
else if (strcasecmp (sectype, "data") == 0)
|
*type = 'D';
|
*type = 'D';
|
else if (strcasecmp (sectype, "romdata") == 0)
|
else if (strcasecmp (sectype, "romdata") == 0)
|
*type = 'R';
|
*type = 'R';
|
else
|
else
|
as_warn (_("unrecognized section type `%s'"), sectype);
|
as_warn (_("unrecognized section type `%s'"), sectype);
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
}
|
}
|
|
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
{
|
{
|
char *seccmd;
|
char *seccmd;
|
|
|
++input_line_pointer;
|
++input_line_pointer;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
seccmd = input_line_pointer;
|
seccmd = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
if (strcasecmp (seccmd, "absolute") == 0)
|
if (strcasecmp (seccmd, "absolute") == 0)
|
{
|
{
|
as_bad (_("absolute sections are not supported"));
|
as_bad (_("absolute sections are not supported"));
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
else if (strcasecmp (seccmd, "align") == 0)
|
else if (strcasecmp (seccmd, "align") == 0)
|
{
|
{
|
int align;
|
int align;
|
|
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
align = get_absolute_expression ();
|
align = get_absolute_expression ();
|
record_alignment (seg, align);
|
record_alignment (seg, align);
|
}
|
}
|
else
|
else
|
{
|
{
|
as_warn (_("unrecognized section command `%s'"), seccmd);
|
as_warn (_("unrecognized section command `%s'"), seccmd);
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
}
|
}
|
}
|
}
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
|
|
#else /* ! TC_I960 */
|
#else /* ! TC_I960 */
|
/* The MRI assembler seems to use different forms of .sect for
|
/* The MRI assembler seems to use different forms of .sect for
|
different targets. */
|
different targets. */
|
as_bad ("MRI mode not supported for this target");
|
as_bad ("MRI mode not supported for this target");
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
#endif /* ! TC_I960 */
|
#endif /* ! TC_I960 */
|
#endif /* ! TC_M68K */
|
#endif /* ! TC_M68K */
|
}
|
}
|
|
|
/* Handle the .print pseudo-op. */
|
/* Handle the .print pseudo-op. */
|
|
|
void
|
void
|
s_print (int ignore ATTRIBUTE_UNUSED)
|
s_print (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
char *s;
|
char *s;
|
int len;
|
int len;
|
|
|
s = demand_copy_C_string (&len);
|
s = demand_copy_C_string (&len);
|
if (s != NULL)
|
if (s != NULL)
|
printf ("%s\n", s);
|
printf ("%s\n", s);
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Handle the .purgem pseudo-op. */
|
/* Handle the .purgem pseudo-op. */
|
|
|
void
|
void
|
s_purgem (int ignore ATTRIBUTE_UNUSED)
|
s_purgem (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
if (is_it_end_of_statement ())
|
if (is_it_end_of_statement ())
|
{
|
{
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
do
|
do
|
{
|
{
|
char *name;
|
char *name;
|
char c;
|
char c;
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
name = input_line_pointer;
|
name = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
delete_macro (name);
|
delete_macro (name);
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
}
|
}
|
while (*input_line_pointer++ == ',');
|
while (*input_line_pointer++ == ',');
|
|
|
--input_line_pointer;
|
--input_line_pointer;
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Handle the .endm/.endr pseudo-ops. */
|
/* Handle the .endm/.endr pseudo-ops. */
|
|
|
static void
|
static void
|
s_bad_end (int endr)
|
s_bad_end (int endr)
|
{
|
{
|
as_warn (_(".end%c encountered without preceding %s"),
|
as_warn (_(".end%c encountered without preceding %s"),
|
endr ? 'r' : 'm',
|
endr ? 'r' : 'm',
|
endr ? ".rept, .irp, or .irpc" : ".macro");
|
endr ? ".rept, .irp, or .irpc" : ".macro");
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Handle the .rept pseudo-op. */
|
/* Handle the .rept pseudo-op. */
|
|
|
void
|
void
|
s_rept (int ignore ATTRIBUTE_UNUSED)
|
s_rept (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
int count;
|
int count;
|
|
|
count = get_absolute_expression ();
|
count = get_absolute_expression ();
|
|
|
do_repeat (count, "REPT", "ENDR");
|
do_repeat (count, "REPT", "ENDR");
|
}
|
}
|
|
|
/* This function provides a generic repeat block implementation. It allows
|
/* This function provides a generic repeat block implementation. It allows
|
different directives to be used as the start/end keys. */
|
different directives to be used as the start/end keys. */
|
|
|
void
|
void
|
do_repeat (int count, const char *start, const char *end)
|
do_repeat (int count, const char *start, const char *end)
|
{
|
{
|
sb one;
|
sb one;
|
sb many;
|
sb many;
|
|
|
sb_new (&one);
|
sb_new (&one);
|
if (!buffer_and_nest (start, end, &one, get_non_macro_line_sb))
|
if (!buffer_and_nest (start, end, &one, get_non_macro_line_sb))
|
{
|
{
|
as_bad (_("%s without %s"), start, end);
|
as_bad (_("%s without %s"), start, end);
|
return;
|
return;
|
}
|
}
|
|
|
sb_new (&many);
|
sb_new (&many);
|
while (count-- > 0)
|
while (count-- > 0)
|
sb_add_sb (&many, &one);
|
sb_add_sb (&many, &one);
|
|
|
sb_kill (&one);
|
sb_kill (&one);
|
|
|
input_scrub_include_sb (&many, input_line_pointer, 1);
|
input_scrub_include_sb (&many, input_line_pointer, 1);
|
sb_kill (&many);
|
sb_kill (&many);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
}
|
}
|
|
|
/* Like do_repeat except that any text matching EXPANDER in the
|
/* Like do_repeat except that any text matching EXPANDER in the
|
block is replaced by the itteration count. */
|
block is replaced by the itteration count. */
|
|
|
void
|
void
|
do_repeat_with_expander (int count,
|
do_repeat_with_expander (int count,
|
const char * start,
|
const char * start,
|
const char * end,
|
const char * end,
|
const char * expander)
|
const char * expander)
|
{
|
{
|
sb one;
|
sb one;
|
sb many;
|
sb many;
|
|
|
sb_new (&one);
|
sb_new (&one);
|
if (!buffer_and_nest (start, end, &one, get_non_macro_line_sb))
|
if (!buffer_and_nest (start, end, &one, get_non_macro_line_sb))
|
{
|
{
|
as_bad (_("%s without %s"), start, end);
|
as_bad (_("%s without %s"), start, end);
|
return;
|
return;
|
}
|
}
|
|
|
sb_new (&many);
|
sb_new (&many);
|
|
|
if (expander != NULL && strstr (one.ptr, expander) != NULL)
|
if (expander != NULL && strstr (one.ptr, expander) != NULL)
|
{
|
{
|
while (count -- > 0)
|
while (count -- > 0)
|
{
|
{
|
int len;
|
int len;
|
char * sub;
|
char * sub;
|
sb processed;
|
sb processed;
|
|
|
sb_new (& processed);
|
sb_new (& processed);
|
sb_add_sb (& processed, & one);
|
sb_add_sb (& processed, & one);
|
sub = strstr (processed.ptr, expander);
|
sub = strstr (processed.ptr, expander);
|
len = sprintf (sub, "%d", count);
|
len = sprintf (sub, "%d", count);
|
gas_assert (len < 8);
|
gas_assert (len < 8);
|
strcpy (sub + len, sub + 8);
|
strcpy (sub + len, sub + 8);
|
processed.len -= (8 - len);
|
processed.len -= (8 - len);
|
sb_add_sb (& many, & processed);
|
sb_add_sb (& many, & processed);
|
sb_kill (& processed);
|
sb_kill (& processed);
|
}
|
}
|
}
|
}
|
else
|
else
|
while (count-- > 0)
|
while (count-- > 0)
|
sb_add_sb (&many, &one);
|
sb_add_sb (&many, &one);
|
|
|
sb_kill (&one);
|
sb_kill (&one);
|
|
|
input_scrub_include_sb (&many, input_line_pointer, 1);
|
input_scrub_include_sb (&many, input_line_pointer, 1);
|
sb_kill (&many);
|
sb_kill (&many);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
}
|
}
|
|
|
/* Skip to end of current repeat loop; EXTRA indicates how many additional
|
/* Skip to end of current repeat loop; EXTRA indicates how many additional
|
input buffers to skip. Assumes that conditionals preceding the loop end
|
input buffers to skip. Assumes that conditionals preceding the loop end
|
are properly nested.
|
are properly nested.
|
|
|
This function makes it easier to implement a premature "break" out of the
|
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,
|
loop. The EXTRA arg accounts for other buffers we might have inserted,
|
such as line substitutions. */
|
such as line substitutions. */
|
|
|
void
|
void
|
end_repeat (int extra)
|
end_repeat (int extra)
|
{
|
{
|
cond_exit_macro (macro_nest);
|
cond_exit_macro (macro_nest);
|
while (extra-- >= 0)
|
while (extra-- >= 0)
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
}
|
}
|
|
|
static void
|
static void
|
assign_symbol (char *name, int mode)
|
assign_symbol (char *name, int mode)
|
{
|
{
|
symbolS *symbolP;
|
symbolS *symbolP;
|
|
|
if (name[0] == '.' && name[1] == '\0')
|
if (name[0] == '.' && name[1] == '\0')
|
{
|
{
|
/* Turn '. = mumble' into a .org mumble. */
|
/* Turn '. = mumble' into a .org mumble. */
|
segT segment;
|
segT segment;
|
expressionS exp;
|
expressionS exp;
|
|
|
segment = get_known_segmented_expression (&exp);
|
segment = get_known_segmented_expression (&exp);
|
|
|
if (!need_pass_2)
|
if (!need_pass_2)
|
do_org (segment, &exp, 0);
|
do_org (segment, &exp, 0);
|
|
|
return;
|
return;
|
}
|
}
|
|
|
if ((symbolP = symbol_find (name)) == NULL
|
if ((symbolP = symbol_find (name)) == NULL
|
&& (symbolP = md_undefined_symbol (name)) == NULL)
|
&& (symbolP = md_undefined_symbol (name)) == NULL)
|
{
|
{
|
symbolP = symbol_find_or_make (name);
|
symbolP = symbol_find_or_make (name);
|
#ifndef NO_LISTING
|
#ifndef NO_LISTING
|
/* When doing symbol listings, play games with dummy fragments living
|
/* When doing symbol listings, play games with dummy fragments living
|
outside the normal fragment chain to record the file and line info
|
outside the normal fragment chain to record the file and line info
|
for this symbol. */
|
for this symbol. */
|
if (listing & LISTING_SYMBOLS)
|
if (listing & LISTING_SYMBOLS)
|
{
|
{
|
extern struct list_info_struct *listing_tail;
|
extern struct list_info_struct *listing_tail;
|
fragS *dummy_frag = (fragS *) xcalloc (1, sizeof (fragS));
|
fragS *dummy_frag = (fragS *) xcalloc (1, sizeof (fragS));
|
dummy_frag->line = listing_tail;
|
dummy_frag->line = listing_tail;
|
dummy_frag->fr_symbol = symbolP;
|
dummy_frag->fr_symbol = symbolP;
|
symbol_set_frag (symbolP, dummy_frag);
|
symbol_set_frag (symbolP, dummy_frag);
|
}
|
}
|
#endif
|
#endif
|
#ifdef OBJ_COFF
|
#ifdef OBJ_COFF
|
/* "set" symbols are local unless otherwise specified. */
|
/* "set" symbols are local unless otherwise specified. */
|
SF_SET_LOCAL (symbolP);
|
SF_SET_LOCAL (symbolP);
|
#endif
|
#endif
|
}
|
}
|
|
|
if (S_IS_DEFINED (symbolP) || symbol_equated_p (symbolP))
|
if (S_IS_DEFINED (symbolP) || symbol_equated_p (symbolP))
|
{
|
{
|
/* Permit register names to be redefined. */
|
|
if ((mode != 0 || !S_IS_VOLATILE (symbolP))
|
if ((mode != 0 || !S_IS_VOLATILE (symbolP))
|
&& S_GET_SEGMENT (symbolP) != reg_section)
|
&& !S_CAN_BE_REDEFINED (symbolP))
|
{
|
{
|
as_bad (_("symbol `%s' is already defined"), name);
|
as_bad (_("symbol `%s' is already defined"), name);
|
symbolP = symbol_clone (symbolP, 0);
|
symbolP = symbol_clone (symbolP, 0);
|
}
|
}
|
/* If the symbol is volatile, copy the symbol and replace the
|
/* If the symbol is volatile, copy the symbol and replace the
|
original with the copy, so that previous uses of the symbol will
|
original with the copy, so that previous uses of the symbol will
|
retain the value of the symbol at the point of use. */
|
retain the value of the symbol at the point of use. */
|
else if (S_IS_VOLATILE (symbolP))
|
else if (S_IS_VOLATILE (symbolP))
|
symbolP = symbol_clone (symbolP, 1);
|
symbolP = symbol_clone (symbolP, 1);
|
}
|
}
|
|
|
if (mode == 0)
|
if (mode == 0)
|
S_SET_VOLATILE (symbolP);
|
S_SET_VOLATILE (symbolP);
|
else if (mode < 0)
|
else if (mode < 0)
|
S_SET_FORWARD_REF (symbolP);
|
S_SET_FORWARD_REF (symbolP);
|
|
|
pseudo_set (symbolP);
|
pseudo_set (symbolP);
|
}
|
}
|
|
|
/* Handle the .equ, .equiv, .eqv, and .set directives. If EQUIV is 1,
|
/* Handle the .equ, .equiv, .eqv, and .set directives. If EQUIV is 1,
|
then this is .equiv, and it is an error if the symbol is already
|
then this is .equiv, and it is an error if the symbol is already
|
defined. If EQUIV is -1, the symbol additionally is a forward
|
defined. If EQUIV is -1, the symbol additionally is a forward
|
reference. */
|
reference. */
|
|
|
void
|
void
|
s_set (int equiv)
|
s_set (int equiv)
|
{
|
{
|
char *name;
|
char *name;
|
char delim;
|
char delim;
|
char *end_name;
|
char *end_name;
|
|
|
/* Especial apologies for the random logic:
|
/* Especial apologies for the random logic:
|
this just grew, and could be parsed much more simply!
|
this just grew, and could be parsed much more simply!
|
Dean in haste. */
|
Dean in haste. */
|
name = input_line_pointer;
|
name = input_line_pointer;
|
delim = get_symbol_end ();
|
delim = get_symbol_end ();
|
end_name = input_line_pointer;
|
end_name = input_line_pointer;
|
*end_name = delim;
|
*end_name = delim;
|
|
|
if (name == end_name)
|
if (name == end_name)
|
{
|
{
|
as_bad (_("expected symbol name"));
|
as_bad (_("expected symbol name"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
{
|
{
|
*end_name = 0;
|
*end_name = 0;
|
as_bad (_("expected comma after \"%s\""), name);
|
as_bad (_("expected comma after \"%s\""), name);
|
*end_name = delim;
|
*end_name = delim;
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
input_line_pointer++;
|
input_line_pointer++;
|
*end_name = 0;
|
*end_name = 0;
|
|
|
assign_symbol (name, equiv);
|
assign_symbol (name, equiv);
|
*end_name = delim;
|
*end_name = delim;
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
void
|
void
|
s_space (int mult)
|
s_space (int mult)
|
{
|
{
|
expressionS exp;
|
expressionS exp;
|
expressionS val;
|
expressionS val;
|
char *p = 0;
|
char *p = 0;
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
int bytes;
|
int bytes;
|
|
|
#ifdef md_flush_pending_output
|
#ifdef md_flush_pending_output
|
md_flush_pending_output ();
|
md_flush_pending_output ();
|
#endif
|
#endif
|
|
|
#ifdef md_cons_align
|
#ifdef md_cons_align
|
md_cons_align (1);
|
md_cons_align (1);
|
#endif
|
#endif
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
/* In m68k MRI mode, we need to align to a word boundary, unless
|
/* In m68k MRI mode, we need to align to a word boundary, unless
|
this is ds.b. */
|
this is ds.b. */
|
if (flag_m68k_mri && mult > 1)
|
if (flag_m68k_mri && mult > 1)
|
{
|
{
|
if (now_seg == absolute_section)
|
if (now_seg == absolute_section)
|
{
|
{
|
abs_section_offset += abs_section_offset & 1;
|
abs_section_offset += abs_section_offset & 1;
|
if (line_label != NULL)
|
if (line_label != NULL)
|
S_SET_VALUE (line_label, abs_section_offset);
|
S_SET_VALUE (line_label, abs_section_offset);
|
}
|
}
|
else if (mri_common_symbol != NULL)
|
else if (mri_common_symbol != NULL)
|
{
|
{
|
valueT mri_val;
|
valueT mri_val;
|
|
|
mri_val = S_GET_VALUE (mri_common_symbol);
|
mri_val = S_GET_VALUE (mri_common_symbol);
|
if ((mri_val & 1) != 0)
|
if ((mri_val & 1) != 0)
|
{
|
{
|
S_SET_VALUE (mri_common_symbol, mri_val + 1);
|
S_SET_VALUE (mri_common_symbol, mri_val + 1);
|
if (line_label != NULL)
|
if (line_label != NULL)
|
{
|
{
|
expressionS *symexp;
|
expressionS *symexp;
|
|
|
symexp = symbol_get_value_expression (line_label);
|
symexp = symbol_get_value_expression (line_label);
|
know (symexp->X_op == O_symbol);
|
know (symexp->X_op == O_symbol);
|
know (symexp->X_add_symbol == mri_common_symbol);
|
know (symexp->X_add_symbol == mri_common_symbol);
|
symexp->X_add_number += 1;
|
symexp->X_add_number += 1;
|
}
|
}
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
do_align (1, (char *) NULL, 0, 0);
|
do_align (1, (char *) NULL, 0, 0);
|
if (line_label != NULL)
|
if (line_label != NULL)
|
{
|
{
|
symbol_set_frag (line_label, frag_now);
|
symbol_set_frag (line_label, frag_now);
|
S_SET_VALUE (line_label, frag_now_fix ());
|
S_SET_VALUE (line_label, frag_now_fix ());
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
bytes = mult;
|
bytes = mult;
|
|
|
expression (&exp);
|
expression (&exp);
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
{
|
{
|
++input_line_pointer;
|
++input_line_pointer;
|
expression (&val);
|
expression (&val);
|
}
|
}
|
else
|
else
|
{
|
{
|
val.X_op = O_constant;
|
val.X_op = O_constant;
|
val.X_add_number = 0;
|
val.X_add_number = 0;
|
}
|
}
|
|
|
if (val.X_op != O_constant
|
if (val.X_op != O_constant
|
|| val.X_add_number < - 0x80
|
|| val.X_add_number < - 0x80
|
|| val.X_add_number > 0xff
|
|| val.X_add_number > 0xff
|
|| (mult != 0 && mult != 1 && val.X_add_number != 0))
|
|| (mult != 0 && mult != 1 && val.X_add_number != 0))
|
{
|
{
|
resolve_expression (&exp);
|
resolve_expression (&exp);
|
if (exp.X_op != O_constant)
|
if (exp.X_op != O_constant)
|
as_bad (_("unsupported variable size or fill value"));
|
as_bad (_("unsupported variable size or fill value"));
|
else
|
else
|
{
|
{
|
offsetT i;
|
offsetT i;
|
|
|
if (mult == 0)
|
if (mult == 0)
|
mult = 1;
|
mult = 1;
|
bytes = mult * exp.X_add_number;
|
bytes = mult * exp.X_add_number;
|
for (i = 0; i < exp.X_add_number; i++)
|
for (i = 0; i < exp.X_add_number; i++)
|
emit_expr (&val, mult);
|
emit_expr (&val, mult);
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
if (now_seg == absolute_section || mri_common_symbol != NULL)
|
if (now_seg == absolute_section || mri_common_symbol != NULL)
|
resolve_expression (&exp);
|
resolve_expression (&exp);
|
|
|
if (exp.X_op == O_constant)
|
if (exp.X_op == O_constant)
|
{
|
{
|
offsetT repeat;
|
offsetT repeat;
|
|
|
repeat = exp.X_add_number;
|
repeat = exp.X_add_number;
|
if (mult)
|
if (mult)
|
repeat *= mult;
|
repeat *= mult;
|
bytes = repeat;
|
bytes = repeat;
|
if (repeat <= 0)
|
if (repeat <= 0)
|
{
|
{
|
if (!flag_mri)
|
if (!flag_mri)
|
as_warn (_(".space repeat count is zero, ignored"));
|
as_warn (_(".space repeat count is zero, ignored"));
|
else if (repeat < 0)
|
else if (repeat < 0)
|
as_warn (_(".space repeat count is negative, ignored"));
|
as_warn (_(".space repeat count is negative, ignored"));
|
goto getout;
|
goto getout;
|
}
|
}
|
|
|
/* If we are in the absolute section, just bump the offset. */
|
/* If we are in the absolute section, just bump the offset. */
|
if (now_seg == absolute_section)
|
if (now_seg == absolute_section)
|
{
|
{
|
abs_section_offset += repeat;
|
abs_section_offset += repeat;
|
goto getout;
|
goto getout;
|
}
|
}
|
|
|
/* If we are secretly in an MRI common section, then
|
/* If we are secretly in an MRI common section, then
|
creating space just increases the size of the common
|
creating space just increases the size of the common
|
symbol. */
|
symbol. */
|
if (mri_common_symbol != NULL)
|
if (mri_common_symbol != NULL)
|
{
|
{
|
S_SET_VALUE (mri_common_symbol,
|
S_SET_VALUE (mri_common_symbol,
|
S_GET_VALUE (mri_common_symbol) + repeat);
|
S_GET_VALUE (mri_common_symbol) + repeat);
|
goto getout;
|
goto getout;
|
}
|
}
|
|
|
if (!need_pass_2)
|
if (!need_pass_2)
|
p = frag_var (rs_fill, 1, 1, (relax_substateT) 0, (symbolS *) 0,
|
p = frag_var (rs_fill, 1, 1, (relax_substateT) 0, (symbolS *) 0,
|
(offsetT) repeat, (char *) 0);
|
(offsetT) repeat, (char *) 0);
|
}
|
}
|
else
|
else
|
{
|
{
|
if (now_seg == absolute_section)
|
if (now_seg == absolute_section)
|
{
|
{
|
as_bad (_("space allocation too complex in absolute section"));
|
as_bad (_("space allocation too complex in absolute section"));
|
subseg_set (text_section, 0);
|
subseg_set (text_section, 0);
|
}
|
}
|
|
|
if (mri_common_symbol != NULL)
|
if (mri_common_symbol != NULL)
|
{
|
{
|
as_bad (_("space allocation too complex in common section"));
|
as_bad (_("space allocation too complex in common section"));
|
mri_common_symbol = NULL;
|
mri_common_symbol = NULL;
|
}
|
}
|
|
|
if (!need_pass_2)
|
if (!need_pass_2)
|
p = frag_var (rs_space, 1, 1, (relax_substateT) 0,
|
p = frag_var (rs_space, 1, 1, (relax_substateT) 0,
|
make_expr_symbol (&exp), (offsetT) 0, (char *) 0);
|
make_expr_symbol (&exp), (offsetT) 0, (char *) 0);
|
}
|
}
|
|
|
if (p)
|
if (p)
|
*p = val.X_add_number;
|
*p = val.X_add_number;
|
}
|
}
|
|
|
getout:
|
getout:
|
|
|
/* In MRI mode, after an odd number of bytes, we must align to an
|
/* 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
|
even word boundary, unless the next instruction is a dc.b, ds.b
|
or dcb.b. */
|
or dcb.b. */
|
if (flag_mri && (bytes & 1) != 0)
|
if (flag_mri && (bytes & 1) != 0)
|
mri_pending_align = 1;
|
mri_pending_align = 1;
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
|
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
}
|
}
|
|
|
/* This is like s_space, but the value is a floating point number with
|
/* 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
|
the given precision. This is for the MRI dcb.s pseudo-op and
|
friends. */
|
friends. */
|
|
|
void
|
void
|
s_float_space (int float_type)
|
s_float_space (int float_type)
|
{
|
{
|
offsetT count;
|
offsetT count;
|
int flen;
|
int flen;
|
char temp[MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT];
|
char temp[MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT];
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
|
|
#ifdef md_cons_align
|
#ifdef md_cons_align
|
md_cons_align (1);
|
md_cons_align (1);
|
#endif
|
#endif
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
count = get_absolute_expression ();
|
count = get_absolute_expression ();
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
{
|
{
|
as_bad (_("missing value"));
|
as_bad (_("missing value"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
return;
|
return;
|
}
|
}
|
|
|
++input_line_pointer;
|
++input_line_pointer;
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
/* Skip any 0{letter} that may be present. Don't even check if the
|
/* Skip any 0{letter} that may be present. Don't even check if the
|
* letter is legal. */
|
* letter is legal. */
|
if (input_line_pointer[0] == '0'
|
if (input_line_pointer[0] == '0'
|
&& ISALPHA (input_line_pointer[1]))
|
&& ISALPHA (input_line_pointer[1]))
|
input_line_pointer += 2;
|
input_line_pointer += 2;
|
|
|
/* Accept :xxxx, where the x's are hex digits, for a floating point
|
/* Accept :xxxx, where the x's are hex digits, for a floating point
|
with the exact digits specified. */
|
with the exact digits specified. */
|
if (input_line_pointer[0] == ':')
|
if (input_line_pointer[0] == ':')
|
{
|
{
|
flen = hex_float (float_type, temp);
|
flen = hex_float (float_type, temp);
|
if (flen < 0)
|
if (flen < 0)
|
{
|
{
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
return;
|
return;
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
char *err;
|
char *err;
|
|
|
err = md_atof (float_type, temp, &flen);
|
err = md_atof (float_type, temp, &flen);
|
know (flen <= MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT);
|
know (flen <= MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT);
|
know (err != NULL || flen > 0);
|
know (err != NULL || flen > 0);
|
if (err)
|
if (err)
|
{
|
{
|
as_bad (_("bad floating literal: %s"), err);
|
as_bad (_("bad floating literal: %s"), err);
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
return;
|
return;
|
}
|
}
|
}
|
}
|
|
|
while (--count >= 0)
|
while (--count >= 0)
|
{
|
{
|
char *p;
|
char *p;
|
|
|
p = frag_more (flen);
|
p = frag_more (flen);
|
memcpy (p, temp, (unsigned int) flen);
|
memcpy (p, temp, (unsigned int) flen);
|
}
|
}
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
|
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
}
|
}
|
|
|
/* Handle the .struct pseudo-op, as found in MIPS assemblers. */
|
/* Handle the .struct pseudo-op, as found in MIPS assemblers. */
|
|
|
void
|
void
|
s_struct (int ignore ATTRIBUTE_UNUSED)
|
s_struct (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
abs_section_offset = get_absolute_expression ();
|
abs_section_offset = get_absolute_expression ();
|
#if defined (OBJ_ELF) || defined (OBJ_MAYBE_ELF)
|
#if defined (OBJ_ELF) || defined (OBJ_MAYBE_ELF)
|
/* The ELF backend needs to know that we are changing sections, so
|
/* The ELF backend needs to know that we are changing sections, so
|
that .previous works correctly. */
|
that .previous works correctly. */
|
if (IS_ELF)
|
if (IS_ELF)
|
obj_elf_section_change_hook ();
|
obj_elf_section_change_hook ();
|
#endif
|
#endif
|
subseg_set (absolute_section, 0);
|
subseg_set (absolute_section, 0);
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
}
|
}
|
|
|
void
|
void
|
s_text (int ignore ATTRIBUTE_UNUSED)
|
s_text (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
int temp;
|
int temp;
|
|
|
temp = get_absolute_expression ();
|
temp = get_absolute_expression ();
|
subseg_set (text_section, (subsegT) temp);
|
subseg_set (text_section, (subsegT) temp);
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* .weakref x, y sets x as an alias to y that, as long as y is not
|
/* .weakref x, y sets x as an alias to y that, as long as y is not
|
referenced directly, will cause y to become a weak symbol. */
|
referenced directly, will cause y to become a weak symbol. */
|
void
|
void
|
s_weakref (int ignore ATTRIBUTE_UNUSED)
|
s_weakref (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
char *name;
|
char *name;
|
char delim;
|
char delim;
|
char *end_name;
|
char *end_name;
|
symbolS *symbolP;
|
symbolS *symbolP;
|
symbolS *symbolP2;
|
symbolS *symbolP2;
|
expressionS exp;
|
expressionS exp;
|
|
|
name = input_line_pointer;
|
name = input_line_pointer;
|
delim = get_symbol_end ();
|
delim = get_symbol_end ();
|
end_name = input_line_pointer;
|
end_name = input_line_pointer;
|
|
|
if (name == end_name)
|
if (name == end_name)
|
{
|
{
|
as_bad (_("expected symbol name"));
|
as_bad (_("expected symbol name"));
|
*end_name = delim;
|
*end_name = delim;
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
symbolP = symbol_find_or_make (name);
|
symbolP = symbol_find_or_make (name);
|
|
|
if (S_IS_DEFINED (symbolP) || symbol_equated_p (symbolP))
|
if (S_IS_DEFINED (symbolP) || symbol_equated_p (symbolP))
|
{
|
{
|
if (!S_IS_VOLATILE (symbolP))
|
if (!S_IS_VOLATILE (symbolP))
|
{
|
{
|
as_bad (_("symbol `%s' is already defined"), name);
|
as_bad (_("symbol `%s' is already defined"), name);
|
*end_name = delim;
|
*end_name = delim;
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
symbolP = symbol_clone (symbolP, 1);
|
symbolP = symbol_clone (symbolP, 1);
|
S_CLEAR_VOLATILE (symbolP);
|
S_CLEAR_VOLATILE (symbolP);
|
}
|
}
|
|
|
*end_name = delim;
|
*end_name = delim;
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
{
|
{
|
*end_name = 0;
|
*end_name = 0;
|
as_bad (_("expected comma after \"%s\""), name);
|
as_bad (_("expected comma after \"%s\""), name);
|
*end_name = delim;
|
*end_name = delim;
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
input_line_pointer++;
|
input_line_pointer++;
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
name = input_line_pointer;
|
name = input_line_pointer;
|
delim = get_symbol_end ();
|
delim = get_symbol_end ();
|
end_name = input_line_pointer;
|
end_name = input_line_pointer;
|
|
|
if (name == end_name)
|
if (name == end_name)
|
{
|
{
|
as_bad (_("expected symbol name"));
|
as_bad (_("expected symbol name"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
if ((symbolP2 = symbol_find_noref (name, 1)) == NULL
|
if ((symbolP2 = symbol_find_noref (name, 1)) == NULL
|
&& (symbolP2 = md_undefined_symbol (name)) == NULL)
|
&& (symbolP2 = md_undefined_symbol (name)) == NULL)
|
{
|
{
|
symbolP2 = symbol_find_or_make (name);
|
symbolP2 = symbol_find_or_make (name);
|
S_SET_WEAKREFD (symbolP2);
|
S_SET_WEAKREFD (symbolP2);
|
}
|
}
|
else
|
else
|
{
|
{
|
symbolS *symp = symbolP2;
|
symbolS *symp = symbolP2;
|
|
|
while (S_IS_WEAKREFR (symp) && symp != symbolP)
|
while (S_IS_WEAKREFR (symp) && symp != symbolP)
|
{
|
{
|
expressionS *expP = symbol_get_value_expression (symp);
|
expressionS *expP = symbol_get_value_expression (symp);
|
|
|
gas_assert (expP->X_op == O_symbol
|
gas_assert (expP->X_op == O_symbol
|
&& expP->X_add_number == 0);
|
&& expP->X_add_number == 0);
|
symp = expP->X_add_symbol;
|
symp = expP->X_add_symbol;
|
}
|
}
|
if (symp == symbolP)
|
if (symp == symbolP)
|
{
|
{
|
char *loop;
|
char *loop;
|
|
|
loop = concat (S_GET_NAME (symbolP),
|
loop = concat (S_GET_NAME (symbolP),
|
" => ", S_GET_NAME (symbolP2), (const char *) NULL);
|
" => ", S_GET_NAME (symbolP2), (const char *) NULL);
|
|
|
symp = symbolP2;
|
symp = symbolP2;
|
while (symp != symbolP)
|
while (symp != symbolP)
|
{
|
{
|
char *old_loop = loop;
|
char *old_loop = loop;
|
symp = symbol_get_value_expression (symp)->X_add_symbol;
|
symp = symbol_get_value_expression (symp)->X_add_symbol;
|
loop = concat (loop, " => ", S_GET_NAME (symp),
|
loop = concat (loop, " => ", S_GET_NAME (symp),
|
(const char *) NULL);
|
(const char *) NULL);
|
free (old_loop);
|
free (old_loop);
|
}
|
}
|
|
|
as_bad (_("%s: would close weakref loop: %s"),
|
as_bad (_("%s: would close weakref loop: %s"),
|
S_GET_NAME (symbolP), loop);
|
S_GET_NAME (symbolP), loop);
|
|
|
free (loop);
|
free (loop);
|
|
|
*end_name = delim;
|
*end_name = delim;
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
/* Short-circuiting instead of just checking here might speed
|
/* Short-circuiting instead of just checking here might speed
|
things up a tiny little bit, but loop error messages would
|
things up a tiny little bit, but loop error messages would
|
miss intermediate links. */
|
miss intermediate links. */
|
/* symbolP2 = symp; */
|
/* symbolP2 = symp; */
|
}
|
}
|
|
|
*end_name = delim;
|
*end_name = delim;
|
|
|
memset (&exp, 0, sizeof (exp));
|
memset (&exp, 0, sizeof (exp));
|
exp.X_op = O_symbol;
|
exp.X_op = O_symbol;
|
exp.X_add_symbol = symbolP2;
|
exp.X_add_symbol = symbolP2;
|
|
|
S_SET_SEGMENT (symbolP, undefined_section);
|
S_SET_SEGMENT (symbolP, undefined_section);
|
symbol_set_value_expression (symbolP, &exp);
|
symbol_set_value_expression (symbolP, &exp);
|
symbol_set_frag (symbolP, &zero_address_frag);
|
symbol_set_frag (symbolP, &zero_address_frag);
|
S_SET_WEAKREFR (symbolP);
|
S_SET_WEAKREFR (symbolP);
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
|
|
/* Verify that we are at the end of a line. If not, issue an error and
|
/* Verify that we are at the end of a line. If not, issue an error and
|
skip to EOL. */
|
skip to EOL. */
|
|
|
void
|
void
|
demand_empty_rest_of_line (void)
|
demand_empty_rest_of_line (void)
|
{
|
{
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (is_end_of_line[(unsigned char) *input_line_pointer])
|
if (is_end_of_line[(unsigned char) *input_line_pointer])
|
input_line_pointer++;
|
input_line_pointer++;
|
else
|
else
|
{
|
{
|
if (ISPRINT (*input_line_pointer))
|
if (ISPRINT (*input_line_pointer))
|
as_bad (_("junk at end of line, first unrecognized character is `%c'"),
|
as_bad (_("junk at end of line, first unrecognized character is `%c'"),
|
*input_line_pointer);
|
*input_line_pointer);
|
else
|
else
|
as_bad (_("junk at end of line, first unrecognized character valued 0x%x"),
|
as_bad (_("junk at end of line, first unrecognized character valued 0x%x"),
|
*input_line_pointer);
|
*input_line_pointer);
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
}
|
}
|
|
|
/* Return pointing just after end-of-line. */
|
/* Return pointing just after end-of-line. */
|
know (is_end_of_line[(unsigned char) input_line_pointer[-1]]);
|
know (is_end_of_line[(unsigned char) input_line_pointer[-1]]);
|
}
|
}
|
|
|
/* Silently advance to the end of line. Use this after already having
|
/* Silently advance to the end of line. Use this after already having
|
issued an error about something bad. */
|
issued an error about something bad. */
|
|
|
void
|
void
|
ignore_rest_of_line (void)
|
ignore_rest_of_line (void)
|
{
|
{
|
while (input_line_pointer < buffer_limit
|
while (input_line_pointer < buffer_limit
|
&& !is_end_of_line[(unsigned char) *input_line_pointer])
|
&& !is_end_of_line[(unsigned char) *input_line_pointer])
|
input_line_pointer++;
|
input_line_pointer++;
|
|
|
input_line_pointer++;
|
input_line_pointer++;
|
|
|
/* Return pointing just after end-of-line. */
|
/* Return pointing just after end-of-line. */
|
know (is_end_of_line[(unsigned char) input_line_pointer[-1]]);
|
know (is_end_of_line[(unsigned char) input_line_pointer[-1]]);
|
}
|
}
|
|
|
/* Sets frag for given symbol to zero_address_frag, except when the
|
/* Sets frag for given symbol to zero_address_frag, except when the
|
symbol frag is already set to a dummy listing frag. */
|
symbol frag is already set to a dummy listing frag. */
|
|
|
static void
|
static void
|
set_zero_frag (symbolS *symbolP)
|
set_zero_frag (symbolS *symbolP)
|
{
|
{
|
if (symbol_get_frag (symbolP)->fr_type != rs_dummy)
|
if (symbol_get_frag (symbolP)->fr_type != rs_dummy)
|
symbol_set_frag (symbolP, &zero_address_frag);
|
symbol_set_frag (symbolP, &zero_address_frag);
|
}
|
}
|
|
|
/* In: Pointer to a symbol.
|
/* In: Pointer to a symbol.
|
Input_line_pointer->expression.
|
Input_line_pointer->expression.
|
|
|
Out: Input_line_pointer->just after any whitespace after expression.
|
Out: Input_line_pointer->just after any whitespace after expression.
|
Tried to set symbol to value of expression.
|
Tried to set symbol to value of expression.
|
Will change symbols type, value, and frag; */
|
Will change symbols type, value, and frag; */
|
|
|
void
|
void
|
pseudo_set (symbolS *symbolP)
|
pseudo_set (symbolS *symbolP)
|
{
|
{
|
expressionS exp;
|
expressionS exp;
|
segT seg;
|
segT seg;
|
|
|
know (symbolP); /* NULL pointer is logic error. */
|
know (symbolP); /* NULL pointer is logic error. */
|
|
|
if (!S_IS_FORWARD_REF (symbolP))
|
if (!S_IS_FORWARD_REF (symbolP))
|
(void) expression (&exp);
|
(void) expression (&exp);
|
else
|
else
|
(void) deferred_expression (&exp);
|
(void) deferred_expression (&exp);
|
|
|
if (exp.X_op == O_illegal)
|
if (exp.X_op == O_illegal)
|
as_bad (_("illegal expression"));
|
as_bad (_("illegal expression"));
|
else if (exp.X_op == O_absent)
|
else if (exp.X_op == O_absent)
|
as_bad (_("missing expression"));
|
as_bad (_("missing expression"));
|
else if (exp.X_op == O_big)
|
else if (exp.X_op == O_big)
|
{
|
{
|
if (exp.X_add_number > 0)
|
if (exp.X_add_number > 0)
|
as_bad (_("bignum invalid"));
|
as_bad (_("bignum invalid"));
|
else
|
else
|
as_bad (_("floating point number invalid"));
|
as_bad (_("floating point number invalid"));
|
}
|
}
|
else if (exp.X_op == O_subtract
|
else if (exp.X_op == O_subtract
|
&& !S_IS_FORWARD_REF (symbolP)
|
&& !S_IS_FORWARD_REF (symbolP)
|
&& SEG_NORMAL (S_GET_SEGMENT (exp.X_add_symbol))
|
&& SEG_NORMAL (S_GET_SEGMENT (exp.X_add_symbol))
|
&& (symbol_get_frag (exp.X_add_symbol)
|
&& (symbol_get_frag (exp.X_add_symbol)
|
== symbol_get_frag (exp.X_op_symbol)))
|
== symbol_get_frag (exp.X_op_symbol)))
|
{
|
{
|
exp.X_op = O_constant;
|
exp.X_op = O_constant;
|
exp.X_add_number = (S_GET_VALUE (exp.X_add_symbol)
|
exp.X_add_number = (S_GET_VALUE (exp.X_add_symbol)
|
- S_GET_VALUE (exp.X_op_symbol));
|
- S_GET_VALUE (exp.X_op_symbol));
|
}
|
}
|
|
|
if (symbol_section_p (symbolP))
|
if (symbol_section_p (symbolP))
|
{
|
{
|
as_bad ("attempt to set value of section symbol");
|
as_bad ("attempt to set value of section symbol");
|
return;
|
return;
|
}
|
}
|
|
|
switch (exp.X_op)
|
switch (exp.X_op)
|
{
|
{
|
case O_illegal:
|
case O_illegal:
|
case O_absent:
|
case O_absent:
|
case O_big:
|
case O_big:
|
exp.X_add_number = 0;
|
exp.X_add_number = 0;
|
/* Fall through. */
|
/* Fall through. */
|
case O_constant:
|
case O_constant:
|
S_SET_SEGMENT (symbolP, absolute_section);
|
S_SET_SEGMENT (symbolP, absolute_section);
|
S_SET_VALUE (symbolP, (valueT) exp.X_add_number);
|
S_SET_VALUE (symbolP, (valueT) exp.X_add_number);
|
set_zero_frag (symbolP);
|
set_zero_frag (symbolP);
|
break;
|
break;
|
|
|
case O_register:
|
case O_register:
|
#ifndef TC_GLOBAL_REGISTER_SYMBOL_OK
|
#ifndef TC_GLOBAL_REGISTER_SYMBOL_OK
|
if (S_IS_EXTERNAL (symbolP))
|
if (S_IS_EXTERNAL (symbolP))
|
{
|
{
|
as_bad ("can't equate global symbol `%s' with register name",
|
as_bad ("can't equate global symbol `%s' with register name",
|
S_GET_NAME (symbolP));
|
S_GET_NAME (symbolP));
|
return;
|
return;
|
}
|
}
|
#endif
|
#endif
|
S_SET_SEGMENT (symbolP, reg_section);
|
S_SET_SEGMENT (symbolP, reg_section);
|
S_SET_VALUE (symbolP, (valueT) exp.X_add_number);
|
S_SET_VALUE (symbolP, (valueT) exp.X_add_number);
|
set_zero_frag (symbolP);
|
set_zero_frag (symbolP);
|
symbol_get_value_expression (symbolP)->X_op = O_register;
|
symbol_get_value_expression (symbolP)->X_op = O_register;
|
break;
|
break;
|
|
|
case O_symbol:
|
case O_symbol:
|
seg = S_GET_SEGMENT (exp.X_add_symbol);
|
seg = S_GET_SEGMENT (exp.X_add_symbol);
|
/* For x=undef+const, create an expression 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=x+const, just update x except when x is an undefined symbol
|
For x=defined+const, evaluate x. */
|
For x=defined+const, evaluate x. */
|
if (symbolP == exp.X_add_symbol
|
if (symbolP == exp.X_add_symbol
|
&& (seg != undefined_section
|
&& (seg != undefined_section
|
|| !symbol_constant_p (symbolP)))
|
|| !symbol_constant_p (symbolP)))
|
{
|
{
|
*symbol_X_add_number (symbolP) += exp.X_add_number;
|
*symbol_X_add_number (symbolP) += exp.X_add_number;
|
break;
|
break;
|
}
|
}
|
else if (!S_IS_FORWARD_REF (symbolP) && seg != undefined_section)
|
else if (!S_IS_FORWARD_REF (symbolP) && seg != undefined_section)
|
{
|
{
|
symbolS *s = exp.X_add_symbol;
|
symbolS *s = exp.X_add_symbol;
|
|
|
if (S_IS_COMMON (s))
|
if (S_IS_COMMON (s))
|
as_bad (_("`%s' can't be equated to common symbol '%s'"),
|
as_bad (_("`%s' can't be equated to common symbol '%s'"),
|
S_GET_NAME (symbolP), S_GET_NAME (s));
|
S_GET_NAME (symbolP), S_GET_NAME (s));
|
|
|
S_SET_SEGMENT (symbolP, seg);
|
S_SET_SEGMENT (symbolP, seg);
|
S_SET_VALUE (symbolP, exp.X_add_number + S_GET_VALUE (s));
|
S_SET_VALUE (symbolP, exp.X_add_number + S_GET_VALUE (s));
|
symbol_set_frag (symbolP, symbol_get_frag (s));
|
symbol_set_frag (symbolP, symbol_get_frag (s));
|
copy_symbol_attributes (symbolP, s);
|
copy_symbol_attributes (symbolP, s);
|
break;
|
break;
|
}
|
}
|
S_SET_SEGMENT (symbolP, undefined_section);
|
S_SET_SEGMENT (symbolP, undefined_section);
|
symbol_set_value_expression (symbolP, &exp);
|
symbol_set_value_expression (symbolP, &exp);
|
copy_symbol_attributes (symbolP, exp.X_add_symbol);
|
copy_symbol_attributes (symbolP, exp.X_add_symbol);
|
set_zero_frag (symbolP);
|
set_zero_frag (symbolP);
|
break;
|
break;
|
|
|
default:
|
default:
|
/* The value is some complex expression. */
|
/* The value is some complex expression. */
|
S_SET_SEGMENT (symbolP, expr_section);
|
S_SET_SEGMENT (symbolP, expr_section);
|
symbol_set_value_expression (symbolP, &exp);
|
symbol_set_value_expression (symbolP, &exp);
|
set_zero_frag (symbolP);
|
set_zero_frag (symbolP);
|
break;
|
break;
|
}
|
}
|
}
|
}
|
|
|
/* cons()
|
/* cons()
|
|
|
CONStruct more frag of .bytes, or .words etc.
|
CONStruct more frag of .bytes, or .words etc.
|
Should need_pass_2 be 1 then emit no frag(s).
|
Should need_pass_2 be 1 then emit no frag(s).
|
This understands EXPRESSIONS.
|
This understands EXPRESSIONS.
|
|
|
Bug (?)
|
Bug (?)
|
|
|
This has a split personality. We use expression() to read the
|
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.
|
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
|
But we can't detect if expression() discarded significant digits
|
in the case of a long. Not worth the crocks required to fix it. */
|
in the case of a long. Not worth the crocks required to fix it. */
|
|
|
/* Select a parser for cons expressions. */
|
/* Select a parser for cons expressions. */
|
|
|
/* Some targets need to parse the expression in various fancy ways.
|
/* Some targets need to parse the expression in various fancy ways.
|
You can define TC_PARSE_CONS_EXPRESSION to do whatever you like
|
You can define TC_PARSE_CONS_EXPRESSION to do whatever you like
|
(for example, the HPPA does this). Otherwise, you can define
|
(for example, the HPPA does this). Otherwise, you can define
|
BITFIELD_CONS_EXPRESSIONS to permit bitfields to be specified, or
|
BITFIELD_CONS_EXPRESSIONS to permit bitfields to be specified, or
|
REPEAT_CONS_EXPRESSIONS to permit repeat counts. If none of these
|
REPEAT_CONS_EXPRESSIONS to permit repeat counts. If none of these
|
are defined, which is the normal case, then only simple expressions
|
are defined, which is the normal case, then only simple expressions
|
are permitted. */
|
are permitted. */
|
|
|
#ifdef TC_M68K
|
#ifdef TC_M68K
|
static void
|
static void
|
parse_mri_cons (expressionS *exp, unsigned int nbytes);
|
parse_mri_cons (expressionS *exp, unsigned int nbytes);
|
#endif
|
#endif
|
|
|
#ifndef TC_PARSE_CONS_EXPRESSION
|
#ifndef TC_PARSE_CONS_EXPRESSION
|
#ifdef BITFIELD_CONS_EXPRESSIONS
|
#ifdef BITFIELD_CONS_EXPRESSIONS
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) parse_bitfield_cons (EXP, NBYTES)
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) parse_bitfield_cons (EXP, NBYTES)
|
static void
|
static void
|
parse_bitfield_cons (expressionS *exp, unsigned int nbytes);
|
parse_bitfield_cons (expressionS *exp, unsigned int nbytes);
|
#endif
|
#endif
|
#ifdef REPEAT_CONS_EXPRESSIONS
|
#ifdef REPEAT_CONS_EXPRESSIONS
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) parse_repeat_cons (EXP, NBYTES)
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) parse_repeat_cons (EXP, NBYTES)
|
static void
|
static void
|
parse_repeat_cons (expressionS *exp, unsigned int nbytes);
|
parse_repeat_cons (expressionS *exp, unsigned int nbytes);
|
#endif
|
#endif
|
|
|
/* If we haven't gotten one yet, just call expression. */
|
/* If we haven't gotten one yet, just call expression. */
|
#ifndef TC_PARSE_CONS_EXPRESSION
|
#ifndef TC_PARSE_CONS_EXPRESSION
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) expression (EXP)
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) expression (EXP)
|
#endif
|
#endif
|
#endif
|
#endif
|
|
|
void
|
void
|
do_parse_cons_expression (expressionS *exp,
|
do_parse_cons_expression (expressionS *exp,
|
int nbytes ATTRIBUTE_UNUSED)
|
int nbytes ATTRIBUTE_UNUSED)
|
{
|
{
|
TC_PARSE_CONS_EXPRESSION (exp, nbytes);
|
TC_PARSE_CONS_EXPRESSION (exp, nbytes);
|
}
|
}
|
|
|
|
|
/* Worker to do .byte etc statements.
|
/* Worker to do .byte etc statements.
|
Clobbers input_line_pointer and checks end-of-line. */
|
Clobbers input_line_pointer and checks end-of-line. */
|
|
|
static void
|
static void
|
cons_worker (int nbytes, /* 1=.byte, 2=.word, 4=.long. */
|
cons_worker (int nbytes, /* 1=.byte, 2=.word, 4=.long. */
|
int rva)
|
int rva)
|
{
|
{
|
int c;
|
int c;
|
expressionS exp;
|
expressionS exp;
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
|
|
#ifdef md_flush_pending_output
|
#ifdef md_flush_pending_output
|
md_flush_pending_output ();
|
md_flush_pending_output ();
|
#endif
|
#endif
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
if (is_it_end_of_statement ())
|
if (is_it_end_of_statement ())
|
{
|
{
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
return;
|
return;
|
}
|
}
|
|
|
#ifdef TC_ADDRESS_BYTES
|
#ifdef TC_ADDRESS_BYTES
|
if (nbytes == 0)
|
if (nbytes == 0)
|
nbytes = TC_ADDRESS_BYTES ();
|
nbytes = TC_ADDRESS_BYTES ();
|
#endif
|
#endif
|
|
|
#ifdef md_cons_align
|
#ifdef md_cons_align
|
md_cons_align (nbytes);
|
md_cons_align (nbytes);
|
#endif
|
#endif
|
|
|
c = 0;
|
c = 0;
|
do
|
do
|
{
|
{
|
#ifdef TC_M68K
|
#ifdef TC_M68K
|
if (flag_m68k_mri)
|
if (flag_m68k_mri)
|
parse_mri_cons (&exp, (unsigned int) nbytes);
|
parse_mri_cons (&exp, (unsigned int) nbytes);
|
else
|
else
|
#endif
|
#endif
|
{
|
{
|
if (*input_line_pointer == '"')
|
if (*input_line_pointer == '"')
|
{
|
{
|
as_bad (_("unexpected `\"' in expression"));
|
as_bad (_("unexpected `\"' in expression"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
TC_PARSE_CONS_EXPRESSION (&exp, (unsigned int) nbytes);
|
TC_PARSE_CONS_EXPRESSION (&exp, (unsigned int) nbytes);
|
}
|
}
|
|
|
if (rva)
|
if (rva)
|
{
|
{
|
if (exp.X_op == O_symbol)
|
if (exp.X_op == O_symbol)
|
exp.X_op = O_symbol_rva;
|
exp.X_op = O_symbol_rva;
|
else
|
else
|
as_fatal (_("rva without symbol"));
|
as_fatal (_("rva without symbol"));
|
}
|
}
|
emit_expr (&exp, (unsigned int) nbytes);
|
emit_expr (&exp, (unsigned int) nbytes);
|
++c;
|
++c;
|
}
|
}
|
while (*input_line_pointer++ == ',');
|
while (*input_line_pointer++ == ',');
|
|
|
/* In MRI mode, after an odd number of bytes, we must align to an
|
/* 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
|
even word boundary, unless the next instruction is a dc.b, ds.b
|
or dcb.b. */
|
or dcb.b. */
|
if (flag_mri && nbytes == 1 && (c & 1) != 0)
|
if (flag_mri && nbytes == 1 && (c & 1) != 0)
|
mri_pending_align = 1;
|
mri_pending_align = 1;
|
|
|
input_line_pointer--; /* Put terminator back into stream. */
|
input_line_pointer--; /* Put terminator back into stream. */
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
|
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
}
|
}
|
|
|
void
|
void
|
cons (int size)
|
cons (int size)
|
{
|
{
|
cons_worker (size, 0);
|
cons_worker (size, 0);
|
}
|
}
|
|
|
void
|
void
|
s_rva (int size)
|
s_rva (int size)
|
{
|
{
|
cons_worker (size, 1);
|
cons_worker (size, 1);
|
}
|
}
|
|
|
/* .reloc offset, reloc_name, symbol+addend. */
|
/* .reloc offset, reloc_name, symbol+addend. */
|
|
|
void
|
void
|
s_reloc (int ignore ATTRIBUTE_UNUSED)
|
s_reloc (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
expressionS exp;
|
expressionS exp;
|
char *r_name;
|
char *r_name;
|
int c;
|
int c;
|
struct reloc_list *reloc;
|
struct reloc_list *reloc;
|
|
|
reloc = (struct reloc_list *) xmalloc (sizeof (*reloc));
|
reloc = (struct reloc_list *) xmalloc (sizeof (*reloc));
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
expression (&exp);
|
expression (&exp);
|
switch (exp.X_op)
|
switch (exp.X_op)
|
{
|
{
|
case O_illegal:
|
case O_illegal:
|
case O_absent:
|
case O_absent:
|
case O_big:
|
case O_big:
|
case O_register:
|
case O_register:
|
as_bad (_("missing or bad offset expression"));
|
as_bad (_("missing or bad offset expression"));
|
goto err_out;
|
goto err_out;
|
case O_constant:
|
case O_constant:
|
exp.X_add_symbol = section_symbol (now_seg);
|
exp.X_add_symbol = section_symbol (now_seg);
|
exp.X_op = O_symbol;
|
exp.X_op = O_symbol;
|
/* Fall thru */
|
/* Fall thru */
|
case O_symbol:
|
case O_symbol:
|
if (exp.X_add_number == 0)
|
if (exp.X_add_number == 0)
|
{
|
{
|
reloc->u.a.offset_sym = exp.X_add_symbol;
|
reloc->u.a.offset_sym = exp.X_add_symbol;
|
break;
|
break;
|
}
|
}
|
/* Fall thru */
|
/* Fall thru */
|
default:
|
default:
|
reloc->u.a.offset_sym = make_expr_symbol (&exp);
|
reloc->u.a.offset_sym = make_expr_symbol (&exp);
|
break;
|
break;
|
}
|
}
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
{
|
{
|
as_bad (_("missing reloc type"));
|
as_bad (_("missing reloc type"));
|
goto err_out;
|
goto err_out;
|
}
|
}
|
|
|
++input_line_pointer;
|
++input_line_pointer;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
r_name = input_line_pointer;
|
r_name = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
reloc->u.a.howto = bfd_reloc_name_lookup (stdoutput, r_name);
|
reloc->u.a.howto = bfd_reloc_name_lookup (stdoutput, r_name);
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
if (reloc->u.a.howto == NULL)
|
if (reloc->u.a.howto == NULL)
|
{
|
{
|
as_bad (_("unrecognized reloc type"));
|
as_bad (_("unrecognized reloc type"));
|
goto err_out;
|
goto err_out;
|
}
|
}
|
|
|
exp.X_op = O_absent;
|
exp.X_op = O_absent;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer == ',')
|
if (*input_line_pointer == ',')
|
{
|
{
|
++input_line_pointer;
|
++input_line_pointer;
|
expression (&exp);
|
expression (&exp);
|
}
|
}
|
switch (exp.X_op)
|
switch (exp.X_op)
|
{
|
{
|
case O_illegal:
|
case O_illegal:
|
case O_big:
|
case O_big:
|
case O_register:
|
case O_register:
|
as_bad (_("bad reloc expression"));
|
as_bad (_("bad reloc expression"));
|
err_out:
|
err_out:
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
free (reloc);
|
free (reloc);
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
return;
|
return;
|
case O_absent:
|
case O_absent:
|
reloc->u.a.sym = NULL;
|
reloc->u.a.sym = NULL;
|
reloc->u.a.addend = 0;
|
reloc->u.a.addend = 0;
|
break;
|
break;
|
case O_constant:
|
case O_constant:
|
reloc->u.a.sym = NULL;
|
reloc->u.a.sym = NULL;
|
reloc->u.a.addend = exp.X_add_number;
|
reloc->u.a.addend = exp.X_add_number;
|
break;
|
break;
|
case O_symbol:
|
case O_symbol:
|
reloc->u.a.sym = exp.X_add_symbol;
|
reloc->u.a.sym = exp.X_add_symbol;
|
reloc->u.a.addend = exp.X_add_number;
|
reloc->u.a.addend = exp.X_add_number;
|
break;
|
break;
|
default:
|
default:
|
reloc->u.a.sym = make_expr_symbol (&exp);
|
reloc->u.a.sym = make_expr_symbol (&exp);
|
reloc->u.a.addend = 0;
|
reloc->u.a.addend = 0;
|
break;
|
break;
|
}
|
}
|
|
|
as_where (&reloc->file, &reloc->line);
|
as_where (&reloc->file, &reloc->line);
|
reloc->next = reloc_list;
|
reloc->next = reloc_list;
|
reloc_list = reloc;
|
reloc_list = reloc;
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
}
|
}
|
|
|
/* Put the contents of expression EXP into the object file using
|
/* Put the contents of expression EXP into the object file using
|
NBYTES bytes. If need_pass_2 is 1, this does nothing. */
|
NBYTES bytes. If need_pass_2 is 1, this does nothing. */
|
|
|
void
|
void
|
emit_expr (expressionS *exp, unsigned int nbytes)
|
emit_expr (expressionS *exp, unsigned int nbytes)
|
{
|
{
|
operatorT op;
|
operatorT op;
|
char *p;
|
char *p;
|
valueT extra_digit = 0;
|
valueT extra_digit = 0;
|
|
|
/* Don't do anything if we are going to make another pass. */
|
/* Don't do anything if we are going to make another pass. */
|
if (need_pass_2)
|
if (need_pass_2)
|
return;
|
return;
|
|
|
/* Grow the current frag now so that dot_value does not get invalidated
|
/* Grow the current frag now so that dot_value does not get invalidated
|
if the frag were to fill up in the frag_more() call below. */
|
if the frag were to fill up in the frag_more() call below. */
|
frag_grow (nbytes);
|
frag_grow (nbytes);
|
dot_value = frag_now_fix ();
|
dot_value = frag_now_fix ();
|
|
|
#ifndef NO_LISTING
|
#ifndef NO_LISTING
|
#ifdef OBJ_ELF
|
#ifdef OBJ_ELF
|
/* When gcc emits DWARF 1 debugging pseudo-ops, a line number will
|
/* When gcc emits DWARF 1 debugging pseudo-ops, a line number will
|
appear as a four byte positive constant in the .line section,
|
appear as a four byte positive constant in the .line section,
|
followed by a 2 byte 0xffff. Look for that case here. */
|
followed by a 2 byte 0xffff. Look for that case here. */
|
{
|
{
|
static int dwarf_line = -1;
|
static int dwarf_line = -1;
|
|
|
if (strcmp (segment_name (now_seg), ".line") != 0)
|
if (strcmp (segment_name (now_seg), ".line") != 0)
|
dwarf_line = -1;
|
dwarf_line = -1;
|
else if (dwarf_line >= 0
|
else if (dwarf_line >= 0
|
&& nbytes == 2
|
&& nbytes == 2
|
&& exp->X_op == O_constant
|
&& exp->X_op == O_constant
|
&& (exp->X_add_number == -1 || exp->X_add_number == 0xffff))
|
&& (exp->X_add_number == -1 || exp->X_add_number == 0xffff))
|
listing_source_line ((unsigned int) dwarf_line);
|
listing_source_line ((unsigned int) dwarf_line);
|
else if (nbytes == 4
|
else if (nbytes == 4
|
&& exp->X_op == O_constant
|
&& exp->X_op == O_constant
|
&& exp->X_add_number >= 0)
|
&& exp->X_add_number >= 0)
|
dwarf_line = exp->X_add_number;
|
dwarf_line = exp->X_add_number;
|
else
|
else
|
dwarf_line = -1;
|
dwarf_line = -1;
|
}
|
}
|
|
|
/* When gcc emits DWARF 1 debugging pseudo-ops, a file name will
|
/* 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
|
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
|
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
|
followed by a 2 byte AT_name (0x38) followed by the name of the
|
file. We look for that case here. */
|
file. We look for that case here. */
|
{
|
{
|
static int dwarf_file = 0;
|
static int dwarf_file = 0;
|
|
|
if (strcmp (segment_name (now_seg), ".debug") != 0)
|
if (strcmp (segment_name (now_seg), ".debug") != 0)
|
dwarf_file = 0;
|
dwarf_file = 0;
|
else if (dwarf_file == 0
|
else if (dwarf_file == 0
|
&& nbytes == 2
|
&& nbytes == 2
|
&& exp->X_op == O_constant
|
&& exp->X_op == O_constant
|
&& exp->X_add_number == 0x11)
|
&& exp->X_add_number == 0x11)
|
dwarf_file = 1;
|
dwarf_file = 1;
|
else if (dwarf_file == 1
|
else if (dwarf_file == 1
|
&& nbytes == 2
|
&& nbytes == 2
|
&& exp->X_op == O_constant
|
&& exp->X_op == O_constant
|
&& exp->X_add_number == 0x12)
|
&& exp->X_add_number == 0x12)
|
dwarf_file = 2;
|
dwarf_file = 2;
|
else if (dwarf_file == 2
|
else if (dwarf_file == 2
|
&& nbytes == 4)
|
&& nbytes == 4)
|
dwarf_file = 3;
|
dwarf_file = 3;
|
else if (dwarf_file == 3
|
else if (dwarf_file == 3
|
&& nbytes == 2
|
&& nbytes == 2
|
&& exp->X_op == O_constant
|
&& exp->X_op == O_constant
|
&& exp->X_add_number == 0x38)
|
&& exp->X_add_number == 0x38)
|
dwarf_file = 4;
|
dwarf_file = 4;
|
else
|
else
|
dwarf_file = 0;
|
dwarf_file = 0;
|
|
|
/* The variable dwarf_file_string tells stringer that the string
|
/* The variable dwarf_file_string tells stringer that the string
|
may be the name of the source file. */
|
may be the name of the source file. */
|
if (dwarf_file == 4)
|
if (dwarf_file == 4)
|
dwarf_file_string = 1;
|
dwarf_file_string = 1;
|
else
|
else
|
dwarf_file_string = 0;
|
dwarf_file_string = 0;
|
}
|
}
|
#endif
|
#endif
|
#endif
|
#endif
|
|
|
if (check_eh_frame (exp, &nbytes))
|
if (check_eh_frame (exp, &nbytes))
|
return;
|
return;
|
|
|
op = exp->X_op;
|
op = exp->X_op;
|
|
|
/* Allow `.word 0' in the absolute section. */
|
/* Allow `.word 0' in the absolute section. */
|
if (now_seg == absolute_section)
|
if (now_seg == absolute_section)
|
{
|
{
|
if (op != O_constant || exp->X_add_number != 0)
|
if (op != O_constant || exp->X_add_number != 0)
|
as_bad (_("attempt to store value in absolute section"));
|
as_bad (_("attempt to store value in absolute section"));
|
abs_section_offset += nbytes;
|
abs_section_offset += nbytes;
|
return;
|
return;
|
}
|
}
|
|
|
/* Handle a negative bignum. */
|
/* Handle a negative bignum. */
|
if (op == O_uminus
|
if (op == O_uminus
|
&& exp->X_add_number == 0
|
&& 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_op == O_big
|
&& symbol_get_value_expression (exp->X_add_symbol)->X_add_number > 0)
|
&& symbol_get_value_expression (exp->X_add_symbol)->X_add_number > 0)
|
{
|
{
|
int i;
|
int i;
|
unsigned long carry;
|
unsigned long carry;
|
|
|
exp = symbol_get_value_expression (exp->X_add_symbol);
|
exp = symbol_get_value_expression (exp->X_add_symbol);
|
|
|
/* Negate the bignum: one's complement each digit and add 1. */
|
/* Negate the bignum: one's complement each digit and add 1. */
|
carry = 1;
|
carry = 1;
|
for (i = 0; i < exp->X_add_number; i++)
|
for (i = 0; i < exp->X_add_number; i++)
|
{
|
{
|
unsigned long next;
|
unsigned long next;
|
|
|
next = (((~(generic_bignum[i] & LITTLENUM_MASK))
|
next = (((~(generic_bignum[i] & LITTLENUM_MASK))
|
& LITTLENUM_MASK)
|
& LITTLENUM_MASK)
|
+ carry);
|
+ carry);
|
generic_bignum[i] = next & LITTLENUM_MASK;
|
generic_bignum[i] = next & LITTLENUM_MASK;
|
carry = next >> LITTLENUM_NUMBER_OF_BITS;
|
carry = next >> LITTLENUM_NUMBER_OF_BITS;
|
}
|
}
|
|
|
/* We can ignore any carry out, because it will be handled by
|
/* We can ignore any carry out, because it will be handled by
|
extra_digit if it is needed. */
|
extra_digit if it is needed. */
|
|
|
extra_digit = (valueT) -1;
|
extra_digit = (valueT) -1;
|
op = O_big;
|
op = O_big;
|
}
|
}
|
|
|
if (op == O_absent || op == O_illegal)
|
if (op == O_absent || op == O_illegal)
|
{
|
{
|
as_warn (_("zero assumed for missing expression"));
|
as_warn (_("zero assumed for missing expression"));
|
exp->X_add_number = 0;
|
exp->X_add_number = 0;
|
op = O_constant;
|
op = O_constant;
|
}
|
}
|
else if (op == O_big && exp->X_add_number <= 0)
|
else if (op == O_big && exp->X_add_number <= 0)
|
{
|
{
|
as_bad (_("floating point number invalid"));
|
as_bad (_("floating point number invalid"));
|
exp->X_add_number = 0;
|
exp->X_add_number = 0;
|
op = O_constant;
|
op = O_constant;
|
}
|
}
|
else if (op == O_register)
|
else if (op == O_register)
|
{
|
{
|
as_warn (_("register value used as expression"));
|
as_warn (_("register value used as expression"));
|
op = O_constant;
|
op = O_constant;
|
}
|
}
|
|
|
p = frag_more ((int) nbytes);
|
p = frag_more ((int) nbytes);
|
|
|
#ifndef WORKING_DOT_WORD
|
#ifndef WORKING_DOT_WORD
|
/* If we have the difference of two symbols in a word, save it on
|
/* If we have the difference of two symbols in a word, save it on
|
the broken_words list. See the code in write.c. */
|
the broken_words list. See the code in write.c. */
|
if (op == O_subtract && nbytes == 2)
|
if (op == O_subtract && nbytes == 2)
|
{
|
{
|
struct broken_word *x;
|
struct broken_word *x;
|
|
|
x = (struct broken_word *) xmalloc (sizeof (struct broken_word));
|
x = (struct broken_word *) xmalloc (sizeof (struct broken_word));
|
x->next_broken_word = broken_words;
|
x->next_broken_word = broken_words;
|
broken_words = x;
|
broken_words = x;
|
x->seg = now_seg;
|
x->seg = now_seg;
|
x->subseg = now_subseg;
|
x->subseg = now_subseg;
|
x->frag = frag_now;
|
x->frag = frag_now;
|
x->word_goes_here = p;
|
x->word_goes_here = p;
|
x->dispfrag = 0;
|
x->dispfrag = 0;
|
x->add = exp->X_add_symbol;
|
x->add = exp->X_add_symbol;
|
x->sub = exp->X_op_symbol;
|
x->sub = exp->X_op_symbol;
|
x->addnum = exp->X_add_number;
|
x->addnum = exp->X_add_number;
|
x->added = 0;
|
x->added = 0;
|
x->use_jump = 0;
|
x->use_jump = 0;
|
new_broken_words++;
|
new_broken_words++;
|
return;
|
return;
|
}
|
}
|
#endif
|
#endif
|
|
|
/* If we have an integer, but the number of bytes is too large to
|
/* 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. */
|
pass to md_number_to_chars, handle it as a bignum. */
|
if (op == O_constant && nbytes > sizeof (valueT))
|
if (op == O_constant && nbytes > sizeof (valueT))
|
{
|
{
|
extra_digit = exp->X_unsigned ? 0 : -1;
|
extra_digit = exp->X_unsigned ? 0 : -1;
|
convert_to_bignum (exp);
|
convert_to_bignum (exp);
|
op = O_big;
|
op = O_big;
|
}
|
}
|
|
|
if (op == O_constant)
|
if (op == O_constant)
|
{
|
{
|
valueT get;
|
valueT get;
|
valueT use;
|
valueT use;
|
valueT mask;
|
valueT mask;
|
valueT hibit;
|
valueT hibit;
|
valueT unmask;
|
valueT unmask;
|
|
|
/* JF << of >= number of bits in the object is undefined. In
|
/* JF << of >= number of bits in the object is undefined. In
|
particular SPARC (Sun 4) has problems. */
|
particular SPARC (Sun 4) has problems. */
|
if (nbytes >= sizeof (valueT))
|
if (nbytes >= sizeof (valueT))
|
{
|
{
|
mask = 0;
|
mask = 0;
|
if (nbytes > sizeof (valueT))
|
if (nbytes > sizeof (valueT))
|
hibit = 0;
|
hibit = 0;
|
else
|
else
|
hibit = (valueT) 1 << (nbytes * BITS_PER_CHAR - 1);
|
hibit = (valueT) 1 << (nbytes * BITS_PER_CHAR - 1);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Don't store these bits. */
|
/* Don't store these bits. */
|
mask = ~(valueT) 0 << (BITS_PER_CHAR * nbytes);
|
mask = ~(valueT) 0 << (BITS_PER_CHAR * nbytes);
|
hibit = (valueT) 1 << (nbytes * BITS_PER_CHAR - 1);
|
hibit = (valueT) 1 << (nbytes * BITS_PER_CHAR - 1);
|
}
|
}
|
|
|
unmask = ~mask; /* Do store these bits. */
|
unmask = ~mask; /* Do store these bits. */
|
|
|
#ifdef NEVER
|
#ifdef NEVER
|
"Do this mod if you want every overflow check to assume SIGNED 2's complement data.";
|
"Do this mod if you want every overflow check to assume SIGNED 2's complement data.";
|
mask = ~(unmask >> 1); /* Includes sign bit now. */
|
mask = ~(unmask >> 1); /* Includes sign bit now. */
|
#endif
|
#endif
|
|
|
get = exp->X_add_number;
|
get = exp->X_add_number;
|
use = get & unmask;
|
use = get & unmask;
|
if ((get & mask) != 0
|
if ((get & mask) != 0
|
&& ((get & mask) != mask
|
&& ((get & mask) != mask
|
|| (get & hibit) == 0))
|
|| (get & hibit) == 0))
|
{ /* Leading bits contain both 0s & 1s. */
|
{ /* Leading bits contain both 0s & 1s. */
|
#if defined (BFD64) && BFD_HOST_64BIT_LONG_LONG
|
#if defined (BFD64) && BFD_HOST_64BIT_LONG_LONG
|
#ifndef __MSVCRT__
|
#ifndef __MSVCRT__
|
as_warn (_("value 0x%llx truncated to 0x%llx"),
|
as_warn (_("value 0x%llx truncated to 0x%llx"),
|
(unsigned long long) get, (unsigned long long) use);
|
(unsigned long long) get, (unsigned long long) use);
|
#else
|
#else
|
as_warn (_("value 0x%I64x truncated to 0x%I64x"),
|
as_warn (_("value 0x%I64x truncated to 0x%I64x"),
|
(unsigned long long) get, (unsigned long long) use);
|
(unsigned long long) get, (unsigned long long) use);
|
#endif
|
#endif
|
#else
|
#else
|
as_warn (_("value 0x%lx truncated to 0x%lx"),
|
as_warn (_("value 0x%lx truncated to 0x%lx"),
|
(unsigned long) get, (unsigned long) use);
|
(unsigned long) get, (unsigned long) use);
|
#endif
|
#endif
|
}
|
}
|
/* Put bytes in right order. */
|
/* Put bytes in right order. */
|
md_number_to_chars (p, use, (int) nbytes);
|
md_number_to_chars (p, use, (int) nbytes);
|
}
|
}
|
else if (op == O_big)
|
else if (op == O_big)
|
{
|
{
|
unsigned int size;
|
unsigned int size;
|
LITTLENUM_TYPE *nums;
|
LITTLENUM_TYPE *nums;
|
|
|
size = exp->X_add_number * CHARS_PER_LITTLENUM;
|
size = exp->X_add_number * CHARS_PER_LITTLENUM;
|
if (nbytes < size)
|
if (nbytes < size)
|
{
|
{
|
int i = nbytes / CHARS_PER_LITTLENUM;
|
int i = nbytes / CHARS_PER_LITTLENUM;
|
if (i != 0)
|
if (i != 0)
|
{
|
{
|
LITTLENUM_TYPE sign = 0;
|
LITTLENUM_TYPE sign = 0;
|
if ((generic_bignum[--i]
|
if ((generic_bignum[--i]
|
& (1 << (LITTLENUM_NUMBER_OF_BITS - 1))) != 0)
|
& (1 << (LITTLENUM_NUMBER_OF_BITS - 1))) != 0)
|
sign = ~(LITTLENUM_TYPE) 0;
|
sign = ~(LITTLENUM_TYPE) 0;
|
while (++i < exp->X_add_number)
|
while (++i < exp->X_add_number)
|
if (generic_bignum[i] != sign)
|
if (generic_bignum[i] != sign)
|
break;
|
break;
|
}
|
}
|
if (i < exp->X_add_number)
|
if (i < exp->X_add_number)
|
as_warn (_("bignum truncated to %d bytes"), nbytes);
|
as_warn (_("bignum truncated to %d bytes"), nbytes);
|
size = nbytes;
|
size = nbytes;
|
}
|
}
|
|
|
if (nbytes == 1)
|
if (nbytes == 1)
|
{
|
{
|
md_number_to_chars (p, (valueT) generic_bignum[0], 1);
|
md_number_to_chars (p, (valueT) generic_bignum[0], 1);
|
return;
|
return;
|
}
|
}
|
know (nbytes % CHARS_PER_LITTLENUM == 0);
|
know (nbytes % CHARS_PER_LITTLENUM == 0);
|
|
|
if (target_big_endian)
|
if (target_big_endian)
|
{
|
{
|
while (nbytes > size)
|
while (nbytes > size)
|
{
|
{
|
md_number_to_chars (p, extra_digit, CHARS_PER_LITTLENUM);
|
md_number_to_chars (p, extra_digit, CHARS_PER_LITTLENUM);
|
nbytes -= CHARS_PER_LITTLENUM;
|
nbytes -= CHARS_PER_LITTLENUM;
|
p += CHARS_PER_LITTLENUM;
|
p += CHARS_PER_LITTLENUM;
|
}
|
}
|
|
|
nums = generic_bignum + size / CHARS_PER_LITTLENUM;
|
nums = generic_bignum + size / CHARS_PER_LITTLENUM;
|
while (size >= CHARS_PER_LITTLENUM)
|
while (size >= CHARS_PER_LITTLENUM)
|
{
|
{
|
--nums;
|
--nums;
|
md_number_to_chars (p, (valueT) *nums, CHARS_PER_LITTLENUM);
|
md_number_to_chars (p, (valueT) *nums, CHARS_PER_LITTLENUM);
|
size -= CHARS_PER_LITTLENUM;
|
size -= CHARS_PER_LITTLENUM;
|
p += CHARS_PER_LITTLENUM;
|
p += CHARS_PER_LITTLENUM;
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
nums = generic_bignum;
|
nums = generic_bignum;
|
while (size >= CHARS_PER_LITTLENUM)
|
while (size >= CHARS_PER_LITTLENUM)
|
{
|
{
|
md_number_to_chars (p, (valueT) *nums, CHARS_PER_LITTLENUM);
|
md_number_to_chars (p, (valueT) *nums, CHARS_PER_LITTLENUM);
|
++nums;
|
++nums;
|
size -= CHARS_PER_LITTLENUM;
|
size -= CHARS_PER_LITTLENUM;
|
p += CHARS_PER_LITTLENUM;
|
p += CHARS_PER_LITTLENUM;
|
nbytes -= CHARS_PER_LITTLENUM;
|
nbytes -= CHARS_PER_LITTLENUM;
|
}
|
}
|
|
|
while (nbytes >= CHARS_PER_LITTLENUM)
|
while (nbytes >= CHARS_PER_LITTLENUM)
|
{
|
{
|
md_number_to_chars (p, extra_digit, CHARS_PER_LITTLENUM);
|
md_number_to_chars (p, extra_digit, CHARS_PER_LITTLENUM);
|
nbytes -= CHARS_PER_LITTLENUM;
|
nbytes -= CHARS_PER_LITTLENUM;
|
p += CHARS_PER_LITTLENUM;
|
p += CHARS_PER_LITTLENUM;
|
}
|
}
|
}
|
}
|
}
|
}
|
else
|
else
|
emit_expr_fix (exp, nbytes, frag_now, p);
|
emit_expr_fix (exp, nbytes, frag_now, p);
|
}
|
}
|
|
|
void
|
void
|
emit_expr_fix (expressionS *exp, unsigned int nbytes, fragS *frag, char *p)
|
emit_expr_fix (expressionS *exp, unsigned int nbytes, fragS *frag, char *p)
|
{
|
{
|
memset (p, 0, nbytes);
|
memset (p, 0, nbytes);
|
|
|
/* Generate a fixS to record the symbol value. */
|
/* Generate a fixS to record the symbol value. */
|
|
|
#ifdef TC_CONS_FIX_NEW
|
#ifdef TC_CONS_FIX_NEW
|
TC_CONS_FIX_NEW (frag, p - frag->fr_literal, nbytes, exp);
|
TC_CONS_FIX_NEW (frag, p - frag->fr_literal, nbytes, exp);
|
#else
|
#else
|
{
|
{
|
bfd_reloc_code_real_type r;
|
bfd_reloc_code_real_type r;
|
|
|
switch (nbytes)
|
switch (nbytes)
|
{
|
{
|
case 1:
|
case 1:
|
r = BFD_RELOC_8;
|
r = BFD_RELOC_8;
|
break;
|
break;
|
case 2:
|
case 2:
|
r = BFD_RELOC_16;
|
r = BFD_RELOC_16;
|
break;
|
break;
|
case 3:
|
case 3:
|
r = BFD_RELOC_24;
|
r = BFD_RELOC_24;
|
break;
|
break;
|
case 4:
|
case 4:
|
r = BFD_RELOC_32;
|
r = BFD_RELOC_32;
|
break;
|
break;
|
case 8:
|
case 8:
|
r = BFD_RELOC_64;
|
r = BFD_RELOC_64;
|
break;
|
break;
|
default:
|
default:
|
as_bad (_("unsupported BFD relocation size %u"), nbytes);
|
as_bad (_("unsupported BFD relocation size %u"), nbytes);
|
r = BFD_RELOC_32;
|
r = BFD_RELOC_32;
|
break;
|
break;
|
}
|
}
|
fix_new_exp (frag, p - frag->fr_literal, (int) nbytes, exp,
|
fix_new_exp (frag, p - frag->fr_literal, (int) nbytes, exp,
|
0, r);
|
0, r);
|
}
|
}
|
#endif
|
#endif
|
}
|
}
|
|
|
#ifdef BITFIELD_CONS_EXPRESSIONS
|
#ifdef BITFIELD_CONS_EXPRESSIONS
|
|
|
/* i960 assemblers, (eg, asm960), allow bitfields after ".byte" as
|
/* 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
|
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
|
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
|
them in words, longs, etc. and we'll pack them in target byte order
|
for you.
|
for you.
|
|
|
The rules are: pack least significant bit first, if a field doesn't
|
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
|
entirely fit, put it in the next unit. Overflowing the bitfield is
|
explicitly *not* even a warning. The bitwidth should be considered
|
explicitly *not* even a warning. The bitwidth should be considered
|
a "mask".
|
a "mask".
|
|
|
To use this function the tc-XXX.h file should define
|
To use this function the tc-XXX.h file should define
|
BITFIELD_CONS_EXPRESSIONS. */
|
BITFIELD_CONS_EXPRESSIONS. */
|
|
|
static void
|
static void
|
parse_bitfield_cons (exp, nbytes)
|
parse_bitfield_cons (exp, nbytes)
|
expressionS *exp;
|
expressionS *exp;
|
unsigned int nbytes;
|
unsigned int nbytes;
|
{
|
{
|
unsigned int bits_available = BITS_PER_CHAR * nbytes;
|
unsigned int bits_available = BITS_PER_CHAR * nbytes;
|
char *hold = input_line_pointer;
|
char *hold = input_line_pointer;
|
|
|
(void) expression (exp);
|
(void) expression (exp);
|
|
|
if (*input_line_pointer == ':')
|
if (*input_line_pointer == ':')
|
{
|
{
|
/* Bitfields. */
|
/* Bitfields. */
|
long value = 0;
|
long value = 0;
|
|
|
for (;;)
|
for (;;)
|
{
|
{
|
unsigned long width;
|
unsigned long width;
|
|
|
if (*input_line_pointer != ':')
|
if (*input_line_pointer != ':')
|
{
|
{
|
input_line_pointer = hold;
|
input_line_pointer = hold;
|
break;
|
break;
|
} /* Next piece is not a bitfield. */
|
} /* Next piece is not a bitfield. */
|
|
|
/* In the general case, we can't allow
|
/* In the general case, we can't allow
|
full expressions with symbol
|
full expressions with symbol
|
differences and such. The relocation
|
differences and such. The relocation
|
entries for symbols not defined in this
|
entries for symbols not defined in this
|
assembly would require arbitrary field
|
assembly would require arbitrary field
|
widths, positions, and masks which most
|
widths, positions, and masks which most
|
of our current object formats don't
|
of our current object formats don't
|
support.
|
support.
|
|
|
In the specific case where a symbol
|
In the specific case where a symbol
|
*is* defined in this assembly, we
|
*is* defined in this assembly, we
|
*could* build fixups and track it, but
|
*could* build fixups and track it, but
|
this could lead to confusion for the
|
this could lead to confusion for the
|
backends. I'm lazy. I'll take any
|
backends. I'm lazy. I'll take any
|
SEG_ABSOLUTE. I think that means that
|
SEG_ABSOLUTE. I think that means that
|
you can use a previous .set or
|
you can use a previous .set or
|
.equ type symbol. xoxorich. */
|
.equ type symbol. xoxorich. */
|
|
|
if (exp->X_op == O_absent)
|
if (exp->X_op == O_absent)
|
{
|
{
|
as_warn (_("using a bit field width of zero"));
|
as_warn (_("using a bit field width of zero"));
|
exp->X_add_number = 0;
|
exp->X_add_number = 0;
|
exp->X_op = O_constant;
|
exp->X_op = O_constant;
|
} /* Implied zero width bitfield. */
|
} /* Implied zero width bitfield. */
|
|
|
if (exp->X_op != O_constant)
|
if (exp->X_op != O_constant)
|
{
|
{
|
*input_line_pointer = '\0';
|
*input_line_pointer = '\0';
|
as_bad (_("field width \"%s\" too complex for a bitfield"), hold);
|
as_bad (_("field width \"%s\" too complex for a bitfield"), hold);
|
*input_line_pointer = ':';
|
*input_line_pointer = ':';
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
return;
|
return;
|
} /* Too complex. */
|
} /* Too complex. */
|
|
|
if ((width = exp->X_add_number) > (BITS_PER_CHAR * nbytes))
|
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"),
|
as_warn (_("field width %lu too big to fit in %d bytes: truncated to %d bits"),
|
width, nbytes, (BITS_PER_CHAR * nbytes));
|
width, nbytes, (BITS_PER_CHAR * nbytes));
|
width = BITS_PER_CHAR * nbytes;
|
width = BITS_PER_CHAR * nbytes;
|
} /* Too big. */
|
} /* Too big. */
|
|
|
if (width > bits_available)
|
if (width > bits_available)
|
{
|
{
|
/* FIXME-SOMEDAY: backing up and reparsing is wasteful. */
|
/* FIXME-SOMEDAY: backing up and reparsing is wasteful. */
|
input_line_pointer = hold;
|
input_line_pointer = hold;
|
exp->X_add_number = value;
|
exp->X_add_number = value;
|
break;
|
break;
|
} /* Won't fit. */
|
} /* Won't fit. */
|
|
|
/* Skip ':'. */
|
/* Skip ':'. */
|
hold = ++input_line_pointer;
|
hold = ++input_line_pointer;
|
|
|
(void) expression (exp);
|
(void) expression (exp);
|
if (exp->X_op != O_constant)
|
if (exp->X_op != O_constant)
|
{
|
{
|
char cache = *input_line_pointer;
|
char cache = *input_line_pointer;
|
|
|
*input_line_pointer = '\0';
|
*input_line_pointer = '\0';
|
as_bad (_("field value \"%s\" too complex for a bitfield"), hold);
|
as_bad (_("field value \"%s\" too complex for a bitfield"), hold);
|
*input_line_pointer = cache;
|
*input_line_pointer = cache;
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
return;
|
return;
|
} /* Too complex. */
|
} /* Too complex. */
|
|
|
value |= ((~(-1 << width) & exp->X_add_number)
|
value |= ((~(-1 << width) & exp->X_add_number)
|
<< ((BITS_PER_CHAR * nbytes) - bits_available));
|
<< ((BITS_PER_CHAR * nbytes) - bits_available));
|
|
|
if ((bits_available -= width) == 0
|
if ((bits_available -= width) == 0
|
|| is_it_end_of_statement ()
|
|| is_it_end_of_statement ()
|
|| *input_line_pointer != ',')
|
|| *input_line_pointer != ',')
|
{
|
{
|
break;
|
break;
|
} /* All the bitfields we're gonna get. */
|
} /* All the bitfields we're gonna get. */
|
|
|
hold = ++input_line_pointer;
|
hold = ++input_line_pointer;
|
(void) expression (exp);
|
(void) expression (exp);
|
}
|
}
|
|
|
exp->X_add_number = value;
|
exp->X_add_number = value;
|
exp->X_op = O_constant;
|
exp->X_op = O_constant;
|
exp->X_unsigned = 1;
|
exp->X_unsigned = 1;
|
}
|
}
|
}
|
}
|
|
|
#endif /* BITFIELD_CONS_EXPRESSIONS */
|
#endif /* BITFIELD_CONS_EXPRESSIONS */
|
|
|
/* Handle an MRI style string expression. */
|
/* Handle an MRI style string expression. */
|
|
|
#ifdef TC_M68K
|
#ifdef TC_M68K
|
static void
|
static void
|
parse_mri_cons (exp, nbytes)
|
parse_mri_cons (exp, nbytes)
|
expressionS *exp;
|
expressionS *exp;
|
unsigned int nbytes;
|
unsigned int nbytes;
|
{
|
{
|
if (*input_line_pointer != '\''
|
if (*input_line_pointer != '\''
|
&& (input_line_pointer[1] != '\''
|
&& (input_line_pointer[1] != '\''
|
|| (*input_line_pointer != 'A'
|
|| (*input_line_pointer != 'A'
|
&& *input_line_pointer != 'E')))
|
&& *input_line_pointer != 'E')))
|
TC_PARSE_CONS_EXPRESSION (exp, nbytes);
|
TC_PARSE_CONS_EXPRESSION (exp, nbytes);
|
else
|
else
|
{
|
{
|
unsigned int scan;
|
unsigned int scan;
|
unsigned int result = 0;
|
unsigned int result = 0;
|
|
|
/* An MRI style string. Cut into as many bytes as will fit into
|
/* An MRI style string. Cut into as many bytes as will fit into
|
a nbyte chunk, left justify if necessary, and separate with
|
a nbyte chunk, left justify if necessary, and separate with
|
commas so we can try again later. */
|
commas so we can try again later. */
|
if (*input_line_pointer == 'A')
|
if (*input_line_pointer == 'A')
|
++input_line_pointer;
|
++input_line_pointer;
|
else if (*input_line_pointer == 'E')
|
else if (*input_line_pointer == 'E')
|
{
|
{
|
as_bad (_("EBCDIC constants are not supported"));
|
as_bad (_("EBCDIC constants are not supported"));
|
++input_line_pointer;
|
++input_line_pointer;
|
}
|
}
|
|
|
input_line_pointer++;
|
input_line_pointer++;
|
for (scan = 0; scan < nbytes; scan++)
|
for (scan = 0; scan < nbytes; scan++)
|
{
|
{
|
if (*input_line_pointer == '\'')
|
if (*input_line_pointer == '\'')
|
{
|
{
|
if (input_line_pointer[1] == '\'')
|
if (input_line_pointer[1] == '\'')
|
{
|
{
|
input_line_pointer++;
|
input_line_pointer++;
|
}
|
}
|
else
|
else
|
break;
|
break;
|
}
|
}
|
result = (result << 8) | (*input_line_pointer++);
|
result = (result << 8) | (*input_line_pointer++);
|
}
|
}
|
|
|
/* Left justify. */
|
/* Left justify. */
|
while (scan < nbytes)
|
while (scan < nbytes)
|
{
|
{
|
result <<= 8;
|
result <<= 8;
|
scan++;
|
scan++;
|
}
|
}
|
|
|
/* Create correct expression. */
|
/* Create correct expression. */
|
exp->X_op = O_constant;
|
exp->X_op = O_constant;
|
exp->X_add_number = result;
|
exp->X_add_number = result;
|
|
|
/* Fake it so that we can read the next char too. */
|
/* Fake it so that we can read the next char too. */
|
if (input_line_pointer[0] != '\'' ||
|
if (input_line_pointer[0] != '\'' ||
|
(input_line_pointer[0] == '\'' && input_line_pointer[1] == '\''))
|
(input_line_pointer[0] == '\'' && input_line_pointer[1] == '\''))
|
{
|
{
|
input_line_pointer -= 2;
|
input_line_pointer -= 2;
|
input_line_pointer[0] = ',';
|
input_line_pointer[0] = ',';
|
input_line_pointer[1] = '\'';
|
input_line_pointer[1] = '\'';
|
}
|
}
|
else
|
else
|
input_line_pointer++;
|
input_line_pointer++;
|
}
|
}
|
}
|
}
|
#endif /* TC_M68K */
|
#endif /* TC_M68K */
|
|
|
#ifdef REPEAT_CONS_EXPRESSIONS
|
#ifdef REPEAT_CONS_EXPRESSIONS
|
|
|
/* Parse a repeat expression for cons. This is used by the MIPS
|
/* Parse a repeat expression for cons. This is used by the MIPS
|
assembler. The format is NUMBER:COUNT; NUMBER appears in the
|
assembler. The format is NUMBER:COUNT; NUMBER appears in the
|
object file COUNT times.
|
object file COUNT times.
|
|
|
To use this for a target, define REPEAT_CONS_EXPRESSIONS. */
|
To use this for a target, define REPEAT_CONS_EXPRESSIONS. */
|
|
|
static void
|
static void
|
parse_repeat_cons (exp, nbytes)
|
parse_repeat_cons (exp, nbytes)
|
expressionS *exp;
|
expressionS *exp;
|
unsigned int nbytes;
|
unsigned int nbytes;
|
{
|
{
|
expressionS count;
|
expressionS count;
|
int i;
|
int i;
|
|
|
expression (exp);
|
expression (exp);
|
|
|
if (*input_line_pointer != ':')
|
if (*input_line_pointer != ':')
|
{
|
{
|
/* No repeat count. */
|
/* No repeat count. */
|
return;
|
return;
|
}
|
}
|
|
|
++input_line_pointer;
|
++input_line_pointer;
|
expression (&count);
|
expression (&count);
|
if (count.X_op != O_constant
|
if (count.X_op != O_constant
|
|| count.X_add_number <= 0)
|
|| count.X_add_number <= 0)
|
{
|
{
|
as_warn (_("unresolvable or nonpositive repeat count; using 1"));
|
as_warn (_("unresolvable or nonpositive repeat count; using 1"));
|
return;
|
return;
|
}
|
}
|
|
|
/* The cons function is going to output this expression once. So we
|
/* The cons function is going to output this expression once. So we
|
output it count - 1 times. */
|
output it count - 1 times. */
|
for (i = count.X_add_number - 1; i > 0; i--)
|
for (i = count.X_add_number - 1; i > 0; i--)
|
emit_expr (exp, nbytes);
|
emit_expr (exp, nbytes);
|
}
|
}
|
|
|
#endif /* REPEAT_CONS_EXPRESSIONS */
|
#endif /* REPEAT_CONS_EXPRESSIONS */
|
|
|
/* Parse a floating point number represented as a hex constant. This
|
/* Parse a floating point number represented as a hex constant. This
|
permits users to specify the exact bits they want in the floating
|
permits users to specify the exact bits they want in the floating
|
point number. */
|
point number. */
|
|
|
static int
|
static int
|
hex_float (int float_type, char *bytes)
|
hex_float (int float_type, char *bytes)
|
{
|
{
|
int length;
|
int length;
|
int i;
|
int i;
|
|
|
switch (float_type)
|
switch (float_type)
|
{
|
{
|
case 'f':
|
case 'f':
|
case 'F':
|
case 'F':
|
case 's':
|
case 's':
|
case 'S':
|
case 'S':
|
length = 4;
|
length = 4;
|
break;
|
break;
|
|
|
case 'd':
|
case 'd':
|
case 'D':
|
case 'D':
|
case 'r':
|
case 'r':
|
case 'R':
|
case 'R':
|
length = 8;
|
length = 8;
|
break;
|
break;
|
|
|
case 'x':
|
case 'x':
|
case 'X':
|
case 'X':
|
length = 12;
|
length = 12;
|
break;
|
break;
|
|
|
case 'p':
|
case 'p':
|
case 'P':
|
case 'P':
|
length = 12;
|
length = 12;
|
break;
|
break;
|
|
|
default:
|
default:
|
as_bad (_("unknown floating type type '%c'"), float_type);
|
as_bad (_("unknown floating type type '%c'"), float_type);
|
return -1;
|
return -1;
|
}
|
}
|
|
|
/* It would be nice if we could go through expression to parse the
|
/* 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
|
hex constant, but if we get a bignum it's a pain to sort it into
|
the buffer correctly. */
|
the buffer correctly. */
|
i = 0;
|
i = 0;
|
while (hex_p (*input_line_pointer) || *input_line_pointer == '_')
|
while (hex_p (*input_line_pointer) || *input_line_pointer == '_')
|
{
|
{
|
int d;
|
int d;
|
|
|
/* The MRI assembler accepts arbitrary underscores strewn about
|
/* The MRI assembler accepts arbitrary underscores strewn about
|
through the hex constant, so we ignore them as well. */
|
through the hex constant, so we ignore them as well. */
|
if (*input_line_pointer == '_')
|
if (*input_line_pointer == '_')
|
{
|
{
|
++input_line_pointer;
|
++input_line_pointer;
|
continue;
|
continue;
|
}
|
}
|
|
|
if (i >= length)
|
if (i >= length)
|
{
|
{
|
as_warn (_("floating point constant too large"));
|
as_warn (_("floating point constant too large"));
|
return -1;
|
return -1;
|
}
|
}
|
d = hex_value (*input_line_pointer) << 4;
|
d = hex_value (*input_line_pointer) << 4;
|
++input_line_pointer;
|
++input_line_pointer;
|
while (*input_line_pointer == '_')
|
while (*input_line_pointer == '_')
|
++input_line_pointer;
|
++input_line_pointer;
|
if (hex_p (*input_line_pointer))
|
if (hex_p (*input_line_pointer))
|
{
|
{
|
d += hex_value (*input_line_pointer);
|
d += hex_value (*input_line_pointer);
|
++input_line_pointer;
|
++input_line_pointer;
|
}
|
}
|
if (target_big_endian)
|
if (target_big_endian)
|
bytes[i] = d;
|
bytes[i] = d;
|
else
|
else
|
bytes[length - i - 1] = d;
|
bytes[length - i - 1] = d;
|
++i;
|
++i;
|
}
|
}
|
|
|
if (i < length)
|
if (i < length)
|
{
|
{
|
if (target_big_endian)
|
if (target_big_endian)
|
memset (bytes + i, 0, length - i);
|
memset (bytes + i, 0, length - i);
|
else
|
else
|
memset (bytes, 0, length - i);
|
memset (bytes, 0, length - i);
|
}
|
}
|
|
|
return length;
|
return length;
|
}
|
}
|
|
|
/* float_cons()
|
/* float_cons()
|
|
|
CONStruct some more frag chars of .floats .ffloats etc.
|
CONStruct some more frag chars of .floats .ffloats etc.
|
Makes 0 or more new frags.
|
Makes 0 or more new frags.
|
If need_pass_2 == 1, no frags are emitted.
|
If need_pass_2 == 1, no frags are emitted.
|
This understands only floating literals, not expressions. Sorry.
|
This understands only floating literals, not expressions. Sorry.
|
|
|
A floating constant is defined by atof_generic(), except it is preceded
|
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
|
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
|
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
|
rounded bits to the precision of the pseudo-op. Former AS did premature
|
truncation, restored noisy bits instead of trailing 0s AND gave you
|
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
|
a choice of 2 flavours of noise according to which of 2 floating-point
|
scanners you directed AS to use.
|
scanners you directed AS to use.
|
|
|
In: input_line_pointer->whitespace before, or '0' of flonum. */
|
In: input_line_pointer->whitespace before, or '0' of flonum. */
|
|
|
void
|
void
|
float_cons (/* Clobbers input_line-pointer, checks end-of-line. */
|
float_cons (/* Clobbers input_line-pointer, checks end-of-line. */
|
int float_type /* 'f':.ffloat ... 'F':.float ... */)
|
int float_type /* 'f':.ffloat ... 'F':.float ... */)
|
{
|
{
|
char *p;
|
char *p;
|
int length; /* Number of chars in an object. */
|
int length; /* Number of chars in an object. */
|
char *err; /* Error from scanning floating literal. */
|
char *err; /* Error from scanning floating literal. */
|
char temp[MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT];
|
char temp[MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT];
|
|
|
if (is_it_end_of_statement ())
|
if (is_it_end_of_statement ())
|
{
|
{
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
#ifdef md_flush_pending_output
|
#ifdef md_flush_pending_output
|
md_flush_pending_output ();
|
md_flush_pending_output ();
|
#endif
|
#endif
|
|
|
#ifdef md_cons_align
|
#ifdef md_cons_align
|
md_cons_align (1);
|
md_cons_align (1);
|
#endif
|
#endif
|
|
|
do
|
do
|
{
|
{
|
/* input_line_pointer->1st char of a flonum (we hope!). */
|
/* input_line_pointer->1st char of a flonum (we hope!). */
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
/* Skip any 0{letter} that may be present. Don't even check if the
|
/* 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
|
letter is legal. Someone may invent a "z" format and this routine
|
has no use for such information. Lusers beware: you get
|
has no use for such information. Lusers beware: you get
|
diagnostics if your input is ill-conditioned. */
|
diagnostics if your input is ill-conditioned. */
|
if (input_line_pointer[0] == '0'
|
if (input_line_pointer[0] == '0'
|
&& ISALPHA (input_line_pointer[1]))
|
&& ISALPHA (input_line_pointer[1]))
|
input_line_pointer += 2;
|
input_line_pointer += 2;
|
|
|
/* Accept :xxxx, where the x's are hex digits, for a floating
|
/* Accept :xxxx, where the x's are hex digits, for a floating
|
point with the exact digits specified. */
|
point with the exact digits specified. */
|
if (input_line_pointer[0] == ':')
|
if (input_line_pointer[0] == ':')
|
{
|
{
|
++input_line_pointer;
|
++input_line_pointer;
|
length = hex_float (float_type, temp);
|
length = hex_float (float_type, temp);
|
if (length < 0)
|
if (length < 0)
|
{
|
{
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
err = md_atof (float_type, temp, &length);
|
err = md_atof (float_type, temp, &length);
|
know (length <= MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT);
|
know (length <= MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT);
|
know (err != NULL || length > 0);
|
know (err != NULL || length > 0);
|
if (err)
|
if (err)
|
{
|
{
|
as_bad (_("bad floating literal: %s"), err);
|
as_bad (_("bad floating literal: %s"), err);
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
}
|
}
|
|
|
if (!need_pass_2)
|
if (!need_pass_2)
|
{
|
{
|
int count;
|
int count;
|
|
|
count = 1;
|
count = 1;
|
|
|
#ifdef REPEAT_CONS_EXPRESSIONS
|
#ifdef REPEAT_CONS_EXPRESSIONS
|
if (*input_line_pointer == ':')
|
if (*input_line_pointer == ':')
|
{
|
{
|
expressionS count_exp;
|
expressionS count_exp;
|
|
|
++input_line_pointer;
|
++input_line_pointer;
|
expression (&count_exp);
|
expression (&count_exp);
|
|
|
if (count_exp.X_op != O_constant
|
if (count_exp.X_op != O_constant
|
|| count_exp.X_add_number <= 0)
|
|| count_exp.X_add_number <= 0)
|
as_warn (_("unresolvable or nonpositive repeat count; using 1"));
|
as_warn (_("unresolvable or nonpositive repeat count; using 1"));
|
else
|
else
|
count = count_exp.X_add_number;
|
count = count_exp.X_add_number;
|
}
|
}
|
#endif
|
#endif
|
|
|
while (--count >= 0)
|
while (--count >= 0)
|
{
|
{
|
p = frag_more (length);
|
p = frag_more (length);
|
memcpy (p, temp, (unsigned int) length);
|
memcpy (p, temp, (unsigned int) length);
|
}
|
}
|
}
|
}
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
}
|
}
|
while (*input_line_pointer++ == ',');
|
while (*input_line_pointer++ == ',');
|
|
|
/* Put terminator back into stream. */
|
/* Put terminator back into stream. */
|
--input_line_pointer;
|
--input_line_pointer;
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Return the size of a LEB128 value. */
|
/* Return the size of a LEB128 value. */
|
|
|
static inline int
|
static inline int
|
sizeof_sleb128 (offsetT value)
|
sizeof_sleb128 (offsetT value)
|
{
|
{
|
int size = 0;
|
int size = 0;
|
unsigned byte;
|
unsigned byte;
|
|
|
do
|
do
|
{
|
{
|
byte = (value & 0x7f);
|
byte = (value & 0x7f);
|
/* Sadly, we cannot rely on typical arithmetic right shift behaviour.
|
/* Sadly, we cannot rely on typical arithmetic right shift behaviour.
|
Fortunately, we can structure things so that the extra work reduces
|
Fortunately, we can structure things so that the extra work reduces
|
to a noop on systems that do things "properly". */
|
to a noop on systems that do things "properly". */
|
value = (value >> 7) | ~(-(offsetT)1 >> 7);
|
value = (value >> 7) | ~(-(offsetT)1 >> 7);
|
size += 1;
|
size += 1;
|
}
|
}
|
while (!(((value == 0) && ((byte & 0x40) == 0))
|
while (!(((value == 0) && ((byte & 0x40) == 0))
|
|| ((value == -1) && ((byte & 0x40) != 0))));
|
|| ((value == -1) && ((byte & 0x40) != 0))));
|
|
|
return size;
|
return size;
|
}
|
}
|
|
|
static inline int
|
static inline int
|
sizeof_uleb128 (valueT value)
|
sizeof_uleb128 (valueT value)
|
{
|
{
|
int size = 0;
|
int size = 0;
|
|
|
do
|
do
|
{
|
{
|
value >>= 7;
|
value >>= 7;
|
size += 1;
|
size += 1;
|
}
|
}
|
while (value != 0);
|
while (value != 0);
|
|
|
return size;
|
return size;
|
}
|
}
|
|
|
int
|
int
|
sizeof_leb128 (valueT value, int sign)
|
sizeof_leb128 (valueT value, int sign)
|
{
|
{
|
if (sign)
|
if (sign)
|
return sizeof_sleb128 ((offsetT) value);
|
return sizeof_sleb128 ((offsetT) value);
|
else
|
else
|
return sizeof_uleb128 (value);
|
return sizeof_uleb128 (value);
|
}
|
}
|
|
|
/* Output a LEB128 value. */
|
/* Output a LEB128 value. */
|
|
|
static inline int
|
static inline int
|
output_sleb128 (char *p, offsetT value)
|
output_sleb128 (char *p, offsetT value)
|
{
|
{
|
char *orig = p;
|
char *orig = p;
|
int more;
|
int more;
|
|
|
do
|
do
|
{
|
{
|
unsigned byte = (value & 0x7f);
|
unsigned byte = (value & 0x7f);
|
|
|
/* Sadly, we cannot rely on typical arithmetic right shift behaviour.
|
/* Sadly, we cannot rely on typical arithmetic right shift behaviour.
|
Fortunately, we can structure things so that the extra work reduces
|
Fortunately, we can structure things so that the extra work reduces
|
to a noop on systems that do things "properly". */
|
to a noop on systems that do things "properly". */
|
value = (value >> 7) | ~(-(offsetT)1 >> 7);
|
value = (value >> 7) | ~(-(offsetT)1 >> 7);
|
|
|
more = !((((value == 0) && ((byte & 0x40) == 0))
|
more = !((((value == 0) && ((byte & 0x40) == 0))
|
|| ((value == -1) && ((byte & 0x40) != 0))));
|
|| ((value == -1) && ((byte & 0x40) != 0))));
|
if (more)
|
if (more)
|
byte |= 0x80;
|
byte |= 0x80;
|
|
|
*p++ = byte;
|
*p++ = byte;
|
}
|
}
|
while (more);
|
while (more);
|
|
|
return p - orig;
|
return p - orig;
|
}
|
}
|
|
|
static inline int
|
static inline int
|
output_uleb128 (char *p, valueT value)
|
output_uleb128 (char *p, valueT value)
|
{
|
{
|
char *orig = p;
|
char *orig = p;
|
|
|
do
|
do
|
{
|
{
|
unsigned byte = (value & 0x7f);
|
unsigned byte = (value & 0x7f);
|
value >>= 7;
|
value >>= 7;
|
if (value != 0)
|
if (value != 0)
|
/* More bytes to follow. */
|
/* More bytes to follow. */
|
byte |= 0x80;
|
byte |= 0x80;
|
|
|
*p++ = byte;
|
*p++ = byte;
|
}
|
}
|
while (value != 0);
|
while (value != 0);
|
|
|
return p - orig;
|
return p - orig;
|
}
|
}
|
|
|
int
|
int
|
output_leb128 (char *p, valueT value, int sign)
|
output_leb128 (char *p, valueT value, int sign)
|
{
|
{
|
if (sign)
|
if (sign)
|
return output_sleb128 (p, (offsetT) value);
|
return output_sleb128 (p, (offsetT) value);
|
else
|
else
|
return output_uleb128 (p, value);
|
return output_uleb128 (p, value);
|
}
|
}
|
|
|
/* Do the same for bignums. We combine sizeof with output here in that
|
/* 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
|
we don't output for NULL values of P. It isn't really as critical as
|
for "normal" values that this be streamlined. */
|
for "normal" values that this be streamlined. */
|
|
|
static inline int
|
static inline int
|
output_big_sleb128 (char *p, LITTLENUM_TYPE *bignum, int size)
|
output_big_sleb128 (char *p, LITTLENUM_TYPE *bignum, int size)
|
{
|
{
|
char *orig = p;
|
char *orig = p;
|
valueT val = 0;
|
valueT val = 0;
|
int loaded = 0;
|
int loaded = 0;
|
unsigned byte;
|
unsigned byte;
|
|
|
/* Strip leading sign extensions off the bignum. */
|
/* Strip leading sign extensions off the bignum. */
|
while (size > 1
|
while (size > 1
|
&& bignum[size - 1] == LITTLENUM_MASK
|
&& bignum[size - 1] == LITTLENUM_MASK
|
&& bignum[size - 2] > LITTLENUM_MASK / 2)
|
&& bignum[size - 2] > LITTLENUM_MASK / 2)
|
size--;
|
size--;
|
|
|
do
|
do
|
{
|
{
|
/* OR in the next part of the littlenum. */
|
/* OR in the next part of the littlenum. */
|
val |= (*bignum << loaded);
|
val |= (*bignum << loaded);
|
loaded += LITTLENUM_NUMBER_OF_BITS;
|
loaded += LITTLENUM_NUMBER_OF_BITS;
|
size--;
|
size--;
|
bignum++;
|
bignum++;
|
|
|
/* Add bytes until there are less than 7 bits left in VAL
|
/* Add bytes until there are less than 7 bits left in VAL
|
or until every non-sign bit has been written. */
|
or until every non-sign bit has been written. */
|
do
|
do
|
{
|
{
|
byte = val & 0x7f;
|
byte = val & 0x7f;
|
loaded -= 7;
|
loaded -= 7;
|
val >>= 7;
|
val >>= 7;
|
if (size > 0
|
if (size > 0
|
|| val != ((byte & 0x40) == 0 ? 0 : ((valueT) 1 << loaded) - 1))
|
|| val != ((byte & 0x40) == 0 ? 0 : ((valueT) 1 << loaded) - 1))
|
byte |= 0x80;
|
byte |= 0x80;
|
|
|
if (orig)
|
if (orig)
|
*p = byte;
|
*p = byte;
|
p++;
|
p++;
|
}
|
}
|
while ((byte & 0x80) != 0 && loaded >= 7);
|
while ((byte & 0x80) != 0 && loaded >= 7);
|
}
|
}
|
while (size > 0);
|
while (size > 0);
|
|
|
/* Mop up any left-over bits (of which there will be less than 7). */
|
/* Mop up any left-over bits (of which there will be less than 7). */
|
if ((byte & 0x80) != 0)
|
if ((byte & 0x80) != 0)
|
{
|
{
|
/* Sign-extend VAL. */
|
/* Sign-extend VAL. */
|
if (val & (1 << (loaded - 1)))
|
if (val & (1 << (loaded - 1)))
|
val |= ~0 << loaded;
|
val |= ~0 << loaded;
|
if (orig)
|
if (orig)
|
*p = val & 0x7f;
|
*p = val & 0x7f;
|
p++;
|
p++;
|
}
|
}
|
|
|
return p - orig;
|
return p - orig;
|
}
|
}
|
|
|
static inline int
|
static inline int
|
output_big_uleb128 (char *p, LITTLENUM_TYPE *bignum, int size)
|
output_big_uleb128 (char *p, LITTLENUM_TYPE *bignum, int size)
|
{
|
{
|
char *orig = p;
|
char *orig = p;
|
valueT val = 0;
|
valueT val = 0;
|
int loaded = 0;
|
int loaded = 0;
|
unsigned byte;
|
unsigned byte;
|
|
|
/* Strip leading zeros off the bignum. */
|
/* Strip leading zeros off the bignum. */
|
/* XXX: Is this needed? */
|
/* XXX: Is this needed? */
|
while (size > 0 && bignum[size - 1] == 0)
|
while (size > 0 && bignum[size - 1] == 0)
|
size--;
|
size--;
|
|
|
do
|
do
|
{
|
{
|
if (loaded < 7 && size > 0)
|
if (loaded < 7 && size > 0)
|
{
|
{
|
val |= (*bignum << loaded);
|
val |= (*bignum << loaded);
|
loaded += 8 * CHARS_PER_LITTLENUM;
|
loaded += 8 * CHARS_PER_LITTLENUM;
|
size--;
|
size--;
|
bignum++;
|
bignum++;
|
}
|
}
|
|
|
byte = val & 0x7f;
|
byte = val & 0x7f;
|
loaded -= 7;
|
loaded -= 7;
|
val >>= 7;
|
val >>= 7;
|
|
|
if (size > 0 || val)
|
if (size > 0 || val)
|
byte |= 0x80;
|
byte |= 0x80;
|
|
|
if (orig)
|
if (orig)
|
*p = byte;
|
*p = byte;
|
p++;
|
p++;
|
}
|
}
|
while (byte & 0x80);
|
while (byte & 0x80);
|
|
|
return p - orig;
|
return p - orig;
|
}
|
}
|
|
|
static int
|
static int
|
output_big_leb128 (char *p, LITTLENUM_TYPE *bignum, int size, int sign)
|
output_big_leb128 (char *p, LITTLENUM_TYPE *bignum, int size, int sign)
|
{
|
{
|
if (sign)
|
if (sign)
|
return output_big_sleb128 (p, bignum, size);
|
return output_big_sleb128 (p, bignum, size);
|
else
|
else
|
return output_big_uleb128 (p, bignum, size);
|
return output_big_uleb128 (p, bignum, size);
|
}
|
}
|
|
|
/* Generate the appropriate fragments for a given expression to emit a
|
/* Generate the appropriate fragments for a given expression to emit a
|
leb128 value. */
|
leb128 value. */
|
|
|
static void
|
static void
|
emit_leb128_expr (expressionS *exp, int sign)
|
emit_leb128_expr (expressionS *exp, int sign)
|
{
|
{
|
operatorT op = exp->X_op;
|
operatorT op = exp->X_op;
|
unsigned int nbytes;
|
unsigned int nbytes;
|
|
|
if (op == O_absent || op == O_illegal)
|
if (op == O_absent || op == O_illegal)
|
{
|
{
|
as_warn (_("zero assumed for missing expression"));
|
as_warn (_("zero assumed for missing expression"));
|
exp->X_add_number = 0;
|
exp->X_add_number = 0;
|
op = O_constant;
|
op = O_constant;
|
}
|
}
|
else if (op == O_big && exp->X_add_number <= 0)
|
else if (op == O_big && exp->X_add_number <= 0)
|
{
|
{
|
as_bad (_("floating point number invalid"));
|
as_bad (_("floating point number invalid"));
|
exp->X_add_number = 0;
|
exp->X_add_number = 0;
|
op = O_constant;
|
op = O_constant;
|
}
|
}
|
else if (op == O_register)
|
else if (op == O_register)
|
{
|
{
|
as_warn (_("register value used as expression"));
|
as_warn (_("register value used as expression"));
|
op = O_constant;
|
op = O_constant;
|
}
|
}
|
else if (op == O_constant
|
else if (op == O_constant
|
&& sign
|
&& sign
|
&& (exp->X_add_number < 0) != !exp->X_unsigned)
|
&& (exp->X_add_number < 0) != !exp->X_unsigned)
|
{
|
{
|
/* We're outputting a signed leb128 and the sign of X_add_number
|
/* We're outputting a signed leb128 and the sign of X_add_number
|
doesn't reflect the sign of the original value. Convert EXP
|
doesn't reflect the sign of the original value. Convert EXP
|
to a correctly-extended bignum instead. */
|
to a correctly-extended bignum instead. */
|
convert_to_bignum (exp);
|
convert_to_bignum (exp);
|
op = O_big;
|
op = O_big;
|
}
|
}
|
|
|
/* Let check_eh_frame know that data is being emitted. nbytes == -1 is
|
/* 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. */
|
a signal that this is leb128 data. It shouldn't optimize this away. */
|
nbytes = (unsigned int) -1;
|
nbytes = (unsigned int) -1;
|
if (check_eh_frame (exp, &nbytes))
|
if (check_eh_frame (exp, &nbytes))
|
abort ();
|
abort ();
|
|
|
/* Let the backend know that subsequent data may be byte aligned. */
|
/* Let the backend know that subsequent data may be byte aligned. */
|
#ifdef md_cons_align
|
#ifdef md_cons_align
|
md_cons_align (1);
|
md_cons_align (1);
|
#endif
|
#endif
|
|
|
if (op == O_constant)
|
if (op == O_constant)
|
{
|
{
|
/* If we've got a constant, emit the thing directly right now. */
|
/* If we've got a constant, emit the thing directly right now. */
|
|
|
valueT value = exp->X_add_number;
|
valueT value = exp->X_add_number;
|
int size;
|
int size;
|
char *p;
|
char *p;
|
|
|
size = sizeof_leb128 (value, sign);
|
size = sizeof_leb128 (value, sign);
|
p = frag_more (size);
|
p = frag_more (size);
|
output_leb128 (p, value, sign);
|
output_leb128 (p, value, sign);
|
}
|
}
|
else if (op == O_big)
|
else if (op == O_big)
|
{
|
{
|
/* O_big is a different sort of constant. */
|
/* O_big is a different sort of constant. */
|
|
|
int size;
|
int size;
|
char *p;
|
char *p;
|
|
|
size = output_big_leb128 (NULL, generic_bignum, exp->X_add_number, sign);
|
size = output_big_leb128 (NULL, generic_bignum, exp->X_add_number, sign);
|
p = frag_more (size);
|
p = frag_more (size);
|
output_big_leb128 (p, generic_bignum, exp->X_add_number, sign);
|
output_big_leb128 (p, generic_bignum, exp->X_add_number, sign);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Otherwise, we have to create a variable sized fragment and
|
/* Otherwise, we have to create a variable sized fragment and
|
resolve things later. */
|
resolve things later. */
|
|
|
frag_var (rs_leb128, sizeof_uleb128 (~(valueT) 0), 0, sign,
|
frag_var (rs_leb128, sizeof_uleb128 (~(valueT) 0), 0, sign,
|
make_expr_symbol (exp), 0, (char *) NULL);
|
make_expr_symbol (exp), 0, (char *) NULL);
|
}
|
}
|
}
|
}
|
|
|
/* Parse the .sleb128 and .uleb128 pseudos. */
|
/* Parse the .sleb128 and .uleb128 pseudos. */
|
|
|
void
|
void
|
s_leb128 (int sign)
|
s_leb128 (int sign)
|
{
|
{
|
expressionS exp;
|
expressionS exp;
|
|
|
#ifdef md_flush_pending_output
|
#ifdef md_flush_pending_output
|
md_flush_pending_output ();
|
md_flush_pending_output ();
|
#endif
|
#endif
|
|
|
do
|
do
|
{
|
{
|
expression (&exp);
|
expression (&exp);
|
emit_leb128_expr (&exp, sign);
|
emit_leb128_expr (&exp, sign);
|
}
|
}
|
while (*input_line_pointer++ == ',');
|
while (*input_line_pointer++ == ',');
|
|
|
input_line_pointer--;
|
input_line_pointer--;
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
static void
|
static void
|
stringer_append_char (int c, int bitsize)
|
stringer_append_char (int c, int bitsize)
|
{
|
{
|
if (!target_big_endian)
|
if (!target_big_endian)
|
FRAG_APPEND_1_CHAR (c);
|
FRAG_APPEND_1_CHAR (c);
|
|
|
switch (bitsize)
|
switch (bitsize)
|
{
|
{
|
case 64:
|
case 64:
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
/* Fall through. */
|
/* Fall through. */
|
case 32:
|
case 32:
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
/* Fall through. */
|
/* Fall through. */
|
case 16:
|
case 16:
|
FRAG_APPEND_1_CHAR (0);
|
FRAG_APPEND_1_CHAR (0);
|
/* Fall through. */
|
/* Fall through. */
|
case 8:
|
case 8:
|
break;
|
break;
|
default:
|
default:
|
/* Called with invalid bitsize argument. */
|
/* Called with invalid bitsize argument. */
|
abort ();
|
abort ();
|
break;
|
break;
|
}
|
}
|
if (target_big_endian)
|
if (target_big_endian)
|
FRAG_APPEND_1_CHAR (c);
|
FRAG_APPEND_1_CHAR (c);
|
}
|
}
|
|
|
/* Worker to do .ascii etc statements.
|
/* Worker to do .ascii etc statements.
|
Reads 0 or more ',' separated, double-quoted strings.
|
Reads 0 or more ',' separated, double-quoted strings.
|
Caller should have checked need_pass_2 is FALSE because we don't
|
Caller should have checked need_pass_2 is FALSE because we don't
|
check it.
|
check it.
|
Checks for end-of-line.
|
Checks for end-of-line.
|
BITS_APPENDZERO says how many bits are in a target char.
|
BITS_APPENDZERO says how many bits are in a target char.
|
The bottom bit is set if a NUL char should be appended to the strings. */
|
The bottom bit is set if a NUL char should be appended to the strings. */
|
|
|
void
|
void
|
stringer (int bits_appendzero)
|
stringer (int bits_appendzero)
|
{
|
{
|
const int bitsize = bits_appendzero & ~7;
|
const int bitsize = bits_appendzero & ~7;
|
const int append_zero = bits_appendzero & 1;
|
const int append_zero = bits_appendzero & 1;
|
unsigned int c;
|
unsigned int c;
|
#if !defined(NO_LISTING) && defined (OBJ_ELF)
|
#if !defined(NO_LISTING) && defined (OBJ_ELF)
|
char *start;
|
char *start;
|
#endif
|
#endif
|
|
|
#ifdef md_flush_pending_output
|
#ifdef md_flush_pending_output
|
md_flush_pending_output ();
|
md_flush_pending_output ();
|
#endif
|
#endif
|
|
|
#ifdef md_cons_align
|
#ifdef md_cons_align
|
md_cons_align (1);
|
md_cons_align (1);
|
#endif
|
#endif
|
|
|
/* The following awkward logic is to parse ZERO or more strings,
|
/* The following awkward logic is to parse ZERO or more strings,
|
comma separated. Recall a string expression includes spaces
|
comma separated. Recall a string expression includes spaces
|
before the opening '\"' and spaces after the closing '\"'.
|
before the opening '\"' and spaces after the closing '\"'.
|
We fake a leading ',' if there is (supposed to be)
|
We fake a leading ',' if there is (supposed to be)
|
a 1st, expression. We keep demanding expressions for each ','. */
|
a 1st, expression. We keep demanding expressions for each ','. */
|
if (is_it_end_of_statement ())
|
if (is_it_end_of_statement ())
|
{
|
{
|
c = 0; /* Skip loop. */
|
c = 0; /* Skip loop. */
|
++input_line_pointer; /* Compensate for end of loop. */
|
++input_line_pointer; /* Compensate for end of loop. */
|
}
|
}
|
else
|
else
|
{
|
{
|
c = ','; /* Do loop. */
|
c = ','; /* Do loop. */
|
}
|
}
|
/* If we have been switched into the abs_section then we
|
/* If we have been switched into the abs_section then we
|
will not have an obstack onto which we can hang strings. */
|
will not have an obstack onto which we can hang strings. */
|
if (now_seg == absolute_section)
|
if (now_seg == absolute_section)
|
{
|
{
|
as_bad (_("strings must be placed into a section"));
|
as_bad (_("strings must be placed into a section"));
|
c = 0;
|
c = 0;
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
}
|
}
|
|
|
while (c == ',' || c == '<' || c == '"')
|
while (c == ',' || c == '<' || c == '"')
|
{
|
{
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
switch (*input_line_pointer)
|
switch (*input_line_pointer)
|
{
|
{
|
case '\"':
|
case '\"':
|
++input_line_pointer; /*->1st char of string. */
|
++input_line_pointer; /*->1st char of string. */
|
#if !defined(NO_LISTING) && defined (OBJ_ELF)
|
#if !defined(NO_LISTING) && defined (OBJ_ELF)
|
start = input_line_pointer;
|
start = input_line_pointer;
|
#endif
|
#endif
|
|
|
while (is_a_char (c = next_char_of_string ()))
|
while (is_a_char (c = next_char_of_string ()))
|
stringer_append_char (c, bitsize);
|
stringer_append_char (c, bitsize);
|
|
|
if (append_zero)
|
if (append_zero)
|
stringer_append_char (0, bitsize);
|
stringer_append_char (0, bitsize);
|
|
|
know (input_line_pointer[-1] == '\"');
|
know (input_line_pointer[-1] == '\"');
|
|
|
#if !defined(NO_LISTING) && defined (OBJ_ELF)
|
#if !defined(NO_LISTING) && defined (OBJ_ELF)
|
/* In ELF, when gcc is emitting DWARF 1 debugging output, it
|
/* In ELF, when gcc is emitting DWARF 1 debugging output, it
|
will emit .string with a filename in the .debug section
|
will emit .string with a filename in the .debug section
|
after a sequence of constants. See the comment in
|
after a sequence of constants. See the comment in
|
emit_expr for the sequence. emit_expr will set
|
emit_expr for the sequence. emit_expr will set
|
dwarf_file_string to non-zero if this string might be a
|
dwarf_file_string to non-zero if this string might be a
|
source file name. */
|
source file name. */
|
if (strcmp (segment_name (now_seg), ".debug") != 0)
|
if (strcmp (segment_name (now_seg), ".debug") != 0)
|
dwarf_file_string = 0;
|
dwarf_file_string = 0;
|
else if (dwarf_file_string)
|
else if (dwarf_file_string)
|
{
|
{
|
c = input_line_pointer[-1];
|
c = input_line_pointer[-1];
|
input_line_pointer[-1] = '\0';
|
input_line_pointer[-1] = '\0';
|
listing_source_file (start);
|
listing_source_file (start);
|
input_line_pointer[-1] = c;
|
input_line_pointer[-1] = c;
|
}
|
}
|
#endif
|
#endif
|
|
|
break;
|
break;
|
case '<':
|
case '<':
|
input_line_pointer++;
|
input_line_pointer++;
|
c = get_single_number ();
|
c = get_single_number ();
|
stringer_append_char (c, bitsize);
|
stringer_append_char (c, bitsize);
|
if (*input_line_pointer != '>')
|
if (*input_line_pointer != '>')
|
as_bad (_("expected <nn>"));
|
as_bad (_("expected <nn>"));
|
|
|
input_line_pointer++;
|
input_line_pointer++;
|
break;
|
break;
|
case ',':
|
case ',':
|
input_line_pointer++;
|
input_line_pointer++;
|
break;
|
break;
|
}
|
}
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
c = *input_line_pointer;
|
c = *input_line_pointer;
|
}
|
}
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* FIXME-SOMEDAY: I had trouble here on characters with the
|
/* FIXME-SOMEDAY: I had trouble here on characters with the
|
high bits set. We'll probably also have trouble with
|
high bits set. We'll probably also have trouble with
|
multibyte chars, wide chars, etc. Also be careful about
|
multibyte chars, wide chars, etc. Also be careful about
|
returning values bigger than 1 byte. xoxorich. */
|
returning values bigger than 1 byte. xoxorich. */
|
|
|
unsigned int
|
unsigned int
|
next_char_of_string (void)
|
next_char_of_string (void)
|
{
|
{
|
unsigned int c;
|
unsigned int c;
|
|
|
c = *input_line_pointer++ & CHAR_MASK;
|
c = *input_line_pointer++ & CHAR_MASK;
|
switch (c)
|
switch (c)
|
{
|
{
|
case '\"':
|
case '\"':
|
c = NOT_A_CHAR;
|
c = NOT_A_CHAR;
|
break;
|
break;
|
|
|
case '\n':
|
case '\n':
|
as_warn (_("unterminated string; newline inserted"));
|
as_warn (_("unterminated string; newline inserted"));
|
bump_line_counters ();
|
bump_line_counters ();
|
break;
|
break;
|
|
|
#ifndef NO_STRING_ESCAPES
|
#ifndef NO_STRING_ESCAPES
|
case '\\':
|
case '\\':
|
switch (c = *input_line_pointer++)
|
switch (c = *input_line_pointer++)
|
{
|
{
|
case 'b':
|
case 'b':
|
c = '\b';
|
c = '\b';
|
break;
|
break;
|
|
|
case 'f':
|
case 'f':
|
c = '\f';
|
c = '\f';
|
break;
|
break;
|
|
|
case 'n':
|
case 'n':
|
c = '\n';
|
c = '\n';
|
break;
|
break;
|
|
|
case 'r':
|
case 'r':
|
c = '\r';
|
c = '\r';
|
break;
|
break;
|
|
|
case 't':
|
case 't':
|
c = '\t';
|
c = '\t';
|
break;
|
break;
|
|
|
case 'v':
|
case 'v':
|
c = '\013';
|
c = '\013';
|
break;
|
break;
|
|
|
case '\\':
|
case '\\':
|
case '"':
|
case '"':
|
break; /* As itself. */
|
break; /* As itself. */
|
|
|
case '0':
|
case '0':
|
case '1':
|
case '1':
|
case '2':
|
case '2':
|
case '3':
|
case '3':
|
case '4':
|
case '4':
|
case '5':
|
case '5':
|
case '6':
|
case '6':
|
case '7':
|
case '7':
|
case '8':
|
case '8':
|
case '9':
|
case '9':
|
{
|
{
|
long number;
|
long number;
|
int i;
|
int i;
|
|
|
for (i = 0, number = 0;
|
for (i = 0, number = 0;
|
ISDIGIT (c) && i < 3;
|
ISDIGIT (c) && i < 3;
|
c = *input_line_pointer++, i++)
|
c = *input_line_pointer++, i++)
|
{
|
{
|
number = number * 8 + c - '0';
|
number = number * 8 + c - '0';
|
}
|
}
|
|
|
c = number & 0xff;
|
c = number & 0xff;
|
}
|
}
|
--input_line_pointer;
|
--input_line_pointer;
|
break;
|
break;
|
|
|
case 'x':
|
case 'x':
|
case 'X':
|
case 'X':
|
{
|
{
|
long number;
|
long number;
|
|
|
number = 0;
|
number = 0;
|
c = *input_line_pointer++;
|
c = *input_line_pointer++;
|
while (ISXDIGIT (c))
|
while (ISXDIGIT (c))
|
{
|
{
|
if (ISDIGIT (c))
|
if (ISDIGIT (c))
|
number = number * 16 + c - '0';
|
number = number * 16 + c - '0';
|
else if (ISUPPER (c))
|
else if (ISUPPER (c))
|
number = number * 16 + c - 'A' + 10;
|
number = number * 16 + c - 'A' + 10;
|
else
|
else
|
number = number * 16 + c - 'a' + 10;
|
number = number * 16 + c - 'a' + 10;
|
c = *input_line_pointer++;
|
c = *input_line_pointer++;
|
}
|
}
|
c = number & 0xff;
|
c = number & 0xff;
|
--input_line_pointer;
|
--input_line_pointer;
|
}
|
}
|
break;
|
break;
|
|
|
case '\n':
|
case '\n':
|
/* To be compatible with BSD 4.2 as: give the luser a linefeed!! */
|
/* To be compatible with BSD 4.2 as: give the luser a linefeed!! */
|
as_warn (_("unterminated string; newline inserted"));
|
as_warn (_("unterminated string; newline inserted"));
|
c = '\n';
|
c = '\n';
|
bump_line_counters ();
|
bump_line_counters ();
|
break;
|
break;
|
|
|
default:
|
default:
|
|
|
#ifdef ONLY_STANDARD_ESCAPES
|
#ifdef ONLY_STANDARD_ESCAPES
|
as_bad (_("bad escaped character in string"));
|
as_bad (_("bad escaped character in string"));
|
c = '?';
|
c = '?';
|
#endif /* ONLY_STANDARD_ESCAPES */
|
#endif /* ONLY_STANDARD_ESCAPES */
|
|
|
break;
|
break;
|
}
|
}
|
break;
|
break;
|
#endif /* ! defined (NO_STRING_ESCAPES) */
|
#endif /* ! defined (NO_STRING_ESCAPES) */
|
|
|
default:
|
default:
|
break;
|
break;
|
}
|
}
|
return (c);
|
return (c);
|
}
|
}
|
|
|
static segT
|
static segT
|
get_segmented_expression (expressionS *expP)
|
get_segmented_expression (expressionS *expP)
|
{
|
{
|
segT retval;
|
segT retval;
|
|
|
retval = expression (expP);
|
retval = expression (expP);
|
if (expP->X_op == O_illegal
|
if (expP->X_op == O_illegal
|
|| expP->X_op == O_absent
|
|| expP->X_op == O_absent
|
|| expP->X_op == O_big)
|
|| expP->X_op == O_big)
|
{
|
{
|
as_bad (_("expected address expression"));
|
as_bad (_("expected address expression"));
|
expP->X_op = O_constant;
|
expP->X_op = O_constant;
|
expP->X_add_number = 0;
|
expP->X_add_number = 0;
|
retval = absolute_section;
|
retval = absolute_section;
|
}
|
}
|
return retval;
|
return retval;
|
}
|
}
|
|
|
static segT
|
static segT
|
get_known_segmented_expression (expressionS *expP)
|
get_known_segmented_expression (expressionS *expP)
|
{
|
{
|
segT retval = get_segmented_expression (expP);
|
segT retval = get_segmented_expression (expP);
|
|
|
if (retval == undefined_section)
|
if (retval == undefined_section)
|
{
|
{
|
/* There is no easy way to extract the undefined symbol from the
|
/* There is no easy way to extract the undefined symbol from the
|
expression. */
|
expression. */
|
if (expP->X_add_symbol != NULL
|
if (expP->X_add_symbol != NULL
|
&& S_GET_SEGMENT (expP->X_add_symbol) != expr_section)
|
&& S_GET_SEGMENT (expP->X_add_symbol) != expr_section)
|
as_warn (_("symbol \"%s\" undefined; zero assumed"),
|
as_warn (_("symbol \"%s\" undefined; zero assumed"),
|
S_GET_NAME (expP->X_add_symbol));
|
S_GET_NAME (expP->X_add_symbol));
|
else
|
else
|
as_warn (_("some symbol undefined; zero assumed"));
|
as_warn (_("some symbol undefined; zero assumed"));
|
retval = absolute_section;
|
retval = absolute_section;
|
expP->X_op = O_constant;
|
expP->X_op = O_constant;
|
expP->X_add_number = 0;
|
expP->X_add_number = 0;
|
}
|
}
|
return retval;
|
return retval;
|
}
|
}
|
|
|
char /* Return terminator. */
|
char /* Return terminator. */
|
get_absolute_expression_and_terminator (long *val_pointer /* Return value of expression. */)
|
get_absolute_expression_and_terminator (long *val_pointer /* Return value of expression. */)
|
{
|
{
|
/* FIXME: val_pointer should probably be offsetT *. */
|
/* FIXME: val_pointer should probably be offsetT *. */
|
*val_pointer = (long) get_absolute_expression ();
|
*val_pointer = (long) get_absolute_expression ();
|
return (*input_line_pointer++);
|
return (*input_line_pointer++);
|
}
|
}
|
|
|
/* Like demand_copy_string, but return NULL if the string contains any '\0's.
|
/* Like demand_copy_string, but return NULL if the string contains any '\0's.
|
Give a warning if that happens. */
|
Give a warning if that happens. */
|
|
|
char *
|
char *
|
demand_copy_C_string (int *len_pointer)
|
demand_copy_C_string (int *len_pointer)
|
{
|
{
|
char *s;
|
char *s;
|
|
|
if ((s = demand_copy_string (len_pointer)) != 0)
|
if ((s = demand_copy_string (len_pointer)) != 0)
|
{
|
{
|
int len;
|
int len;
|
|
|
for (len = *len_pointer; len > 0; len--)
|
for (len = *len_pointer; len > 0; len--)
|
{
|
{
|
if (*s == 0)
|
if (*s == 0)
|
{
|
{
|
s = 0;
|
s = 0;
|
len = 1;
|
len = 1;
|
*len_pointer = 0;
|
*len_pointer = 0;
|
as_bad (_("this string may not contain \'\\0\'"));
|
as_bad (_("this string may not contain \'\\0\'"));
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
return s;
|
return s;
|
}
|
}
|
|
|
/* Demand string, but return a safe (=private) copy of the string.
|
/* Demand string, but return a safe (=private) copy of the string.
|
Return NULL if we can't read a string here. */
|
Return NULL if we can't read a string here. */
|
|
|
char *
|
char *
|
demand_copy_string (int *lenP)
|
demand_copy_string (int *lenP)
|
{
|
{
|
unsigned int c;
|
unsigned int c;
|
int len;
|
int len;
|
char *retval;
|
char *retval;
|
|
|
len = 0;
|
len = 0;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer == '\"')
|
if (*input_line_pointer == '\"')
|
{
|
{
|
input_line_pointer++; /* Skip opening quote. */
|
input_line_pointer++; /* Skip opening quote. */
|
|
|
while (is_a_char (c = next_char_of_string ()))
|
while (is_a_char (c = next_char_of_string ()))
|
{
|
{
|
obstack_1grow (¬es, c);
|
obstack_1grow (¬es, c);
|
len++;
|
len++;
|
}
|
}
|
/* JF this next line is so demand_copy_C_string will return a
|
/* JF this next line is so demand_copy_C_string will return a
|
null terminated string. */
|
null terminated string. */
|
obstack_1grow (¬es, '\0');
|
obstack_1grow (¬es, '\0');
|
retval = (char *) obstack_finish (¬es);
|
retval = (char *) obstack_finish (¬es);
|
}
|
}
|
else
|
else
|
{
|
{
|
as_bad (_("missing string"));
|
as_bad (_("missing string"));
|
retval = NULL;
|
retval = NULL;
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
}
|
}
|
*lenP = len;
|
*lenP = len;
|
return (retval);
|
return (retval);
|
}
|
}
|
|
|
/* In: Input_line_pointer->next character.
|
/* In: Input_line_pointer->next character.
|
|
|
Do: Skip input_line_pointer over all whitespace.
|
Do: Skip input_line_pointer over all whitespace.
|
|
|
Out: 1 if input_line_pointer->end-of-line. */
|
Out: 1 if input_line_pointer->end-of-line. */
|
|
|
int
|
int
|
is_it_end_of_statement (void)
|
is_it_end_of_statement (void)
|
{
|
{
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
return (is_end_of_line[(unsigned char) *input_line_pointer]);
|
return (is_end_of_line[(unsigned char) *input_line_pointer]);
|
}
|
}
|
|
|
void
|
void
|
equals (char *sym_name, int reassign)
|
equals (char *sym_name, int reassign)
|
{
|
{
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc = 0;
|
char stopc = 0;
|
|
|
input_line_pointer++;
|
input_line_pointer++;
|
if (*input_line_pointer == '=')
|
if (*input_line_pointer == '=')
|
input_line_pointer++;
|
input_line_pointer++;
|
if (reassign < 0 && *input_line_pointer == '=')
|
if (reassign < 0 && *input_line_pointer == '=')
|
input_line_pointer++;
|
input_line_pointer++;
|
|
|
while (*input_line_pointer == ' ' || *input_line_pointer == '\t')
|
while (*input_line_pointer == ' ' || *input_line_pointer == '\t')
|
input_line_pointer++;
|
input_line_pointer++;
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
assign_symbol (sym_name, reassign >= 0 ? !reassign : reassign);
|
assign_symbol (sym_name, reassign >= 0 ? !reassign : reassign);
|
|
|
if (flag_mri)
|
if (flag_mri)
|
{
|
{
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
}
|
}
|
}
|
}
|
|
|
/* .incbin -- include a file verbatim at the current location. */
|
/* .incbin -- include a file verbatim at the current location. */
|
|
|
void
|
void
|
s_incbin (int x ATTRIBUTE_UNUSED)
|
s_incbin (int x ATTRIBUTE_UNUSED)
|
{
|
{
|
FILE * binfile;
|
FILE * binfile;
|
char * path;
|
char * path;
|
char * filename;
|
char * filename;
|
char * binfrag;
|
char * binfrag;
|
long skip = 0;
|
long skip = 0;
|
long count = 0;
|
long count = 0;
|
long bytes;
|
long bytes;
|
int len;
|
int len;
|
|
|
#ifdef md_flush_pending_output
|
#ifdef md_flush_pending_output
|
md_flush_pending_output ();
|
md_flush_pending_output ();
|
#endif
|
#endif
|
|
|
#ifdef md_cons_align
|
#ifdef md_cons_align
|
md_cons_align (1);
|
md_cons_align (1);
|
#endif
|
#endif
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
filename = demand_copy_string (& len);
|
filename = demand_copy_string (& len);
|
if (filename == NULL)
|
if (filename == NULL)
|
return;
|
return;
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
/* Look for optional skip and count. */
|
/* Look for optional skip and count. */
|
if (* input_line_pointer == ',')
|
if (* input_line_pointer == ',')
|
{
|
{
|
++ input_line_pointer;
|
++ input_line_pointer;
|
skip = get_absolute_expression ();
|
skip = get_absolute_expression ();
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
|
|
if (* input_line_pointer == ',')
|
if (* input_line_pointer == ',')
|
{
|
{
|
++ input_line_pointer;
|
++ input_line_pointer;
|
|
|
count = get_absolute_expression ();
|
count = get_absolute_expression ();
|
if (count == 0)
|
if (count == 0)
|
as_warn (_(".incbin count zero, ignoring `%s'"), filename);
|
as_warn (_(".incbin count zero, ignoring `%s'"), filename);
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
}
|
}
|
}
|
}
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
|
|
/* Try opening absolute path first, then try include dirs. */
|
/* Try opening absolute path first, then try include dirs. */
|
binfile = fopen (filename, FOPEN_RB);
|
binfile = fopen (filename, FOPEN_RB);
|
if (binfile == NULL)
|
if (binfile == NULL)
|
{
|
{
|
int i;
|
int i;
|
|
|
path = (char *) xmalloc ((unsigned long) len + include_dir_maxlen + 5);
|
path = (char *) xmalloc ((unsigned long) len + include_dir_maxlen + 5);
|
|
|
for (i = 0; i < include_dir_count; i++)
|
for (i = 0; i < include_dir_count; i++)
|
{
|
{
|
sprintf (path, "%s/%s", include_dirs[i], filename);
|
sprintf (path, "%s/%s", include_dirs[i], filename);
|
|
|
binfile = fopen (path, FOPEN_RB);
|
binfile = fopen (path, FOPEN_RB);
|
if (binfile != NULL)
|
if (binfile != NULL)
|
break;
|
break;
|
}
|
}
|
|
|
if (binfile == NULL)
|
if (binfile == NULL)
|
as_bad (_("file not found: %s"), filename);
|
as_bad (_("file not found: %s"), filename);
|
}
|
}
|
else
|
else
|
path = xstrdup (filename);
|
path = xstrdup (filename);
|
|
|
if (binfile)
|
if (binfile)
|
{
|
{
|
long file_len;
|
long file_len;
|
|
|
register_dependency (path);
|
register_dependency (path);
|
|
|
/* Compute the length of the file. */
|
/* Compute the length of the file. */
|
if (fseek (binfile, 0, SEEK_END) != 0)
|
if (fseek (binfile, 0, SEEK_END) != 0)
|
{
|
{
|
as_bad (_("seek to end of .incbin file failed `%s'"), path);
|
as_bad (_("seek to end of .incbin file failed `%s'"), path);
|
goto done;
|
goto done;
|
}
|
}
|
file_len = ftell (binfile);
|
file_len = ftell (binfile);
|
|
|
/* If a count was not specified use the remainder of the file. */
|
/* If a count was not specified use the remainder of the file. */
|
if (count == 0)
|
if (count == 0)
|
count = file_len - skip;
|
count = file_len - skip;
|
|
|
if (skip < 0 || count < 0 || file_len < 0 || skip + count > file_len)
|
if (skip < 0 || count < 0 || file_len < 0 || skip + count > file_len)
|
{
|
{
|
as_bad (_("skip (%ld) or count (%ld) invalid for file size (%ld)"),
|
as_bad (_("skip (%ld) or count (%ld) invalid for file size (%ld)"),
|
skip, count, file_len);
|
skip, count, file_len);
|
goto done;
|
goto done;
|
}
|
}
|
|
|
if (fseek (binfile, skip, SEEK_SET) != 0)
|
if (fseek (binfile, skip, SEEK_SET) != 0)
|
{
|
{
|
as_bad (_("could not skip to %ld in file `%s'"), skip, path);
|
as_bad (_("could not skip to %ld in file `%s'"), skip, path);
|
goto done;
|
goto done;
|
}
|
}
|
|
|
/* Allocate frag space and store file contents in it. */
|
/* Allocate frag space and store file contents in it. */
|
binfrag = frag_more (count);
|
binfrag = frag_more (count);
|
|
|
bytes = fread (binfrag, 1, count, binfile);
|
bytes = fread (binfrag, 1, count, binfile);
|
if (bytes < count)
|
if (bytes < count)
|
as_warn (_("truncated file `%s', %ld of %ld bytes read"),
|
as_warn (_("truncated file `%s', %ld of %ld bytes read"),
|
path, bytes, count);
|
path, bytes, count);
|
}
|
}
|
done:
|
done:
|
if (binfile != NULL)
|
if (binfile != NULL)
|
fclose (binfile);
|
fclose (binfile);
|
if (path)
|
if (path)
|
free (path);
|
free (path);
|
}
|
}
|
|
|
/* .include -- include a file at this point. */
|
/* .include -- include a file at this point. */
|
|
|
void
|
void
|
s_include (int arg ATTRIBUTE_UNUSED)
|
s_include (int arg ATTRIBUTE_UNUSED)
|
{
|
{
|
char *filename;
|
char *filename;
|
int i;
|
int i;
|
FILE *try_file;
|
FILE *try_file;
|
char *path;
|
char *path;
|
|
|
if (!flag_m68k_mri)
|
if (!flag_m68k_mri)
|
{
|
{
|
filename = demand_copy_string (&i);
|
filename = demand_copy_string (&i);
|
if (filename == NULL)
|
if (filename == NULL)
|
{
|
{
|
/* demand_copy_string has already printed an error and
|
/* demand_copy_string has already printed an error and
|
called ignore_rest_of_line. */
|
called ignore_rest_of_line. */
|
return;
|
return;
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
i = 0;
|
i = 0;
|
while (!is_end_of_line[(unsigned char) *input_line_pointer]
|
while (!is_end_of_line[(unsigned char) *input_line_pointer]
|
&& *input_line_pointer != ' '
|
&& *input_line_pointer != ' '
|
&& *input_line_pointer != '\t')
|
&& *input_line_pointer != '\t')
|
{
|
{
|
obstack_1grow (¬es, *input_line_pointer);
|
obstack_1grow (¬es, *input_line_pointer);
|
++input_line_pointer;
|
++input_line_pointer;
|
++i;
|
++i;
|
}
|
}
|
|
|
obstack_1grow (¬es, '\0');
|
obstack_1grow (¬es, '\0');
|
filename = (char *) obstack_finish (¬es);
|
filename = (char *) obstack_finish (¬es);
|
while (!is_end_of_line[(unsigned char) *input_line_pointer])
|
while (!is_end_of_line[(unsigned char) *input_line_pointer])
|
++input_line_pointer;
|
++input_line_pointer;
|
}
|
}
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
path = (char *) xmalloc ((unsigned long) i
|
path = (char *) xmalloc ((unsigned long) i
|
+ include_dir_maxlen + 5 /* slop */ );
|
+ include_dir_maxlen + 5 /* slop */ );
|
|
|
for (i = 0; i < include_dir_count; i++)
|
for (i = 0; i < include_dir_count; i++)
|
{
|
{
|
strcpy (path, include_dirs[i]);
|
strcpy (path, include_dirs[i]);
|
strcat (path, "/");
|
strcat (path, "/");
|
strcat (path, filename);
|
strcat (path, filename);
|
if (0 != (try_file = fopen (path, FOPEN_RT)))
|
if (0 != (try_file = fopen (path, FOPEN_RT)))
|
{
|
{
|
fclose (try_file);
|
fclose (try_file);
|
goto gotit;
|
goto gotit;
|
}
|
}
|
}
|
}
|
|
|
free (path);
|
free (path);
|
path = filename;
|
path = filename;
|
gotit:
|
gotit:
|
/* malloc Storage leak when file is found on path. FIXME-SOMEDAY. */
|
/* malloc Storage leak when file is found on path. FIXME-SOMEDAY. */
|
register_dependency (path);
|
register_dependency (path);
|
input_scrub_insert_file (path);
|
input_scrub_insert_file (path);
|
}
|
}
|
|
|
void
|
void
|
add_include_dir (char *path)
|
add_include_dir (char *path)
|
{
|
{
|
int i;
|
int i;
|
|
|
if (include_dir_count == 0)
|
if (include_dir_count == 0)
|
{
|
{
|
include_dirs = (char **) xmalloc (2 * sizeof (*include_dirs));
|
include_dirs = (char **) xmalloc (2 * sizeof (*include_dirs));
|
include_dirs[0] = "."; /* Current dir. */
|
include_dirs[0] = "."; /* Current dir. */
|
include_dir_count = 2;
|
include_dir_count = 2;
|
}
|
}
|
else
|
else
|
{
|
{
|
include_dir_count++;
|
include_dir_count++;
|
include_dirs =
|
include_dirs =
|
(char **) realloc (include_dirs,
|
(char **) realloc (include_dirs,
|
include_dir_count * sizeof (*include_dirs));
|
include_dir_count * sizeof (*include_dirs));
|
}
|
}
|
|
|
include_dirs[include_dir_count - 1] = path; /* New one. */
|
include_dirs[include_dir_count - 1] = path; /* New one. */
|
|
|
i = strlen (path);
|
i = strlen (path);
|
if (i > include_dir_maxlen)
|
if (i > include_dir_maxlen)
|
include_dir_maxlen = i;
|
include_dir_maxlen = i;
|
}
|
}
|
|
|
/* Output debugging information to denote the source file. */
|
/* Output debugging information to denote the source file. */
|
|
|
static void
|
static void
|
generate_file_debug (void)
|
generate_file_debug (void)
|
{
|
{
|
if (debug_type == DEBUG_STABS)
|
if (debug_type == DEBUG_STABS)
|
stabs_generate_asm_file ();
|
stabs_generate_asm_file ();
|
}
|
}
|
|
|
/* Output line number debugging information for the current source line. */
|
/* Output line number debugging information for the current source line. */
|
|
|
void
|
void
|
generate_lineno_debug (void)
|
generate_lineno_debug (void)
|
{
|
{
|
switch (debug_type)
|
switch (debug_type)
|
{
|
{
|
case DEBUG_UNSPECIFIED:
|
case DEBUG_UNSPECIFIED:
|
case DEBUG_NONE:
|
case DEBUG_NONE:
|
case DEBUG_DWARF:
|
case DEBUG_DWARF:
|
break;
|
break;
|
case DEBUG_STABS:
|
case DEBUG_STABS:
|
stabs_generate_asm_lineno ();
|
stabs_generate_asm_lineno ();
|
break;
|
break;
|
case DEBUG_ECOFF:
|
case DEBUG_ECOFF:
|
ecoff_generate_asm_lineno ();
|
ecoff_generate_asm_lineno ();
|
break;
|
break;
|
case DEBUG_DWARF2:
|
case DEBUG_DWARF2:
|
/* ??? We could here indicate to dwarf2dbg.c that something
|
/* ??? We could here indicate to dwarf2dbg.c that something
|
has changed. However, since there is additional backend
|
has changed. However, since there is additional backend
|
support that is required (calling dwarf2_emit_insn), we
|
support that is required (calling dwarf2_emit_insn), we
|
let dwarf2dbg.c call as_where on its own. */
|
let dwarf2dbg.c call as_where on its own. */
|
break;
|
break;
|
}
|
}
|
}
|
}
|
|
|
/* Output debugging information to mark a function entry point or end point.
|
/* Output debugging information to mark a function entry point or end point.
|
END_P is zero for .func, and non-zero for .endfunc. */
|
END_P is zero for .func, and non-zero for .endfunc. */
|
|
|
void
|
void
|
s_func (int end_p)
|
s_func (int end_p)
|
{
|
{
|
do_s_func (end_p, NULL);
|
do_s_func (end_p, NULL);
|
}
|
}
|
|
|
/* Subroutine of s_func so targets can choose a different default prefix.
|
/* Subroutine of s_func so targets can choose a different default prefix.
|
If DEFAULT_PREFIX is NULL, use the target's "leading char". */
|
If DEFAULT_PREFIX is NULL, use the target's "leading char". */
|
|
|
static void
|
static void
|
do_s_func (int end_p, const char *default_prefix)
|
do_s_func (int end_p, const char *default_prefix)
|
{
|
{
|
/* Record the current function so that we can issue an error message for
|
/* Record the current function so that we can issue an error message for
|
misplaced .func,.endfunc, and also so that .endfunc needs no
|
misplaced .func,.endfunc, and also so that .endfunc needs no
|
arguments. */
|
arguments. */
|
static char *current_name;
|
static char *current_name;
|
static char *current_label;
|
static char *current_label;
|
|
|
if (end_p)
|
if (end_p)
|
{
|
{
|
if (current_name == NULL)
|
if (current_name == NULL)
|
{
|
{
|
as_bad (_("missing .func"));
|
as_bad (_("missing .func"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
if (debug_type == DEBUG_STABS)
|
if (debug_type == DEBUG_STABS)
|
stabs_generate_asm_endfunc (current_name, current_label);
|
stabs_generate_asm_endfunc (current_name, current_label);
|
|
|
current_name = current_label = NULL;
|
current_name = current_label = NULL;
|
}
|
}
|
else /* ! end_p */
|
else /* ! end_p */
|
{
|
{
|
char *name, *label;
|
char *name, *label;
|
char delim1, delim2;
|
char delim1, delim2;
|
|
|
if (current_name != NULL)
|
if (current_name != NULL)
|
{
|
{
|
as_bad (_(".endfunc missing for previous .func"));
|
as_bad (_(".endfunc missing for previous .func"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
name = input_line_pointer;
|
name = input_line_pointer;
|
delim1 = get_symbol_end ();
|
delim1 = get_symbol_end ();
|
name = xstrdup (name);
|
name = xstrdup (name);
|
*input_line_pointer = delim1;
|
*input_line_pointer = delim1;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer != ',')
|
if (*input_line_pointer != ',')
|
{
|
{
|
if (default_prefix)
|
if (default_prefix)
|
{
|
{
|
if (asprintf (&label, "%s%s", default_prefix, name) == -1)
|
if (asprintf (&label, "%s%s", default_prefix, name) == -1)
|
as_fatal ("%s", xstrerror (errno));
|
as_fatal ("%s", xstrerror (errno));
|
}
|
}
|
else
|
else
|
{
|
{
|
char leading_char = bfd_get_symbol_leading_char (stdoutput);
|
char leading_char = bfd_get_symbol_leading_char (stdoutput);
|
/* Missing entry point, use function's name with the leading
|
/* Missing entry point, use function's name with the leading
|
char prepended. */
|
char prepended. */
|
if (leading_char)
|
if (leading_char)
|
{
|
{
|
if (asprintf (&label, "%c%s", leading_char, name) == -1)
|
if (asprintf (&label, "%c%s", leading_char, name) == -1)
|
as_fatal ("%s", xstrerror (errno));
|
as_fatal ("%s", xstrerror (errno));
|
}
|
}
|
else
|
else
|
label = name;
|
label = name;
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
++input_line_pointer;
|
++input_line_pointer;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
label = input_line_pointer;
|
label = input_line_pointer;
|
delim2 = get_symbol_end ();
|
delim2 = get_symbol_end ();
|
label = xstrdup (label);
|
label = xstrdup (label);
|
*input_line_pointer = delim2;
|
*input_line_pointer = delim2;
|
}
|
}
|
|
|
if (debug_type == DEBUG_STABS)
|
if (debug_type == DEBUG_STABS)
|
stabs_generate_asm_func (name, label);
|
stabs_generate_asm_func (name, label);
|
|
|
current_name = name;
|
current_name = name;
|
current_label = label;
|
current_label = label;
|
}
|
}
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
void
|
void
|
s_ignore (int arg ATTRIBUTE_UNUSED)
|
s_ignore (int arg ATTRIBUTE_UNUSED)
|
{
|
{
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
}
|
}
|
|
|
void
|
void
|
read_print_statistics (FILE *file)
|
read_print_statistics (FILE *file)
|
{
|
{
|
hash_print_statistics (file, "pseudo-op table", po_hash);
|
hash_print_statistics (file, "pseudo-op table", po_hash);
|
}
|
}
|
|
|
/* Inserts the given line into the input stream.
|
/* Inserts the given line into the input stream.
|
|
|
This call avoids macro/conditionals nesting checking, since the contents of
|
This call avoids macro/conditionals nesting checking, since the contents of
|
the line are assumed to replace the contents of a line already scanned.
|
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
|
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
|
called by md_start_line_hook(). The given line is assumed to already be
|
properly scrubbed. */
|
properly scrubbed. */
|
|
|
void
|
void
|
input_scrub_insert_line (const char *line)
|
input_scrub_insert_line (const char *line)
|
{
|
{
|
sb newline;
|
sb newline;
|
sb_new (&newline);
|
sb_new (&newline);
|
sb_add_string (&newline, line);
|
sb_add_string (&newline, line);
|
input_scrub_include_sb (&newline, input_line_pointer, 0);
|
input_scrub_include_sb (&newline, input_line_pointer, 0);
|
sb_kill (&newline);
|
sb_kill (&newline);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
}
|
}
|
|
|
/* Insert a file into the input stream; the path must resolve to an actual
|
/* Insert a file into the input stream; the path must resolve to an actual
|
file; no include path searching or dependency registering is performed. */
|
file; no include path searching or dependency registering is performed. */
|
|
|
void
|
void
|
input_scrub_insert_file (char *path)
|
input_scrub_insert_file (char *path)
|
{
|
{
|
input_scrub_include_file (path, input_line_pointer);
|
input_scrub_include_file (path, input_line_pointer);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
}
|
}
|
|
|
/* Find the end of a line, considering quotation and escaping of quotes. */
|
/* Find the end of a line, considering quotation and escaping of quotes. */
|
|
|
#if !defined(TC_SINGLE_QUOTE_STRINGS) && defined(SINGLE_QUOTE_STRINGS)
|
#if !defined(TC_SINGLE_QUOTE_STRINGS) && defined(SINGLE_QUOTE_STRINGS)
|
# define TC_SINGLE_QUOTE_STRINGS 1
|
# define TC_SINGLE_QUOTE_STRINGS 1
|
#endif
|
#endif
|
|
|
static char *
|
static char *
|
_find_end_of_line (char *s, int mri_string, int insn ATTRIBUTE_UNUSED,
|
_find_end_of_line (char *s, int mri_string, int insn ATTRIBUTE_UNUSED,
|
int in_macro)
|
int in_macro)
|
{
|
{
|
char inquote = '\0';
|
char inquote = '\0';
|
int inescape = 0;
|
int inescape = 0;
|
|
|
while (!is_end_of_line[(unsigned char) *s]
|
while (!is_end_of_line[(unsigned char) *s]
|
|| (inquote && !ISCNTRL (*s))
|
|| (inquote && !ISCNTRL (*s))
|
|| (inquote == '\'' && flag_mri)
|
|| (inquote == '\'' && flag_mri)
|
#ifdef TC_EOL_IN_INSN
|
#ifdef TC_EOL_IN_INSN
|
|| (insn && TC_EOL_IN_INSN (s))
|
|| (insn && TC_EOL_IN_INSN (s))
|
#endif
|
#endif
|
/* PR 6926: When we are parsing the body of a macro the sequence
|
/* PR 6926: When we are parsing the body of a macro the sequence
|
\@ is special - it refers to the invocation count. If the @
|
\@ is special - it refers to the invocation count. If the @
|
character happens to be registered as a line-separator character
|
character happens to be registered as a line-separator character
|
by the target, then the is_end_of_line[] test above will have
|
by the target, then the is_end_of_line[] test above will have
|
returned true, but we need to ignore the line separating
|
returned true, but we need to ignore the line separating
|
semantics in this particular case. */
|
semantics in this particular case. */
|
|| (in_macro && inescape && *s == '@')
|
|| (in_macro && inescape && *s == '@')
|
)
|
)
|
{
|
{
|
if (mri_string && *s == '\'')
|
if (mri_string && *s == '\'')
|
inquote ^= *s;
|
inquote ^= *s;
|
else if (inescape)
|
else if (inescape)
|
inescape = 0;
|
inescape = 0;
|
else if (*s == '\\')
|
else if (*s == '\\')
|
inescape = 1;
|
inescape = 1;
|
else if (!inquote
|
else if (!inquote
|
? *s == '"'
|
? *s == '"'
|
#ifdef TC_SINGLE_QUOTE_STRINGS
|
#ifdef TC_SINGLE_QUOTE_STRINGS
|
|| (TC_SINGLE_QUOTE_STRINGS && *s == '\'')
|
|| (TC_SINGLE_QUOTE_STRINGS && *s == '\'')
|
#endif
|
#endif
|
: *s == inquote)
|
: *s == inquote)
|
inquote ^= *s;
|
inquote ^= *s;
|
++s;
|
++s;
|
}
|
}
|
if (inquote)
|
if (inquote)
|
as_warn (_("missing closing `%c'"), inquote);
|
as_warn (_("missing closing `%c'"), inquote);
|
if (inescape)
|
if (inescape)
|
as_warn (_("stray `\\'"));
|
as_warn (_("stray `\\'"));
|
return s;
|
return s;
|
}
|
}
|
|
|
char *
|
char *
|
find_end_of_line (char *s, int mri_string)
|
find_end_of_line (char *s, int mri_string)
|
{
|
{
|
return _find_end_of_line (s, mri_string, 0, 0);
|
return _find_end_of_line (s, mri_string, 0, 0);
|
}
|
}
|
|
|
