darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

* gasp.c (do_print, do_form, buffer_and_nest): Use case insensitive

Browse source 
string compares. gas/7274.
This commit is contained in:
Steve Chamberlain 1995-06-21 21:37:13 +00:00
parent d8cbfdec2e
commit 85b369b3a4
2 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gas/ChangeLog
View file

@ -1,3 +1,8 @@
Wed Jun 21 14:18:37 1995 Steve Chamberlain <sac@slash.cygnus.com>
* gasp.c (do_print, do_form, buffer_and_nest): Use case insensitive
string compares. gas/7274.
Tue Jun 20 14:55:02 1995 Ken Raeburn <raeburn@cujo.cygnus.com>
* config/obj-coff.c (write_object_file): Cast time() argument to

12
gas/gasp.c
View file

@ -1641,12 +1641,12 @@ do_print (idx, in)
idx = sb_skip_white (idx, in);
while (idx < in->len)
{
if (strncmp (in->ptr + idx, "LIST", 4) == 0)
if (strncasecmp (in->ptr + idx, "LIST", 4) == 0)
{
fprintf (outfile, ".list\n");
idx += 4;
}
else if (strncmp (in->ptr + idx, "NOLIST", 6) == 0)
else if (strncasecmp (in->ptr + idx, "NOLIST", 6) == 0)
{
fprintf (outfile, ".nolist\n");
idx += 6;
@ -1689,13 +1689,13 @@ do_form (idx, in)
while (idx < in->len)
{
if (strncmp (in->ptr + idx, "LIN=", 4) == 0)
if (strncasecmp (in->ptr + idx, "LIN=", 4) == 0)
{
idx += 4;
idx = exp_get_abs ("form LIN= needs absolute expresssion.\n", idx, in, &lines);
}
if (strncmp (in->ptr + idx, "COL=", 4) == 0)
if (strncasecmp (in->ptr + idx, "COL=", 4) == 0)
{
idx += 4;
idx = exp_get_abs ("form COL= needs absolute expresssion.\n", idx, in, &columns);
@ -2490,9 +2490,9 @@ buffer_and_nest (from, to, ptr)
{
if (ptr->ptr[i] == '.')
i++;
if (strncmp (ptr->ptr + i, from, from_len) == 0)
if (strncasecmp (ptr->ptr + i, from, from_len) == 0)
depth++;
if (strncmp (ptr->ptr + i, to, to_len) == 0)
if (strncasecmp (ptr->ptr + i, to, to_len) == 0)
{
depth--;
if (depth == 0)