(big_cons): If target_big_endian, reverse bytes being copied. (Temporary

fix -- should be cleaned up later.)
(s_ignore): Delete declaration of is_end_of_line.
(potable): Change .app-file to .appfile.
This commit is contained in:
Ken Raeburn 1993-03-29 21:20:04 +00:00
parent 543d88e4fd
commit 9c6d3f660c

View file

@ -120,6 +120,8 @@ static char *bignum_high; /* Highest char of bignum. */
/* May point to (bignum_start-1). */ /* May point to (bignum_start-1). */
/* Never >= bignum_limit. */ /* Never >= bignum_limit. */
int target_big_endian;
static char *old_buffer; /* JF a hack */ static char *old_buffer; /* JF a hack */
static char *old_input; static char *old_input;
static char *old_limit; static char *old_limit;
@ -142,7 +144,6 @@ unsigned int next_char_of_string PARAMS ((void));
static segT get_known_segmented_expression PARAMS ((expressionS * expP)); static segT get_known_segmented_expression PARAMS ((expressionS * expP));
static void grow_bignum PARAMS ((void)); static void grow_bignum PARAMS ((void));
static void pobegin PARAMS ((void)); static void pobegin PARAMS ((void));
void stringer PARAMS ((int append_zero));
extern int listing; extern int listing;
@ -194,7 +195,7 @@ static const pseudo_typeS potable[] =
/* err */ /* err */
/* extend */ /* extend */
{"extern", s_ignore, 0}, /* We treat all undef as ext */ {"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}, {"file", s_app_file, 0},
{"fill", s_fill, 0}, {"fill", s_fill, 0},
{"float", float_cons, 'f'}, {"float", float_cons, 'f'},
@ -414,7 +415,7 @@ read_a_source_file (name)
} }
else if (c == '=' || input_line_pointer[1] == '=') else if (c == '=' || input_line_pointer[1] == '=')
{ /* JF deal with FOO=BAR */ {
equals (s); equals (s);
demand_empty_rest_of_line (); demand_empty_rest_of_line ();
} }
@ -447,8 +448,9 @@ read_a_source_file (name)
/* 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 keyword from operands. */ A well shaped space is sometimes all that separates
keyword from operands. */
if (c == ' ' || c == '\t') if (c == ' ' || c == '\t')
{ {
input_line_pointer++; input_line_pointer++;
@ -1952,8 +1954,16 @@ big_cons (nbytes)
} }
if (!need_pass_2) if (!need_pass_2)
{ {
char *src = bignum_low;
p = frag_more (nbytes); 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. */ /* C contains character after number. */
SKIP_WHITESPACE (); SKIP_WHITESPACE ();
@ -2504,8 +2514,6 @@ void
s_ignore (arg) s_ignore (arg)
int arg; int arg;
{ {
extern char is_end_of_line[];
while (!is_end_of_line[*input_line_pointer]) while (!is_end_of_line[*input_line_pointer])
{ {
++input_line_pointer; ++input_line_pointer;