OSDN Git Service

2005-04-09 Thomas Koenig <Thomas.Koenig@online.de>
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 9 Apr 2005 19:37:14 +0000 (19:37 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 9 Apr 2005 19:37:14 +0000 (19:37 +0000)
        PR libfortran/20163
        * runtime/string.c (compare0): Use fstrlen() to
        strip trailing blanks from option string.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97923 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/runtime/string.c

index 9399d73..2f31127 100644 (file)
@@ -1,3 +1,9 @@
+2005-04-09  Thomas Koenig <Thomas.Koenig@online.de>
+
+       PR libfortran/20163
+       * runtime/string.c (compare0): Use fstrlen() to 
+       strip trailing blanks from option string.
+
 2005-04-09  Andrew Pinski  <pinskia@physics.uc.edu>
 
        PR fortran/13257
index 07ed99b..07f374e 100644 (file)
@@ -41,17 +41,11 @@ static int
 compare0 (const char *s1, int s1_len, const char *s2)
 {
   int i;
+  int len;
 
-  if (strncasecmp (s1, s2, s1_len) != 0)
-    return 0;
-
-  /* The rest of s1 needs to be blanks for equality.  */
-
-  for (i = strlen (s2); i < s1_len; i++)
-    if (s1[i] != ' ')
-      return 0;
-
-  return 1;
+  /* Strip trailing blanks from the Fortran string.  */
+  len = fstrlen(s1, s1_len);
+  return strncasecmp(s1,s2,len) == 0;
 }