diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-04-06 14:21:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-04-06 14:21:20 +0000 |
| commit | fef772a5d0656a9dfcf2f28240966406c6ee8eb7 (patch) | |
| tree | 22743ad17c4fb05c9d0205bbb36a11d6338a0918 /gcc/ada/osint.adb | |
| parent | 8cdd325744c3673a6939b9bbdabde4778feca96e (diff) | |
| download | gcc-fef772a5d0656a9dfcf2f28240966406c6ee8eb7.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@80453 138bc75d-0d04-0410-961f-82ee72b054a4
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 07355ed9ba2..e2e559fac7e 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; |