/* May point to (bignum_start-1). */
/* Never >= bignum_limit. */
+int target_big_endian;
+
static char *old_buffer; /* JF a hack */
static char *old_input;
static char *old_limit;
static segT get_known_segmented_expression PARAMS ((expressionS * expP));
static void grow_bignum PARAMS ((void));
static void pobegin PARAMS ((void));
-void stringer PARAMS ((int append_zero));
extern int listing;
\f
/* err */
/* extend */
{"extern", s_ignore, 0}, /* We treat all undef as ext */
- {"app-file", s_app_file, 0},
+ {"appfile", s_app_file, 0},
{"file", s_app_file, 0},
{"fill", s_fill, 0},
{"float", float_cons, 'f'},
}
else if (c == '=' || input_line_pointer[1] == '=')
- { /* JF deal with FOO=BAR */
+ {
equals (s);
demand_empty_rest_of_line ();
}
/* Put it back for error messages etc. */
*input_line_pointer = c;
- /* The following skip of whitespace is compulsory. */
- /* A well shaped space is sometimes all that separates keyword from operands. */
+ /* The following skip of whitespace is compulsory.
+ A well shaped space is sometimes all that separates
+ keyword from operands. */
if (c == ' ' || c == '\t')
{
input_line_pointer++;
}
if (!need_pass_2)
{
+ char *src = bignum_low;
p = frag_more (nbytes);
- bcopy (bignum_low, p, (int) nbytes);
+ if (target_big_endian)
+ {
+ int i;
+ for (i = nbytes - 1; i >= 0; i--)
+ p[i] = *src++;
+ }
+ else
+ bcopy (bignum_low, p, (int) nbytes);
}
/* C contains character after number. */
SKIP_WHITESPACE ();
s_ignore (arg)
int arg;
{
- extern char is_end_of_line[];
-
while (!is_end_of_line[*input_line_pointer])
{
++input_line_pointer;