2003-11-23 02:14:21 +00:00
|
|
|
/* listing.c - maintain assembly listings
|
2001-03-31 06:47:54 +00:00
|
|
|
Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
|
2005-03-03 01:29:54 +00:00
|
|
|
2001, 2002, 2003, 2005
|
1999-05-03 07:29:11 +00:00
|
|
|
Free Software Foundation, Inc.
|
|
|
|
|
2003-12-19 15:23:41 +00:00
|
|
|
This file is part of GAS, the GNU Assembler.
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2003-12-19 15:23:41 +00:00
|
|
|
GAS is free software; you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
|
|
any later version.
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2003-12-19 15:23:41 +00:00
|
|
|
GAS is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2003-12-19 15:23:41 +00:00
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with GAS; see the file COPYING. If not, write to the Free
|
|
|
|
Software Foundation, 59 Temple Place - Suite 330, Boston, MA
|
|
|
|
02111-1307, USA. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2003-12-19 15:23:41 +00:00
|
|
|
/* Contributed by Steve Chamberlain <sac@cygnus.com>
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
A listing page looks like:
|
|
|
|
|
|
|
|
LISTING_HEADER sourcefilename pagenumber
|
|
|
|
TITLE LINE
|
|
|
|
SUBTITLE LINE
|
|
|
|
linenumber address data source
|
|
|
|
linenumber address data source
|
|
|
|
linenumber address data source
|
|
|
|
linenumber address data source
|
|
|
|
|
|
|
|
If not overridden, the listing commands are:
|
|
|
|
|
|
|
|
.title "stuff"
|
|
|
|
Put "stuff" onto the title line
|
|
|
|
.sbttl "stuff"
|
|
|
|
Put stuff onto the subtitle line
|
|
|
|
|
|
|
|
If these commands come within 10 lines of the top of the page, they
|
|
|
|
will affect the page they are on, as well as any subsequent page
|
|
|
|
|
|
|
|
.eject
|
|
|
|
Thow a page
|
|
|
|
.list
|
|
|
|
Increment the enable listing counter
|
|
|
|
.nolist
|
|
|
|
Decrement the enable listing counter
|
|
|
|
|
|
|
|
.psize Y[,X]
|
|
|
|
Set the paper size to X wide and Y high. Setting a psize Y of
|
|
|
|
zero will suppress form feeds except where demanded by .eject
|
|
|
|
|
|
|
|
If the counter goes below zero, listing is suppressed.
|
|
|
|
|
|
|
|
Listings are a maintained by read calling various listing_<foo>
|
|
|
|
functions. What happens most is that the macro NO_LISTING is not
|
|
|
|
defined (from the Makefile), then the macro LISTING_NEWLINE expands
|
|
|
|
into a call to listing_newline. The call is done from read.c, every
|
|
|
|
time it sees a newline, and -l is on the command line.
|
|
|
|
|
|
|
|
The function listing_newline remembers the frag associated with the
|
|
|
|
newline, and creates a new frag - note that this is wasteful, but not
|
|
|
|
a big deal, since listing slows things down a lot anyway. The
|
2003-10-27 12:45:17 +00:00
|
|
|
function also remembers when the filename changes.
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
When all the input has finished, and gas has had a chance to settle
|
|
|
|
down, the listing is output. This is done by running down the list of
|
|
|
|
frag/source file records, and opening the files as needed and printing
|
|
|
|
out the bytes and chars associated with them.
|
|
|
|
|
|
|
|
The only things which the architecture can change about the listing
|
|
|
|
are defined in these macros:
|
|
|
|
|
|
|
|
LISTING_HEADER The name of the architecture
|
|
|
|
LISTING_WORD_SIZE The make of the number of bytes in a word, this determines
|
|
|
|
the clumping of the output data. eg a value of
|
|
|
|
2 makes words look like 1234 5678, whilst 1
|
|
|
|
would make the same value look like 12 34 56
|
|
|
|
78
|
|
|
|
LISTING_LHS_WIDTH Number of words of above size for the lhs
|
|
|
|
|
|
|
|
LISTING_LHS_WIDTH_SECOND Number of words for the data on the lhs
|
|
|
|
for the second line
|
|
|
|
|
2003-10-27 12:45:17 +00:00
|
|
|
LISTING_LHS_CONT_LINES Max number of lines to use up for a continuation
|
1999-05-03 07:29:11 +00:00
|
|
|
LISTING_RHS_WIDTH Number of chars from the input file to print
|
2003-12-19 15:23:41 +00:00
|
|
|
on a line. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
#include "as.h"
|
2002-05-25 12:53:29 +00:00
|
|
|
#include "obstack.h"
|
2001-09-19 05:33:36 +00:00
|
|
|
#include "safe-ctype.h"
|
1999-05-03 07:29:11 +00:00
|
|
|
#include "input-file.h"
|
|
|
|
#include "subsegs.h"
|
|
|
|
|
|
|
|
#ifndef NO_LISTING
|
|
|
|
|
|
|
|
#ifndef LISTING_HEADER
|
|
|
|
#define LISTING_HEADER "GAS LISTING"
|
|
|
|
#endif
|
|
|
|
#ifndef LISTING_WORD_SIZE
|
|
|
|
#define LISTING_WORD_SIZE 4
|
|
|
|
#endif
|
|
|
|
#ifndef LISTING_LHS_WIDTH
|
2000-03-27 23:47:09 +00:00
|
|
|
#define LISTING_LHS_WIDTH ((LISTING_WORD_SIZE) > 4 ? 1 : 4 / (LISTING_WORD_SIZE))
|
1999-05-03 07:29:11 +00:00
|
|
|
#endif
|
|
|
|
#ifndef LISTING_LHS_WIDTH_SECOND
|
2000-03-27 23:47:09 +00:00
|
|
|
#define LISTING_LHS_WIDTH_SECOND LISTING_LHS_WIDTH
|
1999-05-03 07:29:11 +00:00
|
|
|
#endif
|
|
|
|
#ifndef LISTING_RHS_WIDTH
|
|
|
|
#define LISTING_RHS_WIDTH 100
|
|
|
|
#endif
|
|
|
|
#ifndef LISTING_LHS_CONT_LINES
|
|
|
|
#define LISTING_LHS_CONT_LINES 4
|
|
|
|
#endif
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* This structure remembers which .s were used. */
|
2003-12-19 15:23:41 +00:00
|
|
|
typedef struct file_info_struct
|
|
|
|
{
|
1999-05-03 07:29:11 +00:00
|
|
|
struct file_info_struct * next;
|
|
|
|
char * filename;
|
|
|
|
long pos;
|
|
|
|
unsigned int linenum;
|
|
|
|
int at_end;
|
2000-11-07 01:18:45 +00:00
|
|
|
} file_info_type;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2003-10-27 12:45:17 +00:00
|
|
|
/* This structure remembers which line from which file goes into which
|
2000-08-31 06:11:03 +00:00
|
|
|
frag. */
|
2003-12-19 15:23:41 +00:00
|
|
|
struct list_info_struct
|
|
|
|
{
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Frag which this line of source is nearest to. */
|
|
|
|
fragS *frag;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* The actual line in the source file. */
|
1999-05-03 07:29:11 +00:00
|
|
|
unsigned int line;
|
2003-12-19 15:23:41 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
/* Pointer to the file info struct for the file which this line
|
2000-08-31 06:11:03 +00:00
|
|
|
belongs to. */
|
|
|
|
file_info_type *file;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
/* The expanded text of any macro that may have been executing. */
|
2000-08-31 06:11:03 +00:00
|
|
|
char *line_contents;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Next in list. */
|
|
|
|
struct list_info_struct *next;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
/* Pointer to the file info struct for the high level language
|
2000-08-31 06:11:03 +00:00
|
|
|
source line that belongs here. */
|
|
|
|
file_info_type *hll_file;
|
2003-12-19 15:23:41 +00:00
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* High level language source line. */
|
1999-05-03 07:29:11 +00:00
|
|
|
unsigned int hll_line;
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Pointer to any error message associated with this line. */
|
|
|
|
char *message;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2003-12-19 15:23:41 +00:00
|
|
|
enum
|
|
|
|
{
|
|
|
|
EDICT_NONE,
|
|
|
|
EDICT_SBTTL,
|
|
|
|
EDICT_TITLE,
|
|
|
|
EDICT_NOLIST,
|
|
|
|
EDICT_LIST,
|
|
|
|
EDICT_NOLIST_NEXT,
|
|
|
|
EDICT_EJECT
|
|
|
|
} edict;
|
2000-08-31 06:11:03 +00:00
|
|
|
char *edict_arg;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
/* Nonzero if this line is to be omitted because it contains
|
|
|
|
debugging information. This can become a flags field if we come
|
|
|
|
up with more information to store here. */
|
|
|
|
int debugging;
|
|
|
|
};
|
|
|
|
|
|
|
|
typedef struct list_info_struct list_info_type;
|
|
|
|
|
|
|
|
int listing_lhs_width = LISTING_LHS_WIDTH;
|
|
|
|
int listing_lhs_width_second = LISTING_LHS_WIDTH_SECOND;
|
|
|
|
int listing_lhs_cont_lines = LISTING_LHS_CONT_LINES;
|
|
|
|
int listing_rhs_width = LISTING_RHS_WIDTH;
|
|
|
|
|
|
|
|
struct list_info_struct * listing_tail;
|
|
|
|
|
|
|
|
static file_info_type * file_info_head;
|
|
|
|
static file_info_type * last_open_file_info;
|
|
|
|
static FILE * last_open_file;
|
|
|
|
static struct list_info_struct * head;
|
|
|
|
static int paper_width = 200;
|
|
|
|
static int paper_height = 60;
|
|
|
|
|
|
|
|
extern int listing;
|
|
|
|
|
|
|
|
/* File to output listings to. */
|
2000-11-07 01:18:45 +00:00
|
|
|
static FILE *list_file;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
/* This static array is used to keep the text of data to be printed
|
|
|
|
before the start of the line. */
|
|
|
|
|
|
|
|
#define MAX_BYTES \
|
|
|
|
(((LISTING_WORD_SIZE * 2) + 1) * listing_lhs_width \
|
|
|
|
+ ((((LISTING_WORD_SIZE * 2) + 1) * listing_lhs_width_second) \
|
|
|
|
* listing_lhs_cont_lines) \
|
|
|
|
+ 20)
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
static char *data_buffer;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
/* Prototypes. */
|
2003-12-19 15:23:41 +00:00
|
|
|
static void listing_message (const char *, const char *);
|
|
|
|
static file_info_type *file_info (const char *);
|
2003-11-24 17:52:33 +00:00
|
|
|
static void new_frag (void);
|
2003-12-19 15:23:41 +00:00
|
|
|
static char *buffer_line (file_info_type *, char *, unsigned int);
|
|
|
|
static void listing_page (list_info_type *);
|
|
|
|
static unsigned int calc_hex (list_info_type *);
|
|
|
|
static void print_lines (list_info_type *, unsigned int, char *, unsigned int);
|
2003-11-24 17:52:33 +00:00
|
|
|
static void list_symbol_table (void);
|
2003-12-19 15:23:41 +00:00
|
|
|
static void print_source (file_info_type *, list_info_type *, char *, unsigned int);
|
2003-11-24 17:52:33 +00:00
|
|
|
static int debugging_pseudo (list_info_type *, const char *);
|
2003-12-19 15:23:41 +00:00
|
|
|
static void listing_listing (char *);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
static void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_message (const char *name, const char *message)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
if (listing_tail != (list_info_type *) NULL)
|
|
|
|
{
|
2001-01-01 01:51:17 +00:00
|
|
|
unsigned int l = strlen (name) + strlen (message) + 1;
|
|
|
|
char *n = (char *) xmalloc (l);
|
|
|
|
strcpy (n, name);
|
|
|
|
strcat (n, message);
|
1999-05-03 07:29:11 +00:00
|
|
|
listing_tail->message = n;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_warning (const char *message)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
listing_message (_("Warning:"), message);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_error (const char *message)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
listing_message (_("Error:"), message);
|
|
|
|
}
|
|
|
|
|
|
|
|
static file_info_type *
|
2003-11-24 17:52:33 +00:00
|
|
|
file_info (const char *file_name)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Find an entry with this file name. */
|
1999-05-03 07:29:11 +00:00
|
|
|
file_info_type *p = file_info_head;
|
|
|
|
|
|
|
|
while (p != (file_info_type *) NULL)
|
|
|
|
{
|
|
|
|
if (strcmp (p->filename, file_name) == 0)
|
|
|
|
return p;
|
|
|
|
p = p->next;
|
|
|
|
}
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Make new entry. */
|
2003-12-19 15:23:41 +00:00
|
|
|
p = xmalloc (sizeof (file_info_type));
|
1999-05-03 07:29:11 +00:00
|
|
|
p->next = file_info_head;
|
|
|
|
file_info_head = p;
|
2002-06-26 01:18:42 +00:00
|
|
|
p->filename = xstrdup (file_name);
|
1999-05-03 07:29:11 +00:00
|
|
|
p->pos = 0;
|
|
|
|
p->linenum = 0;
|
|
|
|
p->at_end = 0;
|
|
|
|
|
|
|
|
return p;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-11-24 17:52:33 +00:00
|
|
|
new_frag (void)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
frag_wane (frag_now);
|
|
|
|
frag_new (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_newline (char *ps)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
char *file;
|
|
|
|
unsigned int line;
|
|
|
|
static unsigned int last_line = 0xffff;
|
|
|
|
static char *last_file = NULL;
|
|
|
|
list_info_type *new = NULL;
|
|
|
|
|
|
|
|
if (listing == 0)
|
|
|
|
return;
|
|
|
|
|
|
|
|
if (now_seg == absolute_section)
|
|
|
|
return;
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
/* In ELF, anything in a section beginning with .debug or .line is
|
|
|
|
considered to be debugging information. This includes the
|
|
|
|
statement which switches us into the debugging section, which we
|
|
|
|
can only set after we are already in the debugging section. */
|
|
|
|
if ((listing & LISTING_NODEBUG) != 0
|
|
|
|
&& listing_tail != NULL
|
|
|
|
&& ! listing_tail->debugging)
|
|
|
|
{
|
|
|
|
const char *segname;
|
|
|
|
|
|
|
|
segname = segment_name (now_seg);
|
|
|
|
if (strncmp (segname, ".debug", sizeof ".debug" - 1) == 0
|
|
|
|
|| strncmp (segname, ".line", sizeof ".line" - 1) == 0)
|
|
|
|
listing_tail->debugging = 1;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
as_where (&file, &line);
|
|
|
|
if (ps == NULL)
|
|
|
|
{
|
2000-08-31 06:11:03 +00:00
|
|
|
if (line == last_line
|
|
|
|
&& !(last_file && file && strcmp (file, last_file)))
|
1999-05-03 07:29:11 +00:00
|
|
|
return;
|
|
|
|
|
|
|
|
new = (list_info_type *) xmalloc (sizeof (list_info_type));
|
|
|
|
|
|
|
|
/* Detect if we are reading from stdin by examining the file
|
|
|
|
name returned by as_where().
|
|
|
|
|
|
|
|
[FIXME: We rely upon the name in the strcmp below being the
|
|
|
|
same as the one used by input_scrub_new_file(), if that is
|
|
|
|
not true, then this code will fail].
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
If we are reading from stdin, then we need to save each input
|
|
|
|
line here (assuming of course that we actually have a line of
|
|
|
|
input to read), so that it can be displayed in the listing
|
|
|
|
that is produced at the end of the assembly. */
|
1999-05-03 07:29:11 +00:00
|
|
|
if (strcmp (file, _("{standard input}")) == 0
|
|
|
|
&& input_line_pointer != NULL)
|
|
|
|
{
|
2000-08-31 06:11:03 +00:00
|
|
|
char *copy;
|
1999-05-03 07:29:11 +00:00
|
|
|
int len;
|
|
|
|
int seen_quote = 0;
|
|
|
|
|
|
|
|
for (copy = input_line_pointer - 1;
|
2000-08-31 06:11:03 +00:00
|
|
|
*copy && (seen_quote
|
|
|
|
|| (! is_end_of_line [(unsigned char) *copy]));
|
|
|
|
copy++)
|
|
|
|
if (*copy == '"' && copy[-1] != '\\')
|
1999-05-03 07:29:11 +00:00
|
|
|
seen_quote = ! seen_quote;
|
|
|
|
|
|
|
|
len = (copy - input_line_pointer) + 2;
|
|
|
|
|
|
|
|
copy = xmalloc (len);
|
|
|
|
|
|
|
|
if (copy != NULL)
|
|
|
|
{
|
2000-08-31 06:11:03 +00:00
|
|
|
char *src = input_line_pointer - 1;
|
|
|
|
char *dest = copy;
|
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
while (--len)
|
|
|
|
{
|
2000-08-31 06:11:03 +00:00
|
|
|
unsigned char c = *src++;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
/* Omit control characters in the listing. */
|
2001-09-19 05:33:36 +00:00
|
|
|
if (!ISCNTRL (c))
|
2000-08-31 06:11:03 +00:00
|
|
|
*dest++ = c;
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
*dest = 0;
|
|
|
|
}
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
new->line_contents = copy;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
new->line_contents = NULL;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2003-12-19 15:23:41 +00:00
|
|
|
new = xmalloc (sizeof (list_info_type));
|
1999-05-03 07:29:11 +00:00
|
|
|
new->line_contents = ps;
|
|
|
|
}
|
|
|
|
|
|
|
|
last_line = line;
|
|
|
|
last_file = file;
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
new_frag ();
|
|
|
|
|
|
|
|
if (listing_tail)
|
|
|
|
listing_tail->next = new;
|
|
|
|
else
|
|
|
|
head = new;
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
listing_tail = new;
|
|
|
|
|
|
|
|
new->frag = frag_now;
|
|
|
|
new->line = line;
|
|
|
|
new->file = file_info (file);
|
|
|
|
new->next = (list_info_type *) NULL;
|
|
|
|
new->message = (char *) NULL;
|
|
|
|
new->edict = EDICT_NONE;
|
|
|
|
new->hll_file = (file_info_type *) NULL;
|
|
|
|
new->hll_line = 0;
|
|
|
|
new->debugging = 0;
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
new_frag ();
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
/* In ELF, anything in a section beginning with .debug or .line is
|
|
|
|
considered to be debugging information. */
|
|
|
|
if ((listing & LISTING_NODEBUG) != 0)
|
|
|
|
{
|
|
|
|
const char *segname;
|
|
|
|
|
|
|
|
segname = segment_name (now_seg);
|
|
|
|
if (strncmp (segname, ".debug", sizeof ".debug" - 1) == 0
|
|
|
|
|| strncmp (segname, ".line", sizeof ".line" - 1) == 0)
|
|
|
|
new->debugging = 1;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Attach all current frags to the previous line instead of the
|
|
|
|
current line. This is called by the MIPS backend when it discovers
|
|
|
|
that it needs to add some NOP instructions; the added NOP
|
|
|
|
instructions should go with the instruction that has the delay, not
|
|
|
|
with the new instruction. */
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_prev_line (void)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
list_info_type *l;
|
|
|
|
fragS *f;
|
|
|
|
|
|
|
|
if (head == (list_info_type *) NULL
|
|
|
|
|| head == listing_tail)
|
|
|
|
return;
|
|
|
|
|
|
|
|
new_frag ();
|
|
|
|
|
|
|
|
for (l = head; l->next != listing_tail; l = l->next)
|
|
|
|
;
|
|
|
|
|
|
|
|
for (f = frchain_now->frch_root; f != (fragS *) NULL; f = f->fr_next)
|
|
|
|
if (f->line == listing_tail)
|
|
|
|
f->line = l;
|
|
|
|
|
|
|
|
listing_tail->frag = frag_now;
|
|
|
|
new_frag ();
|
|
|
|
}
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* This function returns the next source line from the file supplied,
|
|
|
|
truncated to size. It appends a fake line to the end of each input
|
|
|
|
file to make. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
static char *
|
2003-11-24 17:52:33 +00:00
|
|
|
buffer_line (file_info_type *file, char *line, unsigned int size)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
unsigned int count = 0;
|
|
|
|
int c;
|
|
|
|
|
|
|
|
char *p = line;
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* If we couldn't open the file, return an empty line. */
|
1999-05-03 07:29:11 +00:00
|
|
|
if (file->at_end)
|
|
|
|
return "";
|
|
|
|
|
|
|
|
/* Check the cache and see if we last used this file. */
|
|
|
|
if (!last_open_file_info || file != last_open_file_info)
|
|
|
|
{
|
|
|
|
if (last_open_file)
|
|
|
|
{
|
|
|
|
last_open_file_info->pos = ftell (last_open_file);
|
|
|
|
fclose (last_open_file);
|
|
|
|
}
|
|
|
|
|
|
|
|
last_open_file_info = file;
|
2001-07-10 09:45:50 +00:00
|
|
|
last_open_file = fopen (file->filename, FOPEN_RT);
|
1999-05-03 07:29:11 +00:00
|
|
|
if (last_open_file == NULL)
|
|
|
|
{
|
|
|
|
file->at_end = 1;
|
|
|
|
return "";
|
|
|
|
}
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
/* Seek to where we were last time this file was open. */
|
|
|
|
if (file->pos)
|
2000-08-31 06:11:03 +00:00
|
|
|
fseek (last_open_file, file->pos, SEEK_SET);
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
c = fgetc (last_open_file);
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Leave room for null. */
|
|
|
|
size -= 1;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
while (c != EOF && c != '\n')
|
|
|
|
{
|
|
|
|
if (count < size)
|
|
|
|
*p++ = c;
|
|
|
|
count++;
|
|
|
|
|
|
|
|
c = fgetc (last_open_file);
|
|
|
|
|
|
|
|
}
|
|
|
|
if (c == EOF)
|
|
|
|
{
|
|
|
|
file->at_end = 1;
|
2001-09-25 12:09:45 +00:00
|
|
|
if (count + 2 < size)
|
|
|
|
{
|
|
|
|
*p++ = '.';
|
|
|
|
*p++ = '.';
|
|
|
|
*p++ = '.';
|
|
|
|
}
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
|
|
|
file->linenum++;
|
|
|
|
*p++ = 0;
|
|
|
|
return line;
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char *fn;
|
|
|
|
|
|
|
|
static unsigned int eject; /* Eject pending */
|
|
|
|
static unsigned int page; /* Current page number */
|
2000-08-31 06:11:03 +00:00
|
|
|
static char *title; /* Current title */
|
|
|
|
static char *subtitle; /* Current subtitle */
|
|
|
|
static unsigned int on_page; /* Number of lines printed on current page */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
static void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_page (list_info_type *list)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
/* Grope around, see if we can see a title or subtitle edict coming up
|
2000-08-31 06:11:03 +00:00
|
|
|
soon. (we look down 10 lines of the page and see if it's there) */
|
|
|
|
if ((eject || (on_page >= (unsigned int) paper_height))
|
|
|
|
&& paper_height != 0)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
unsigned int c = 10;
|
|
|
|
int had_title = 0;
|
|
|
|
int had_subtitle = 0;
|
|
|
|
|
|
|
|
page++;
|
|
|
|
|
|
|
|
while (c != 0 && list)
|
|
|
|
{
|
|
|
|
if (list->edict == EDICT_SBTTL && !had_subtitle)
|
|
|
|
{
|
|
|
|
had_subtitle = 1;
|
|
|
|
subtitle = list->edict_arg;
|
|
|
|
}
|
|
|
|
if (list->edict == EDICT_TITLE && !had_title)
|
|
|
|
{
|
|
|
|
had_title = 1;
|
|
|
|
title = list->edict_arg;
|
|
|
|
}
|
|
|
|
list = list->next;
|
|
|
|
c--;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (page > 1)
|
|
|
|
{
|
|
|
|
fprintf (list_file, "\f");
|
|
|
|
}
|
|
|
|
|
|
|
|
fprintf (list_file, "%s %s \t\t\tpage %d\n", LISTING_HEADER, fn, page);
|
|
|
|
fprintf (list_file, "%s\n", title);
|
|
|
|
fprintf (list_file, "%s\n", subtitle);
|
|
|
|
on_page = 3;
|
|
|
|
eject = 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static unsigned int
|
2003-11-24 17:52:33 +00:00
|
|
|
calc_hex (list_info_type *list)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
int data_buffer_size;
|
|
|
|
list_info_type *first = list;
|
2000-08-31 06:11:03 +00:00
|
|
|
unsigned int address = ~(unsigned int) 0;
|
1999-05-03 07:29:11 +00:00
|
|
|
fragS *frag;
|
|
|
|
fragS *frag_ptr;
|
2000-02-03 18:20:23 +00:00
|
|
|
unsigned int octet_in_frag;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Find first frag which says it belongs to this line. */
|
1999-05-03 07:29:11 +00:00
|
|
|
frag = list->frag;
|
|
|
|
while (frag && frag->line != list)
|
|
|
|
frag = frag->fr_next;
|
|
|
|
|
|
|
|
frag_ptr = frag;
|
|
|
|
|
|
|
|
data_buffer_size = 0;
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Dump all the frags which belong to this line. */
|
1999-05-03 07:29:11 +00:00
|
|
|
while (frag_ptr != (fragS *) NULL && frag_ptr->line == first)
|
|
|
|
{
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Print as many bytes from the fixed part as is sensible. */
|
2000-02-03 18:20:23 +00:00
|
|
|
octet_in_frag = 0;
|
|
|
|
while ((offsetT) octet_in_frag < frag_ptr->fr_fix
|
1999-05-03 07:29:11 +00:00
|
|
|
&& data_buffer_size < MAX_BYTES - 3)
|
|
|
|
{
|
2000-08-31 06:11:03 +00:00
|
|
|
if (address == ~(unsigned int) 0)
|
2003-12-19 15:23:41 +00:00
|
|
|
address = frag_ptr->fr_address / OCTETS_PER_BYTE;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
sprintf (data_buffer + data_buffer_size,
|
|
|
|
"%02X",
|
2000-02-03 18:20:23 +00:00
|
|
|
(frag_ptr->fr_literal[octet_in_frag]) & 0xff);
|
1999-05-03 07:29:11 +00:00
|
|
|
data_buffer_size += 2;
|
2000-02-03 18:20:23 +00:00
|
|
|
octet_in_frag++;
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
2002-05-18 12:53:30 +00:00
|
|
|
if (frag_ptr->fr_type == rs_fill)
|
|
|
|
{
|
|
|
|
unsigned int var_rep_max = octet_in_frag;
|
|
|
|
unsigned int var_rep_idx = octet_in_frag;
|
|
|
|
|
|
|
|
/* Print as many bytes from the variable part as is sensible. */
|
|
|
|
while (((offsetT) octet_in_frag
|
|
|
|
< (frag_ptr->fr_fix + frag_ptr->fr_var * frag_ptr->fr_offset))
|
|
|
|
&& data_buffer_size < MAX_BYTES - 3)
|
|
|
|
{
|
|
|
|
if (address == ~(unsigned int) 0)
|
2003-12-19 15:23:41 +00:00
|
|
|
address = frag_ptr->fr_address / OCTETS_PER_BYTE;
|
|
|
|
|
2002-05-18 12:53:30 +00:00
|
|
|
sprintf (data_buffer + data_buffer_size,
|
|
|
|
"%02X",
|
|
|
|
(frag_ptr->fr_literal[var_rep_idx]) & 0xff);
|
|
|
|
data_buffer_size += 2;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2002-05-18 12:53:30 +00:00
|
|
|
var_rep_idx++;
|
|
|
|
octet_in_frag++;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2002-05-18 12:53:30 +00:00
|
|
|
if ((offsetT) var_rep_idx >= frag_ptr->fr_fix + frag_ptr->fr_var)
|
|
|
|
var_rep_idx = var_rep_max;
|
|
|
|
}
|
|
|
|
}
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
frag_ptr = frag_ptr->fr_next;
|
|
|
|
}
|
|
|
|
data_buffer[data_buffer_size] = '\0';
|
|
|
|
return address;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-11-24 17:52:33 +00:00
|
|
|
print_lines (list_info_type *list, unsigned int lineno,
|
|
|
|
char *string, unsigned int address)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
unsigned int idx;
|
|
|
|
unsigned int nchars;
|
|
|
|
unsigned int lines;
|
2000-02-03 18:20:23 +00:00
|
|
|
unsigned int octet_in_word = 0;
|
1999-05-03 07:29:11 +00:00
|
|
|
char *src = data_buffer;
|
2000-02-03 18:20:23 +00:00
|
|
|
int cur;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Print the stuff on the first line. */
|
1999-05-03 07:29:11 +00:00
|
|
|
listing_page (list);
|
|
|
|
nchars = (LISTING_WORD_SIZE * 2 + 1) * listing_lhs_width;
|
2000-08-31 06:11:03 +00:00
|
|
|
|
|
|
|
/* Print the hex for the first line. */
|
|
|
|
if (address == ~(unsigned int) 0)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
fprintf (list_file, "% 4d ", lineno);
|
|
|
|
for (idx = 0; idx < nchars; idx++)
|
|
|
|
fprintf (list_file, " ");
|
|
|
|
|
|
|
|
fprintf (list_file, "\t%s\n", string ? string : "");
|
2000-08-31 06:11:03 +00:00
|
|
|
|
|
|
|
on_page++;
|
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
listing_page (0);
|
|
|
|
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (had_errors ())
|
|
|
|
fprintf (list_file, "% 4d ???? ", lineno);
|
|
|
|
else
|
|
|
|
fprintf (list_file, "% 4d %04x ", lineno, address);
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* And the data to go along with it. */
|
1999-05-03 07:29:11 +00:00
|
|
|
idx = 0;
|
2000-02-03 18:20:23 +00:00
|
|
|
cur = 0;
|
|
|
|
while (src[cur] && idx < nchars)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
2000-02-03 18:20:23 +00:00
|
|
|
int offset;
|
|
|
|
offset = cur;
|
2000-08-31 06:11:03 +00:00
|
|
|
fprintf (list_file, "%c%c", src[offset], src[offset + 1]);
|
2000-02-03 18:20:23 +00:00
|
|
|
cur += 2;
|
|
|
|
octet_in_word++;
|
2000-08-31 06:11:03 +00:00
|
|
|
|
2000-02-03 18:20:23 +00:00
|
|
|
if (octet_in_word == LISTING_WORD_SIZE)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
fprintf (list_file, " ");
|
|
|
|
idx++;
|
2000-02-03 18:20:23 +00:00
|
|
|
octet_in_word = 0;
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
idx += 2;
|
|
|
|
}
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
for (; idx < nchars; idx++)
|
|
|
|
fprintf (list_file, " ");
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
fprintf (list_file, "\t%s\n", string ? string : "");
|
|
|
|
on_page++;
|
|
|
|
listing_page (list);
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
if (list->message)
|
|
|
|
{
|
|
|
|
fprintf (list_file, "**** %s\n", list->message);
|
|
|
|
listing_page (list);
|
|
|
|
on_page++;
|
|
|
|
}
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
for (lines = 0;
|
|
|
|
lines < (unsigned int) listing_lhs_cont_lines
|
2000-02-03 18:20:23 +00:00
|
|
|
&& src[cur];
|
2000-08-31 06:11:03 +00:00
|
|
|
lines++)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
2000-08-31 06:11:03 +00:00
|
|
|
nchars = ((LISTING_WORD_SIZE * 2) + 1) * listing_lhs_width_second - 1;
|
1999-05-03 07:29:11 +00:00
|
|
|
idx = 0;
|
2000-08-31 06:11:03 +00:00
|
|
|
|
|
|
|
/* Print any more lines of data, but more compactly. */
|
1999-05-03 07:29:11 +00:00
|
|
|
fprintf (list_file, "% 4d ", lineno);
|
2000-08-31 06:11:03 +00:00
|
|
|
|
2000-02-03 18:20:23 +00:00
|
|
|
while (src[cur] && idx < nchars)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
2000-08-31 06:11:03 +00:00
|
|
|
int offset;
|
|
|
|
offset = cur;
|
|
|
|
fprintf (list_file, "%c%c", src[offset], src[offset + 1]);
|
2000-02-03 18:20:23 +00:00
|
|
|
cur += 2;
|
1999-05-03 07:29:11 +00:00
|
|
|
idx += 2;
|
2000-02-03 18:20:23 +00:00
|
|
|
octet_in_word++;
|
2000-08-31 06:11:03 +00:00
|
|
|
|
2000-02-03 18:20:23 +00:00
|
|
|
if (octet_in_word == LISTING_WORD_SIZE)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
fprintf (list_file, " ");
|
|
|
|
idx++;
|
2000-02-03 18:20:23 +00:00
|
|
|
octet_in_word = 0;
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
|
|
|
}
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
fprintf (list_file, "\n");
|
2000-08-31 06:11:03 +00:00
|
|
|
on_page++;
|
1999-05-03 07:29:11 +00:00
|
|
|
listing_page (list);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-11-24 17:52:33 +00:00
|
|
|
list_symbol_table (void)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
extern symbolS *symbol_rootP;
|
|
|
|
int got_some = 0;
|
|
|
|
|
|
|
|
symbolS *ptr;
|
|
|
|
eject = 1;
|
|
|
|
listing_page (0);
|
|
|
|
|
|
|
|
for (ptr = symbol_rootP; ptr != (symbolS *) NULL; ptr = symbol_next (ptr))
|
|
|
|
{
|
|
|
|
if (SEG_NORMAL (S_GET_SEGMENT (ptr))
|
|
|
|
|| S_GET_SEGMENT (ptr) == absolute_section)
|
|
|
|
{
|
|
|
|
#ifdef BFD_ASSEMBLER
|
|
|
|
/* Don't report section symbols. They are not interesting. */
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 00:29:48 +00:00
|
|
|
if (symbol_section_p (ptr))
|
1999-05-03 07:29:11 +00:00
|
|
|
continue;
|
|
|
|
#endif
|
|
|
|
if (S_GET_NAME (ptr))
|
|
|
|
{
|
|
|
|
char buf[30], fmt[8];
|
|
|
|
valueT val = S_GET_VALUE (ptr);
|
|
|
|
|
|
|
|
/* @@ Note that this is dependent on the compilation options,
|
|
|
|
not solely on the target characteristics. */
|
|
|
|
if (sizeof (val) == 4 && sizeof (int) == 4)
|
|
|
|
sprintf (buf, "%08lx", (unsigned long) val);
|
|
|
|
else if (sizeof (val) <= sizeof (unsigned long))
|
|
|
|
{
|
|
|
|
sprintf (fmt, "%%0%lulx",
|
|
|
|
(unsigned long) (sizeof (val) * 2));
|
|
|
|
sprintf (buf, fmt, (unsigned long) val);
|
|
|
|
}
|
|
|
|
#if defined (BFD64)
|
|
|
|
else if (sizeof (val) > 4)
|
|
|
|
sprintf_vma (buf, val);
|
|
|
|
#endif
|
|
|
|
else
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
if (!got_some)
|
|
|
|
{
|
|
|
|
fprintf (list_file, "DEFINED SYMBOLS\n");
|
|
|
|
on_page++;
|
|
|
|
got_some = 1;
|
|
|
|
}
|
|
|
|
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 00:29:48 +00:00
|
|
|
if (symbol_get_frag (ptr) && symbol_get_frag (ptr)->line)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
fprintf (list_file, "%20s:%-5d %s:%s %s\n",
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 00:29:48 +00:00
|
|
|
symbol_get_frag (ptr)->line->file->filename,
|
|
|
|
symbol_get_frag (ptr)->line->line,
|
1999-05-03 07:29:11 +00:00
|
|
|
segment_name (S_GET_SEGMENT (ptr)),
|
|
|
|
buf, S_GET_NAME (ptr));
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
fprintf (list_file, "%33s:%s %s\n",
|
|
|
|
segment_name (S_GET_SEGMENT (ptr)),
|
|
|
|
buf, S_GET_NAME (ptr));
|
|
|
|
}
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
on_page++;
|
1999-05-03 07:29:11 +00:00
|
|
|
listing_page (0);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
if (!got_some)
|
|
|
|
{
|
|
|
|
fprintf (list_file, "NO DEFINED SYMBOLS\n");
|
|
|
|
on_page++;
|
|
|
|
}
|
|
|
|
fprintf (list_file, "\n");
|
|
|
|
on_page++;
|
|
|
|
listing_page (0);
|
|
|
|
|
|
|
|
got_some = 0;
|
|
|
|
|
|
|
|
for (ptr = symbol_rootP; ptr != (symbolS *) NULL; ptr = symbol_next (ptr))
|
|
|
|
{
|
|
|
|
if (S_GET_NAME (ptr) && strlen (S_GET_NAME (ptr)) != 0)
|
|
|
|
{
|
|
|
|
if (S_GET_SEGMENT (ptr) == undefined_section)
|
|
|
|
{
|
|
|
|
if (!got_some)
|
|
|
|
{
|
|
|
|
got_some = 1;
|
|
|
|
fprintf (list_file, "UNDEFINED SYMBOLS\n");
|
|
|
|
on_page++;
|
|
|
|
listing_page (0);
|
|
|
|
}
|
|
|
|
fprintf (list_file, "%s\n", S_GET_NAME (ptr));
|
|
|
|
on_page++;
|
|
|
|
listing_page (0);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (!got_some)
|
|
|
|
{
|
|
|
|
fprintf (list_file, "NO UNDEFINED SYMBOLS\n");
|
|
|
|
on_page++;
|
|
|
|
listing_page (0);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-11-24 17:52:33 +00:00
|
|
|
print_source (file_info_type *current_file, list_info_type *list,
|
|
|
|
char *buffer, unsigned int width)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
if (!current_file->at_end)
|
|
|
|
{
|
|
|
|
while (current_file->linenum < list->hll_line
|
|
|
|
&& !current_file->at_end)
|
|
|
|
{
|
|
|
|
char *p = buffer_line (current_file, buffer, width);
|
2003-12-19 15:23:41 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
fprintf (list_file, "%4u:%-13s **** %s\n", current_file->linenum,
|
|
|
|
current_file->filename, p);
|
|
|
|
on_page++;
|
|
|
|
listing_page (list);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Sometimes the user doesn't want to be bothered by the debugging
|
|
|
|
records inserted by the compiler, see if the line is suspicious. */
|
|
|
|
|
|
|
|
static int
|
2003-11-24 17:52:33 +00:00
|
|
|
debugging_pseudo (list_info_type *list, const char *line)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
static int in_debug;
|
|
|
|
int was_debug;
|
|
|
|
|
|
|
|
if (list->debugging)
|
|
|
|
{
|
|
|
|
in_debug = 1;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
was_debug = in_debug;
|
|
|
|
in_debug = 0;
|
|
|
|
|
2001-09-19 05:33:36 +00:00
|
|
|
while (ISSPACE (*line))
|
1999-05-03 07:29:11 +00:00
|
|
|
line++;
|
|
|
|
|
|
|
|
if (*line != '.')
|
|
|
|
{
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
/* The ELF compiler sometimes emits blank lines after switching
|
|
|
|
out of a debugging section. If the next line drops us back
|
|
|
|
into debugging information, then don't print the blank line.
|
|
|
|
This is a hack for a particular compiler behaviour, not a
|
|
|
|
general case. */
|
|
|
|
if (was_debug
|
|
|
|
&& *line == '\0'
|
|
|
|
&& list->next != NULL
|
|
|
|
&& list->next->debugging)
|
|
|
|
{
|
|
|
|
in_debug = 1;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
line++;
|
|
|
|
|
|
|
|
if (strncmp (line, "def", 3) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "val", 3) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "scl", 3) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "line", 4) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "endef", 5) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "ln", 2) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "type", 4) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "size", 4) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "dim", 3) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "tag", 3) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "stabs", 5) == 0)
|
|
|
|
return 1;
|
|
|
|
if (strncmp (line, "stabn", 5) == 0)
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_listing (char *name ATTRIBUTE_UNUSED)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
list_info_type *list = head;
|
|
|
|
file_info_type *current_hll_file = (file_info_type *) NULL;
|
|
|
|
char *message;
|
|
|
|
char *buffer;
|
|
|
|
char *p;
|
|
|
|
int show_listing = 1;
|
|
|
|
unsigned int width;
|
|
|
|
|
|
|
|
buffer = xmalloc (listing_rhs_width);
|
|
|
|
data_buffer = xmalloc (MAX_BYTES);
|
|
|
|
eject = 1;
|
|
|
|
list = head;
|
|
|
|
|
|
|
|
while (list != (list_info_type *) NULL && 0)
|
|
|
|
{
|
|
|
|
if (list->next)
|
|
|
|
list->frag = list->next->frag;
|
|
|
|
list = list->next;
|
|
|
|
}
|
|
|
|
|
|
|
|
list = head->next;
|
|
|
|
|
|
|
|
while (list)
|
|
|
|
{
|
1999-07-11 20:20:04 +00:00
|
|
|
unsigned int list_line;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
width = listing_rhs_width > paper_width ? paper_width :
|
|
|
|
listing_rhs_width;
|
|
|
|
|
|
|
|
list_line = list->line;
|
|
|
|
switch (list->edict)
|
|
|
|
{
|
|
|
|
case EDICT_LIST:
|
|
|
|
/* Skip all lines up to the current. */
|
|
|
|
list_line--;
|
|
|
|
break;
|
|
|
|
case EDICT_NOLIST:
|
|
|
|
show_listing--;
|
|
|
|
break;
|
|
|
|
case EDICT_NOLIST_NEXT:
|
2001-03-31 06:47:54 +00:00
|
|
|
if (show_listing == 0)
|
|
|
|
list_line--;
|
1999-05-03 07:29:11 +00:00
|
|
|
break;
|
|
|
|
case EDICT_EJECT:
|
|
|
|
break;
|
|
|
|
case EDICT_NONE:
|
|
|
|
break;
|
|
|
|
case EDICT_TITLE:
|
|
|
|
title = list->edict_arg;
|
|
|
|
break;
|
|
|
|
case EDICT_SBTTL:
|
|
|
|
subtitle = list->edict_arg;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
abort ();
|
|
|
|
}
|
|
|
|
|
|
|
|
if (show_listing <= 0)
|
|
|
|
{
|
|
|
|
while (list->file->linenum < list_line
|
|
|
|
&& !list->file->at_end)
|
|
|
|
p = buffer_line (list->file, buffer, width);
|
|
|
|
}
|
|
|
|
|
2001-03-31 06:47:54 +00:00
|
|
|
if (list->edict == EDICT_LIST
|
|
|
|
|| (list->edict == EDICT_NOLIST_NEXT && show_listing == 0))
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
/* Enable listing for the single line that caused the enable. */
|
|
|
|
list_line++;
|
|
|
|
show_listing++;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (show_listing > 0)
|
|
|
|
{
|
|
|
|
/* Scan down the list and print all the stuff which can be done
|
|
|
|
with this line (or lines). */
|
|
|
|
message = 0;
|
|
|
|
|
|
|
|
if (list->hll_file)
|
2003-12-19 15:23:41 +00:00
|
|
|
current_hll_file = list->hll_file;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
if (current_hll_file && list->hll_line && (listing & LISTING_HLL))
|
2003-12-19 15:23:41 +00:00
|
|
|
print_source (current_hll_file, list, buffer, width);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
if (list->line_contents)
|
|
|
|
{
|
|
|
|
if (!((listing & LISTING_NODEBUG)
|
|
|
|
&& debugging_pseudo (list, list->line_contents)))
|
2003-12-19 15:23:41 +00:00
|
|
|
print_lines (list,
|
|
|
|
list->file->linenum == 0 ? list->line : list->file->linenum,
|
|
|
|
list->line_contents, calc_hex (list));
|
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
free (list->line_contents);
|
|
|
|
list->line_contents = NULL;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
while (list->file->linenum < list_line
|
|
|
|
&& !list->file->at_end)
|
|
|
|
{
|
|
|
|
unsigned int address;
|
|
|
|
|
|
|
|
p = buffer_line (list->file, buffer, width);
|
|
|
|
|
|
|
|
if (list->file->linenum < list_line)
|
2000-08-31 06:11:03 +00:00
|
|
|
address = ~(unsigned int) 0;
|
1999-05-03 07:29:11 +00:00
|
|
|
else
|
|
|
|
address = calc_hex (list);
|
|
|
|
|
|
|
|
if (!((listing & LISTING_NODEBUG)
|
|
|
|
&& debugging_pseudo (list, p)))
|
|
|
|
print_lines (list, list->file->linenum, p, address);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if (list->edict == EDICT_EJECT)
|
2003-12-19 15:23:41 +00:00
|
|
|
eject = 1;
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
|
|
|
|
2001-03-31 06:47:54 +00:00
|
|
|
if (list->edict == EDICT_NOLIST_NEXT && show_listing == 1)
|
1999-05-03 07:29:11 +00:00
|
|
|
--show_listing;
|
|
|
|
|
|
|
|
list = list->next;
|
|
|
|
}
|
|
|
|
|
|
|
|
free (buffer);
|
|
|
|
free (data_buffer);
|
|
|
|
data_buffer = NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_print (char *name)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
int using_stdout;
|
2000-08-31 06:11:03 +00:00
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
title = "";
|
|
|
|
subtitle = "";
|
|
|
|
|
|
|
|
if (name == NULL)
|
|
|
|
{
|
|
|
|
list_file = stdout;
|
|
|
|
using_stdout = 1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2001-07-10 09:45:50 +00:00
|
|
|
list_file = fopen (name, FOPEN_WT);
|
1999-05-03 07:29:11 +00:00
|
|
|
if (list_file != NULL)
|
|
|
|
using_stdout = 0;
|
|
|
|
else
|
|
|
|
{
|
2003-12-19 15:23:41 +00:00
|
|
|
#ifdef BFD_ASSEMBLER
|
|
|
|
bfd_set_error (bfd_error_system_call);
|
|
|
|
#endif
|
1999-05-03 07:29:11 +00:00
|
|
|
as_perror (_("can't open list file: %s"), name);
|
|
|
|
list_file = stdout;
|
|
|
|
using_stdout = 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if (listing & LISTING_NOFORM)
|
2003-12-19 15:23:41 +00:00
|
|
|
paper_height = 0;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
if (listing & LISTING_LISTING)
|
2003-12-19 15:23:41 +00:00
|
|
|
listing_listing (name);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
if (listing & LISTING_SYMBOLS)
|
2003-12-19 15:23:41 +00:00
|
|
|
list_symbol_table ();
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
if (! using_stdout)
|
|
|
|
{
|
|
|
|
if (fclose (list_file) == EOF)
|
2003-12-19 15:23:41 +00:00
|
|
|
{
|
|
|
|
#ifdef BFD_ASSEMBLER
|
|
|
|
bfd_set_error (bfd_error_system_call);
|
|
|
|
#endif
|
|
|
|
as_perror (_("error closing list file: %s"), name);
|
|
|
|
}
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
if (last_open_file)
|
2003-12-19 15:23:41 +00:00
|
|
|
fclose (last_open_file);
|
1999-05-03 07:29:11 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_file (const char *name)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
fn = name;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_eject (int ignore ATTRIBUTE_UNUSED)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
if (listing)
|
|
|
|
listing_tail->edict = EDICT_EJECT;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_flags (int ignore ATTRIBUTE_UNUSED)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
while ((*input_line_pointer++) && (*input_line_pointer != '\n'))
|
|
|
|
input_line_pointer++;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Turn listing on or off. An argument of 0 means to turn off
|
|
|
|
listing. An argument of 1 means to turn on listing. An argument
|
|
|
|
of 2 means to turn off listing, but as of the next line; that is,
|
|
|
|
the current line should be listed, but the next line should not. */
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_list (int on)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
if (listing)
|
|
|
|
{
|
|
|
|
switch (on)
|
|
|
|
{
|
|
|
|
case 0:
|
|
|
|
if (listing_tail->edict == EDICT_LIST)
|
|
|
|
listing_tail->edict = EDICT_NONE;
|
|
|
|
else
|
|
|
|
listing_tail->edict = EDICT_NOLIST;
|
|
|
|
break;
|
|
|
|
case 1:
|
|
|
|
if (listing_tail->edict == EDICT_NOLIST
|
|
|
|
|| listing_tail->edict == EDICT_NOLIST_NEXT)
|
|
|
|
listing_tail->edict = EDICT_NONE;
|
|
|
|
else
|
|
|
|
listing_tail->edict = EDICT_LIST;
|
|
|
|
break;
|
|
|
|
case 2:
|
|
|
|
listing_tail->edict = EDICT_NOLIST_NEXT;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
abort ();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_psize (int width_only)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
if (! width_only)
|
|
|
|
{
|
|
|
|
paper_height = get_absolute_expression ();
|
|
|
|
|
|
|
|
if (paper_height < 0 || paper_height > 1000)
|
|
|
|
{
|
|
|
|
paper_height = 0;
|
|
|
|
as_warn (_("strange paper height, set to no form"));
|
|
|
|
}
|
|
|
|
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
{
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
++input_line_pointer;
|
|
|
|
}
|
|
|
|
|
|
|
|
paper_width = get_absolute_expression ();
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_nopage (int ignore ATTRIBUTE_UNUSED)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
paper_height = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_title (int depth)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
int quoted;
|
|
|
|
char *start;
|
|
|
|
char *ttl;
|
|
|
|
unsigned int length;
|
|
|
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
if (*input_line_pointer != '\"')
|
|
|
|
quoted = 0;
|
|
|
|
else
|
|
|
|
{
|
|
|
|
quoted = 1;
|
|
|
|
++input_line_pointer;
|
|
|
|
}
|
|
|
|
|
|
|
|
start = input_line_pointer;
|
|
|
|
|
|
|
|
while (*input_line_pointer)
|
|
|
|
{
|
|
|
|
if (quoted
|
|
|
|
? *input_line_pointer == '\"'
|
|
|
|
: is_end_of_line[(unsigned char) *input_line_pointer])
|
|
|
|
{
|
|
|
|
if (listing)
|
|
|
|
{
|
|
|
|
length = input_line_pointer - start;
|
|
|
|
ttl = xmalloc (length + 1);
|
|
|
|
memcpy (ttl, start, length);
|
|
|
|
ttl[length] = 0;
|
|
|
|
listing_tail->edict = depth ? EDICT_SBTTL : EDICT_TITLE;
|
|
|
|
listing_tail->edict_arg = ttl;
|
|
|
|
}
|
|
|
|
if (quoted)
|
|
|
|
input_line_pointer++;
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
else if (*input_line_pointer == '\n')
|
|
|
|
{
|
* read.c: Standardize error/warning messages - don't capitalise, no
final period or newline, don't say "ignored" or "zero assumed" for
as_bad messages. In some cases, change the wording to that used
elsewhere for similar messages.
* app.c, as.c, atof-generic.c, cgen.c, cond.c, depend.c, dwarf2dbg.c,
ecoff.c, expr.c, frags.c, input-file.c, input-scrub.c, listing.c,
output-file.c, stabs.c, subsegs.c, symbols.c, write.c: Likewise.
* ecoff.c (ecoff_directive_end): Test for missing name by
comparing input line pointers rather than reading string.
(ecoff_directive_ent): Likewise.
* read.c (s_set): Likewise.
(s_align): Report a warning rather than an error for
alignment too large.
(s_comm): Check for missing symbol name.
(s_lcomm_internal): Likewise.
(s_lsym): Likewise.
(s_globl): Use is_end_of_line instead of looking for '\n'.
(s_lcomm_internal): Likewise.
(ignore_rest_of_line): Report a warning rather than an error.
2001-08-01 01:44:25 +00:00
|
|
|
as_bad (_("new line in title"));
|
1999-05-03 07:29:11 +00:00
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
input_line_pointer++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_source_line (unsigned int line)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
if (listing)
|
|
|
|
{
|
|
|
|
new_frag ();
|
|
|
|
listing_tail->hll_line = line;
|
|
|
|
new_frag ();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_source_file (const char *file)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
if (listing)
|
|
|
|
listing_tail->hll_file = file_info (file);
|
|
|
|
}
|
|
|
|
|
|
|
|
#else
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
/* Dummy functions for when compiled without listing enabled. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_flags (int ignore)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
s_ignore (0);
|
|
|
|
}
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_list (int on)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
s_ignore (0);
|
|
|
|
}
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_eject (int ignore)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
s_ignore (0);
|
|
|
|
}
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_psize (int ignore)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
s_ignore (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_nopage (int ignore)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
s_ignore (0);
|
|
|
|
}
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_title (int depth)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
s_ignore (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_file (const char *name)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
}
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_newline (char *name)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
}
|
|
|
|
|
2000-08-31 06:11:03 +00:00
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_source_line (unsigned int n)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
}
|
2000-08-31 06:11:03 +00:00
|
|
|
|
|
|
|
void
|
2003-11-24 17:52:33 +00:00
|
|
|
listing_source_file (const char *n)
|
1999-05-03 07:29:11 +00:00
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|