From: Richard Stallman <rms@gnu.org>
Date: Sat, 9 Jan 1993 15:10:30 +0000 (+0000)
Subject: (lookup_compiler): Fix special code for `-' suffix.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4cf3301cf5c82d0a4ae0c36cec9cb1427d9d5dfc;p=gcc.git

(lookup_compiler): Fix special code for `-' suffix.

From-SVN: r3174
---

diff --git a/gcc/gcc.c b/gcc/gcc.c
index 2f21fcb7aec..ff13c10592e 100644
--- a/gcc/gcc.c
+++ b/gcc/gcc.c
@@ -3664,12 +3664,13 @@ lookup_compiler (name, length, language)
   /* Look for a suffix.  */
   for (cp = compilers + n_compilers - 1; cp >= compilers; cp--)
     {
-      if (strlen (cp->suffix) < length
-	       /* See if the suffix matches the end of NAME.  */
-	       && !strcmp (cp->suffix,
-			   name + length - strlen (cp->suffix))
-	       /* The suffix `-' matches only the file name `-'.  */
-	       && !(!strcmp (cp->suffix, "-") && length != 1))
+      if (/* The suffix `-' matches only the file name `-'.  */
+	  (!strcmp (cp->suffix, "-") && !strcmp (name, "-"))
+	  ||
+	  (strlen (cp->suffix) < length
+	   /* See if the suffix matches the end of NAME.  */
+	   && !strcmp (cp->suffix,
+		       name + length - strlen (cp->suffix))))
 	{
 	  if (cp->spec[0][0] == '@')
 	    {