Commit d3984356 by Richard Kenner

(strip_off_ending): Allow .ad* for Ada.

From-SVN: r4989
parent 27d433a2
...@@ -1481,7 +1481,9 @@ strip_off_ending (name, len) ...@@ -1481,7 +1481,9 @@ strip_off_ending (name, len)
name[len - 4] = 0; name[len - 4] = 0;
else if (len > 2 && ! strcmp (".f", name + len - 2)) else if (len > 2 && ! strcmp (".f", name + len - 2))
name[len - 2] = 0; 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; name[len - 4] = 0;
else if (len > 4 && ! strcmp (".atr", name + len - 4)) else if (len > 4 && ! strcmp (".atr", name + len - 4))
name[len - 4] = 0; name[len - 4] = 0;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment