diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-10 13:20:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-10 13:20:52 +0000 |
| commit | 4a8d5a0a2afc298c4e1acdc197e1889083b3e563 (patch) | |
| tree | 309d701a8f02c317380ed09fb46ab8e38d5c2cba /gcc/ada/mlib-tgt-specific-xi.adb | |
| parent | d563f41111240776b408a04da0c9c1761550566a (diff) | |
| download | gcc-4a8d5a0a2afc298c4e1acdc197e1889083b3e563.tar.gz | |
2009-04-10 Thomas Quinot <quinot@adacore.com>
* xsnamest.adb: Use XUtil to have uniform line endings (UNIX style) in
generated files on all platforms.
2009-04-10 Robert Dewar <dewar@adacore.com>
* sem_aux.adb: Minor reformatting
2009-04-10 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Access_Definition): Handle properly the case of a
protected function with formals that returns an anonymous access type.
2009-04-10 Thomas Quinot <quinot@adacore.com>
* sem_disp.adb: Minor reformatting
2009-04-10 Vasiliy Fofanov <fofanov@adacore.com>
* seh_init.c: Do not use the 32-bit specific implementation of
__gnat_install_SEH_handler on 64-bit Windows target (64-bit specific
version TBD).
2009-04-10 Jose Ruiz <ruiz@adacore.com>
* mlib-tgt-specific-xi.adb (Get_Target_Prefix): Target_Name may contain
a '/' at the end so we better use the complete target name to determine
whether it is a PowerPC 55xx target.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145898 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/mlib-tgt-specific-xi.adb')
| -rw-r--r-- | gcc/ada/mlib-tgt-specific-xi.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/mlib-tgt-specific-xi.adb b/gcc/ada/mlib-tgt-specific-xi.adb index 3a56d837125..97e6e53be1f 100644 --- a/gcc/ada/mlib-tgt-specific-xi.adb +++ b/gcc/ada/mlib-tgt-specific-xi.adb @@ -155,8 +155,9 @@ package body MLib.Tgt.Specific is elsif Target_Name (Target_Name'First .. Index) = "leon" then return "leon-elf-"; elsif Target_Name (Target_Name'First .. Index) = "powerpc" then - if Target_Name'Last - 6 >= Target_Name'First and then - Target_Name (Target_Name'Last - 6 .. Target_Name'Last) = "eabispe" + if Target_Name'Length >= 23 and then + Target_Name (Target_Name'First .. Target_Name'First + 22) = + "powerpc-unknown-eabispe" then return "powerpc-eabispe-"; else |