diff options
| author | Richard Kenner <kenner@gcc.gnu.org> | 1993-07-26 16:03:20 -0400 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 1993-07-26 16:03:20 -0400 |
| commit | d3984356259c6f6cf2f590da378b0d227cfcf29a (patch) | |
| tree | 9ca2e8f10e86fa708c86083a984fc39e409acef9 | |
| parent | 27d433a2675e143da187bae555e44e1a7b11d880 (diff) | |
| download | gcc-d3984356259c6f6cf2f590da378b0d227cfcf29a.zip gcc-d3984356259c6f6cf2f590da378b0d227cfcf29a.tar.gz gcc-d3984356259c6f6cf2f590da378b0d227cfcf29a.tar.bz2 | |
(strip_off_ending): Allow .ad* for Ada.
From-SVN: r4989
| -rw-r--r-- | gcc/toplev.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/toplev.c b/gcc/toplev.c index 95a5f55..9967369 100644 --- a/gcc/toplev.c +++ b/gcc/toplev.c @@ -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; |