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.
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /* */
};
+#ifdef IGNORE_OPCODE_CASE
+char original_case_string[128];
+#endif
+
/* Functions private to this file. */
static char *buffer; /* 1st char of each buffer of lines is here. */
register int temp;
pseudo_typeS *pop;
+#ifdef WARN_COMMENTS
+ found_comment = 0;
+#endif
+
buffer = input_scrub_new_file (name);
listing_file (name);
/* 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'))
/* Expect pseudo-op or machine instruction. */
pop = NULL;
-#define IGNORE_OPCODE_CASE
#ifdef IGNORE_OPCODE_CASE
{
char *s2 = s;
+
+ strncpy (original_case_string, s2, sizeof (original_case_string));
+ original_case_string[sizeof (original_case_string) - 1] = 0;
+
while (*s2)
{
if (isupper ((unsigned char) *s2))
|| (!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
/* Close the input file. */
input_scrub_close ();
+#ifdef WARN_COMMENTS
+ {
+ if (warn_comment && found_comment)
+ as_warn_where (found_comment_file, found_comment,
+ "first comment found here");
+ }
+#endif
}
/* For most MRI pseudo-ops, the line actually ends at the first
#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:
break;
case DEBUG_DWARF:
case DEBUG_DWARF2:
- /* FIXME. */
+ /* This cannot safely be done in a generic manner. A single
+ binary instruction word may span mutliple lines of assembler
+ source and may occupy a variable number of bytes. Instead,
+ if a port wishes to support DWARF2 line number generation by
+ the assembler, it should add a call to dwarf2_generate_asm_lineno
+ inside md_assemble() at whatever point is appropriate. Note,
+ such a port should also define md_end and make sure that
+ dwarf2_finish is called, to emit the accumulated line information. */
break;
}
}
projects / deliverable / binutils-gdb.git / blobdiff