diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-20 09:21:59 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-20 09:21:59 +0000 |
| commit | b2ff4e1fddca0b032ec844b1ad07db0df798e2ec (patch) | |
| tree | 64a85a5e06c6212ca24ee4d1b7a1edb191546fad /gcc/ada/osint.adb | |
| parent | c4c4e986552ebc04bab1dfebd119f3bef4740ca2 (diff) | |
| download | gcc-b2ff4e1fddca0b032ec844b1ad07db0df798e2ec.tar.gz | |
2016-04-20 Yannick Moy <moy@adacore.com>
* osint.adb (Relocate_Path): Fix test when Path is shorter than Prefix.
* einfo.adb (Set_Overridden_Operation): Add assertion.
* sem_util.adb (Unique_Entity): for renaming-as-body return the spec
entity.
2016-04-20 Javier Miranda <miranda@adacore.com>
* exp_unst.adb (Append_Unique_Call): New subprogram.
(Unnest_Subprogram): Replace the unique occurrence
of Call.Append() by Append_Unique_Call() which protects us from
adding to the Calls table duplicated entries.
2016-04-20 Arnaud Charlet <charlet@adacore.com>
* exp_attr.adb (Is_GCC_Target): Fix for C backend.
* xref_lib.ads (Dependencies_Tables): instantiate
Table package with types that guarantee its safe use.
* s-imgllu.adb, s-imgint.adb, s-imguns.adb, s-imglli.adb: Avoid nested
procedures.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235248 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 7567d179c29..22327a0707c 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -2752,7 +2752,7 @@ package body Osint is end if; end if; - if Path (Prefix'Range) = Prefix then + if Path'Last >= Prefix'Last and then Path (Prefix'Range) = Prefix then if Std_Prefix.all /= "" then S := new String (1 .. Std_Prefix'Length + Path'Last - Prefix'Last); |