2010-10-06 Mikael Morin <mikael@gcc.gnu.org>

	* module.c (read_module): Remove useless string duplication.

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8d8fc7f..b4252ec 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,9 @@
 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
 
+       * module.c (read_module): Remove useless string duplication.
+
+2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
+
        * gfortranspec.c (append_arg): Remove commented code.
 
 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index c90fe0d..02f5756 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -4372,8 +4372,8 @@ read_module (void)
            p = name;
 
          /* Exception: Always import vtabs & vtypes.  */
-         if (p == NULL && (strcmp (xstrndup (name,5), "vtab$") == 0
-                           || strcmp (xstrndup (name,6), "vtype$") == 0))
+         if (p == NULL && (strncmp (name, "vtab$", 5) == 0
+                           || strncmp (name, "vtype$", 6) == 0))
            p = name;
 
          /* Skip symtree nodes not in an ONLY clause, unless there