(output_epilog): Support LANGUAGE_STRING values for F77,

Ada, and Pascal.

From-SVN: r2873
This commit is contained in:
Richard Kenner 1992-12-14 13:16:00 -05:00
parent 10c344b44c
commit 9353d0a3fb
1 changed files with 6 additions and 0 deletions

View File

@ -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