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

	string compares. gas/7274.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 938f6da..e745468 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -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

diff --git a/gas/gasp.c b/gas/gasp.c
index 661c247..4e19590 100644 (file)
--- a/gas/gasp.c
+++ b/gas/gasp.c
@@ -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)