* bignum-copy.c: Fix formatting.
* ehopt.c: Likewise.
* flonum-copy.c: Likewise.
* flonum-konst.c: Likewise.
* flonum-mult.c: Likewise.
* literal.c: Likewise.
* read.c: Likewise.
* sb.c: Likewise.
* stabs.c: Likewise.
* subsegs.c: Likewise.
2000-09-11 Kazu Hirata <kazu@hxi.com>
- * config/tc-i370.c: Fix formatting.
+ * bignum-copy.c: Fix formatting.
+ * config/tc-i370.c: Likewise.
* config/tc-i960.c: Likewise.
* config/tc-m68k.c: Likewise.
+ * ehopt.c: Likewise.
+ * flonum-copy.c: Likewise.
+ * flonum-konst.c: Likewise.
+ * flonum-mult.c: Likewise.
+ * literal.c: Likewise.
+ * read.c: Likewise.
+ * sb.c: Likewise.
+ * stabs.c: Likewise.
+ * subsegs.c: Likewise.
2000-09-09 Philip Blundell <philb@gnu.org>
/* bignum_copy.c - copy a bignum
- Copyright (C) 1987, 1990, 1991, 1992 Free Software Foundation, Inc.
+ Copyright (C) 1987, 1990, 1991, 1992, 2000
+ Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler.
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. */
+ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "as.h"
if (out_length < in_length)
{
LITTLENUM_TYPE *p; /* -> most significant (non-zero) input
- littlenum. */
+ littlenum. */
memcpy ((void *) out, (void *) in,
(unsigned int) out_length << LITTLENUM_SHIFT);
/* ehopt.c--optimize gcc exception frame information.
- Copyright (C) 1998 Free Software Foundation, Inc.
+ Copyright (C) 1998, 2000 Free Software Foundation, Inc.
Written by Ian Lance Taylor <ian@cygnus.com>.
This file is part of GAS, the GNU Assembler.
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. */
+02111-1307, USA. */
#include "as.h"
#include "subsegs.h"
/* flonum_copy.c - copy a flonum
- Copyright (C) 1987, 1990, 1991, 1992 Free Software Foundation, Inc.
+ Copyright (C) 1987, 1990, 1991, 1992, 2000 Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler.
}
else
{
- int shorten; /* 1-origin. Number of littlenums we drop. */
+ int shorten; /* 1-origin. Number of littlenums we drop. */
shorten = in_length - out_length;
/* Assume out_length >= 0 ! */
/* flonum_const.c - Useful Flonum constants
- Copyright (C) 1987, 90, 91, 92, 93, 94, 95, 1996
+ Copyright (C) 1987, 90, 91, 92, 93, 94, 95, 96, 2000
Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler.
#include "flonum.h"
/* JF: I added the last entry to this table, and I'm not
sure if its right or not. Could go either way. I wish
- I really understood this stuff. */
+ I really understood this stuff. */
const int table_size_of_flonum_powers_of_ten = 13;
/* flonum_mult.c - multiply two flonums
- Copyright (C) 1987, 1990, 1991, 1992 Free Software Foundation, Inc.
+ Copyright (C) 1987, 1990, 1991, 1992, 2000
+ Free Software Foundation, Inc.
This file is part of Gas, the GNU Assembler.
}
}
/* [P]-> position # size_of_sum + 1.
- This is where 'carry' should go. */
+ This is where 'carry' should go. */
#ifdef TRACE
printf ("final carry =%04x\n", carry);
#endif
/* as.c - GAS literal pool management.
- Copyright (C) 1994 Free Software Foundation, Inc.
+ Copyright (C) 1994, 2000 Free Software Foundation, Inc.
Written by Ken Raeburn (raeburn@cygnus.com).
This file is part of GAS, the GNU Assembler.
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. */
+ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* This isn't quite a "constant" pool. Some of the values may get
adjusted at run time, e.g., for symbolic relocations when shared
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. */
+02111-1307, USA. */
#if 0
/* If your chars aren't 8 bits, you will change this a bit.
/* We are at the begining of a line, or similar place.
We expect a well-formed assembler statement.
A "symbol-name:" is a statement.
-
+
Depending on what compiler is used, the order of these tests
may vary to catch most common case 1st.
Each test is independent of all other tests at the (top) level.
/* In MRI mode, \tsym: set 0 is permitted. */
if (*rest == ':')
++rest;
-
+
if (*rest == ' ' || *rest == '\t')
++rest;
-
+
if ((strncasecmp (rest, "EQU", 3) == 0
|| strncasecmp (rest, "SET", 3) == 0)
&& (rest[3] == ' ' || rest[3] == '\t'))
|| (!flag_m68k_mri && *s == '.'))
{
/* PSEUDO - OP.
-
+
WARNING: c has next char, which may be end-of-line.
We lookup the pseudo-op table with s+1 because we
already know that the pseudo-op begins with a '.'. */
{
do_align (1, (char *) NULL, 0, 0);
mri_pending_align = 0;
-
+
if (line_label != NULL)
{
symbol_set_frag (line_label, frag_now);
buffer = new_buf;
input_line_pointer = new_buf;
buffer_limit = new_tmp;
-
+
continue;
}
#endif
*stopcp = *s;
*s = '\0';
-
+
return s;
}
;
if (align != 1)
as_bad (_("Alignment not a power of 2"));
-
+
align = i;
}
}
p = input_line_pointer;
*p = c;
SKIP_WHITESPACE ();
-
+
if (*input_line_pointer != ',')
{
as_bad (_("Expected comma after symbol-name: rest of line ignored."));
mri_comment_end (stop, stopc);
return;
}
-
+
input_line_pointer++; /* skip ',' */
-
+
if ((temp = get_absolute_expression ()) < 0)
{
as_warn (_(".COMMon length (%ld.) <0! Ignored."), (long) temp);
mri_comment_end (stop, stopc);
return;
}
-
+
*p = 0;
symbolP = symbol_find_or_make (name);
*p = c;
-
+
if (S_IS_DEFINED (symbolP) && !S_IS_COMMON (symbolP))
{
as_bad (_("Ignoring attempt to re-define symbol `%s'."),
mri_comment_end (stop, stopc);
return;
}
-
+
if (S_GET_VALUE (symbolP))
{
if (S_GET_VALUE (symbolP) != (valueT) temp)
++input_line_pointer;
}
while (isdigit ((unsigned char) *input_line_pointer));
-
+
c = *input_line_pointer;
*input_line_pointer = '\0';
p = frag_var (rs_space, (int) size, (int) size,
(relax_substateT) 0, rep_sym, (offsetT) 0, (char *) 0);
}
-
+
memset (p, 0, (unsigned int) size);
-
+
/* The magic number BSD_FILL_SIZE_CROCK_4 is from BSD 4.2 VAX
flavoured AS. The following bizzare behaviour is to be
compatible with above. I guess they tried to take up to 8
{
align = 0;
SKIP_WHITESPACE ();
-
+
if (*input_line_pointer != ',')
{
as_bad (_("Expected comma after size"));
ignore_rest_of_line ();
return;
}
-
+
input_line_pointer++;
SKIP_WHITESPACE ();
-
+
if (*input_line_pointer == '\n')
{
as_bad (_("Missing alignment"));
return;
}
-
+
align = get_absolute_expression ();
-
+
if (bytes_p)
{
/* Convert to a power of 2. */
align = i;
}
}
-
+
if (align > max_alignment)
{
align = max_alignment;
align = 0;
as_warn (_("Alignment negative. 0 assumed."));
}
-
+
record_alignment (bss_seg, align);
}
else
if (align)
frag_align (align, 0, 0);
-
+
/* Detach from old frag. */
if (S_GET_SEGMENT (symbolP) == bss_seg)
symbol_get_frag (symbolP)->fr_symbol = NULL;
p = input_line_pointer;
*p = c;
SKIP_WHITESPACE ();
-
+
if (*input_line_pointer != ',')
{
*p = 0;
ignore_rest_of_line ();
return;
}
-
+
input_line_pointer++;
expression (&exp);
-
+
if (exp.X_op != O_constant
&& exp.X_op != O_register)
{
ignore_rest_of_line ();
return;
}
-
+
*p = 0;
symbolP = symbol_find_or_make (name);
{
as_bad (_("Symbol %s already defined"), name);
}
-
+
*p = c;
demand_empty_rest_of_line ();
}
#endif
inquote = '\0';
-
+
while (!is_end_of_line[(unsigned char) *input_line_pointer]
|| (inquote != '\0' && *input_line_pointer != '\n'))
{
else if (*input_line_pointer == quote2)
inquote = quote2;
}
-
+
sb_add_char (line, *input_line_pointer++);
}
-
+
while (input_line_pointer < buffer_limit
&& is_end_of_line[(unsigned char) *input_line_pointer])
{
bump_line_counters ();
++input_line_pointer;
}
-
+
return 1;
}
++input_line_pointer;
}
while (isdigit ((unsigned char) *input_line_pointer));
-
+
c = *input_line_pointer;
*input_line_pointer = '\0';
}
as_bad (_("space allocation too complex in absolute section"));
subseg_set (text_section, 0);
}
-
+
if (mri_common_symbol != NULL)
{
as_bad (_("space allocation too complex in common section"));
mri_common_symbol = NULL;
}
-
+
if (!need_pass_2)
p = frag_var (rs_space, 1, 1, (relax_substateT) 0,
make_expr_symbol (&exp), (offsetT) 0, (char *) 0);
else
as_bad (_("Rest of line ignored. First ignored character valued 0x%x."),
*input_line_pointer);
-
+
while (input_line_pointer < buffer_limit
&& !is_end_of_line[(unsigned char) *input_line_pointer])
input_line_pointer++;
}
-
+
input_line_pointer++;
/* Return pointing just after end-of-line. */
input_line_pointer++;
input_line_pointer++;
-
+
/* Return pointing just after end-of-line. */
know (is_end_of_line[(unsigned char) input_line_pointer[-1]]);
}
/* In: Pointer to a symbol.
Input_line_pointer->expression.
-
+
Out: Input_line_pointer->just after any whitespace after expression.
Tried to set symbol to value of expression.
Will change symbols type, value, and frag; */
}
\f
/* cons()
-
+
CONStruct more frag of .bytes, or .words etc.
Should need_pass_2 be 1 then emit no frag(s).
This understands EXPRESSIONS.
-
+
Bug (?)
-
+
This has a split personality. We use expression() to read the
value. We can detect if the value won't fit in a byte or word.
But we can't detect if expression() discarded significant digits
result <<= 8;
scan++;
}
-
+
/* Create correct expression. */
exp->X_op = O_constant;
exp->X_add_number = result;
-
+
/* Fake it so that we can read the next char too. */
if (input_line_pointer[0] != '\'' ||
(input_line_pointer[0] == '\'' && input_line_pointer[1] == '\''))
}
/* float_cons()
-
+
CONStruct some more frag chars of .floats .ffloats etc.
Makes 0 or more new frags.
If need_pass_2 == 1, no frags are emitted.
This understands only floating literals, not expressions. Sorry.
-
+
A floating constant is defined by atof_generic(), except it is preceded
by 0d 0f 0g or 0h. After observing the STRANGE way my BSD AS does its
reading, I decided to be incompatible. This always tries to give you
truncatation, restored noisy bits instead of trailing 0s AND gave you
a choice of 2 flavours of noise according to which of 2 floating-point
scanners you directed AS to use.
-
+
In: input_line_pointer->whitespace before, or '0' of flonum. */
void
++input_line_pointer;
expression (&count_exp);
-
+
if (count_exp.X_op != O_constant
|| count_exp.X_add_number <= 0)
as_warn (_("unresolvable or nonpositive repeat count; using 1"));
{
number = number * 8 + c - '0';
}
-
+
c = number & 0xff;
}
--input_line_pointer;
}
}
}
-
+
return s;
}
\f
}
\f
/* In: Input_line_pointer->next character.
-
+
Do: Skip input_line_pointer over all whitespace.
-
+
Out: 1 if input_line_pointer->end-of-line. */
int
++input_line_pointer;
++i;
}
-
+
obstack_1grow (¬es, '\0');
filename = obstack_finish (¬es);
while (!is_end_of_line[(unsigned char) *input_line_pointer])
++input_line_pointer;
}
-
+
demand_empty_rest_of_line ();
path = xmalloc ((unsigned long) i + include_dir_maxlen + 5 /* slop */ );
-
+
for (i = 0; i < include_dir_count; i++)
{
strcpy (path, include_dirs[i]);
goto gotit;
}
}
-
+
free (path);
path = filename;
gotit:
/* sb.c - string buffer manipulation routines
- Copyright (C) 1994, 1995 Free Software Foundation, Inc.
+ Copyright (C) 1994, 1995, 2000 Free Software Foundation, Inc.
Written by Steve and Judy Chamberlain of Cygnus Support,
sac@cygnus.com
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. */
+ 02111-1307, USA. */
#include "config.h"
#include <stdio.h>
static sb_list_vector free_list;
-/* initializes an sb. */
+/* initializes an sb. */
void
sb_build (ptr, size)
ptr->item = e;
}
-
void
sb_new (ptr)
sb *ptr;
}
/* make sure that the sb at ptr has room for another len characters,
- and grow it if it doesn't. */
+ and grow it if it doesn't. */
static void
sb_check (ptr, len)
ptr->len = 0;
}
-/* add character c to the end of the sb at ptr. */
+/* add character c to the end of the sb at ptr. */
void
sb_add_char (ptr, c)
ptr->ptr[ptr->len++] = c;
}
-/* add null terminated string s to the end of sb at ptr. */
+/* add null terminated string s to the end of sb at ptr. */
void
sb_add_string (ptr, s)
}
}
-void
+void
sb_print_at (outfile, idx, ptr)
FILE *outfile;
int idx;
}
/* put a null at the end of the sb at in and return the start of the
- string, so that it can be used as an arg to printf %s. */
+ string, so that it can be used as an arg to printf %s. */
char *
sb_name (in)
/* start at the index idx into the sb at ptr. skips whitespace,
a comma and any following whitespace. returnes the index of the
- next character. */
+ next character. */
int
sb_skip_comma (idx, ptr)
/* Generic stabs parsing for gas.
- Copyright (C) 1989, 90, 91, 93, 94, 95, 96, 97, 98, 1999
+ Copyright (C) 1989, 90, 91, 93, 94, 95, 96, 97, 98, 99, 2000
Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler.
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. */
+02111-1307, USA. */
#include "as.h"
#include "obstack.h"
#include "ecoff.h"
/* We need this, despite the apparent object format dependency, since
- it defines stab types, which all object formats can use now. */
+ it defines stab types, which all object formats can use now. */
#include "aout/stab_gnu.h"
}
if (length > 0)
- { /* Ordinary case. */
+ { /* Ordinary case. */
p = frag_more (length + 1);
strcpy (p, string);
#endif
/* This can handle different kinds of stabs (s,n,d) and different
- kinds of stab sections. */
+ kinds of stab sections. */
-static void
+static void
s_stab_generic (what, stab_secname, stabstr_secname)
int what;
char *stab_secname;
demand_empty_rest_of_line ();
}
-/* Regular stab directive. */
+/* Regular stab directive. */
void
s_stab (what)
s_stab_generic (what, STAB_SECTION_NAME, STAB_STRING_SECTION_NAME);
}
-/* "Extended stabs", used in Solaris only now. */
+/* "Extended stabs", used in Solaris only now. */
void
s_xstab (what)
/* Frob invented at RMS' request. Set the n_desc of a symbol. */
-void
+void
s_desc (ignore)
int ignore ATTRIBUTE_UNUSED;
{
int len = (bslash ? (bslash - tmp + 1) : strlen (tmp));
/* double all backslashes, since demand_copy_C_string (used by
s_stab to extract the part in quotes) will try to replace them as
- escape sequences. backslash may appear in a filespec. */
+ escape sequences. backslash may appear in a filespec. */
strncpy (bufp, tmp, len);
tmp += len;
bufp += len;
if (bslash != NULL)
*bufp++ = '\\';
- }
+ }
sprintf (bufp, "\",%d,0,0,%s\n", type, sym);
input_line_pointer = buf;
s_stab ('s');
/* subsegs.c - subsegments -
- Copyright (C) 1987, 90, 91, 92, 93, 94, 95, 96, 97, 98, 1999
+ Copyright (C) 1987, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 2000
Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler.
segment_info_type segment_info[SEG_MAXIMUM_ORDINAL];
#else
-/* Commented in "subsegs.h". */
+/* Commented in "subsegs.h". */
frchainS *data0_frchainP, *bss0_frchainP;
#endif /* MANY_SEGMENTS */
"transfert vector postload",
"register",
"",
-}; /* Used by error reporters, dumpers etc. */
+}; /* Used by error reporters, dumpers etc. */
#else /* BFD_ASSEMBLER */
/* Gas segment information for bfd_abs_section_ptr and
#endif
frchain_root = NULL;
- frchain_now = NULL; /* Warn new_subseg() that we are booting. */
+ frchain_now = NULL; /* Warn new_subseg() that we are booting. */
frag_now = &dummy_frag;
#ifndef BFD_ASSEMBLER
- now_subseg = 42; /* Lie for 1st call to subseg_new. */
+ now_subseg = 42; /* Lie for 1st call to subseg_new. */
#ifdef MANY_SEGMENTS
{
int i;
*/
if (!frcP
|| (frcP->frch_seg > seg
- || frcP->frch_subseg > subseg)) /* Kinky logic only works with 2 segments. */
+ || frcP->frch_subseg > subseg)) /* Kinky logic only works with 2 segments. */
{
/*
* This should be the only code that creates a frchainS.
seginfo->frchainP = newP;
}
#endif
-
+
frcP = newP;
}
/*
projects / external / binutils.git / commitdiff