diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-04-06 16:21:20 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-04-06 16:21:20 +0200 |
| commit | 3984e89a1850369bff1cce7b0ce53ef658e84649 (patch) | |
| tree | 22743ad17c4fb05c9d0205bbb36a11d6338a0918 /gcc/ada/osint.adb | |
| parent | 13ecc9e00390125437b13b4f977f96a34d682b4a (diff) | |
| download | gcc-3984e89a1850369bff1cce7b0ce53ef658e84649.zip gcc-3984e89a1850369bff1cce7b0ce53ef658e84649.tar.gz gcc-3984e89a1850369bff1cce7b0ce53ef658e84649.tar.bz2 | |
[multiple changes]
2004-04-06 Pascal Obry <obry@gnat.com>
* adaint.c (DIR_SEPARATOR): Properly set DIR_SEPARATOR on Win32.
* osint.adb (Program_Name): Do not look past a directory separator.
2004-04-06 Thomas Quinot <quinot@act-europe.fr>
* atree.adb: Update comment (Rewrite_Substitute_Node no longer exists).
* exp_ch6.adb (Rewrite_Function_Call): Clarify documentation of
requirement for preserving a copy of the original assignment node.
* sinfo.ads: Update comment (Original_Tree -> Original_Node).
2004-04-06 Olivier Hainque <hainque@act-europe.fr>
(__gnat_initialize [Vxworks]): Enable references to the crtstuff bits
when supported.
2004-04-06 Ed Schonberg <schonberg@gnat.com>
* sem_ch4.adb (Remove_Abstract_Operations): Extend previous changes to
operator calls in functional notation, and apply
Universal_Interpretation to operands, not to their type.
2004-04-06 Robert Dewar <dewar@gnat.com>
* 5wdirval.adb: Minor reformatting
2004-04-06 Ed Falis <falis@gnat.com>
* gnat_rm.texi: Improve a reference to the GCC manual
From-SVN: r80453
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 07355ed..e2e559f 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -1794,8 +1794,18 @@ package body Osint is -- "alpha-dec-vxworks-" 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 + Name_Len := 0; + exit; end if; Name_Len := Name_Len - 1; |