From d3984356259c6f6cf2f590da378b0d227cfcf29a Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Mon, 26 Jul 1993 16:03:20 -0400 Subject: [PATCH] (strip_off_ending): Allow .ad* for Ada. From-SVN: r4989 --- gcc/toplev.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/toplev.c b/gcc/toplev.c index 95a5f553f81..9967369bba7 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; -- 2.30.2