gcc.c (read_specs): Detect and fail if an attempt is made to rename a spec string to an already...

2002-04-17  Nick Clifton  <nickc@cambridge.redhat.com>

    * gcc.c (read_specs): Detect and fail if an attempt is made to
    rename a spec string to an already existing string.

From-SVN: r52426

gcc/ChangeLog

+2002-04-17  Nick Clifton  <nickc@cambridge.redhat.com>
+
+	* gcc.c (read_specs): Detect and fail if an attempt is made to
+	rename a spec string to an already existing string.
+
 2002-04-17  Ulrich Weigand  <uweigand@de.ibm.com>
 
 	* config/s390/s390.c (legitimize_pic_address): Do not generate

gcc/gcc.c

@@ -1862,8 +1862,9 @@ read_specs (filename, main_p)
 	    {
 	      int name_len;
 	      struct spec_list *sl;
+	      struct spec_list *newsl;
 
-	      /* Get original name */
+	      /* Get original name.  */
 	      p1 += sizeof "%rename";
 	      while (*p1 == ' ' || *p1 == '\t')
 		p1++;
@@ -1909,6 +1910,11 @@ read_specs (filename, main_p)
 	      if (strcmp (p1, p2) == 0)
 		continue;
 
+	      for (newsl = specs; newsl; newsl = newsl->next)
+		if (strcmp (newsl->name, p2) == 0)
+		  fatal ("%s: attempt to rename spec '%s' to already defined spec '%s'",
+		    filename, p1, p2);
+
 	      if (verbose_flag)
 		{
 		  notice ("rename spec %s to %s\n", p1, p2);