From 9353d0a3fbf53e59b789af80b9567f9cd02b91fc Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Mon, 14 Dec 1992 13:16:00 -0500 Subject: [PATCH] (output_epilog): Support LANGUAGE_STRING values for F77, Ada, and Pascal. From-SVN: r2873 --- gcc/config/rs6000/rs6000.c | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 2.30.2