MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(strip_off_ending): Allow .ad* for Ada.

Browse Source 
From-SVN: r4989
This commit is contained in:
Richard Kenner 1993-07-26 16:03:20 -04:00
parent 27d433a267
commit d398435625
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/toplev.c
View File

@ -1481,7 +1481,9 @@ strip_off_ending (name, len)
name[len - 4] = 0;
else if (len > 2 && ! strcmp (".f", name + len - 2))
name[len - 2] = 0;
else if (len > 4 && ! strcmp (".ada", name + len - 4))
/* Ada will use extensions like .ada, .adb, and .ads, so just test
for "ad". */
else if (len > 4 && ! strncmp (".ad", name + len - 4, 3))
name[len - 4] = 0;
else if (len > 4 && ! strcmp (".atr", name + len - 4))
name[len - 4] = 0;