From: Richard Kenner <kenner@gcc.gnu.org>
Date: Mon, 14 Dec 1992 18:16:00 +0000 (-0500)
Subject: (output_epilog): Support LANGUAGE_STRING values for F77,
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9353d0a3fbf53e59b789af80b9567f9cd02b91fc;p=gcc.git

(output_epilog): Support LANGUAGE_STRING values for F77,

Ada, and Pascal.

From-SVN: r2873
---

diff --git a/gcc/config/rs6000/rs6000.c b/gcc/config/rs6000/rs6000.c
index 0864b9e0dd4..2bfaa3dd8a6 100644
--- a/gcc/config/rs6000/rs6000.c
+++ b/gcc/config/rs6000/rs6000.c
@@ -1432,6 +1432,12 @@ output_epilog (file, size)
        language_string, so we can't detect it anyways.  */
     if (! strcmp (language_string, "GNU C"))
       i = 0;
+    else if (! strcmp (language_string, "GNU F77"))
+      i = 1;
+    else if (! strcmp (language_string, "GNU Ada"))
+      i = 3;
+    else if (! strcmp (language_string, "GNU PASCAL"))
+      i = 2;
     else if (! strcmp (language_string, "GNU C++"))
       i = 9;
     else