------- Comment #4 from laurent at guerby dot net 2006-09-18 22:04 -------
(sorry to be guessing, but I don't understand much of what this code is doing.)
Here is another try (probably breaks cross tools, but if it works at least we
know where the problem lies):
--- osint.adb.orig 2006-09-18 20:05:30.000000000 +0200
+++ osint.adb 2006-09-19 00:03:14.000000000 +0200
@@ -1027,7 +1027,7 @@
-- This would take the form of TOOL.exe followed by a ";" or "."
-- and a sequence of one or more numbers.
- if Command_Name (Cindex2) in '0' .. '9' then
+ if Hostparm.OpenVMS and Command_Name (Cindex2) in '0' .. '9' then
for J in reverse Cindex1 .. Cindex2 loop
if Command_Name (J) = '.' or Command_Name (J) = ';' then
Cindex2 := J - 1;
@@ -1831,15 +1831,7 @@
while Name_Len > 0 loop
- -- All done if we find the last hyphen
-
- if Name_Buffer (Name_Len) = '-' then
- exit;
-
- -- If directory separator found, we don't want to look further
- -- since in this case, no prefix has been found.
-
- elsif Is_Directory_Separator (Name_Buffer (Name_Len)) then
+ if Is_Directory_Separator (Name_Buffer (Name_Len)) then
Name_Len := 0;
exit;
end if;
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29127
