diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-19 13:09:07 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-19 13:09:07 +0000 |
commit | 4dc3174c98bd6006894632c05bed35d6dec23be7 (patch) | |
tree | 259ca518485684926c1173c48c5455e7f043577f /gcc/ada/sem_attr.adb | |
parent | cdfa20c43c201701e131409bdcc96575de07e1b0 (diff) | |
download | gcc-4dc3174c98bd6006894632c05bed35d6dec23be7.tar.gz |
2016-04-19 Arnaud Charlet <charlet@adacore.com>
* sem_prag.adb, sem_attr.adb, par-prag.adb, exp_aggr.adb, sem_type.adb
sem_ch12.adb, sem_ch3.adb, exp_ch7.adb, exp_ch9.adb: Code cleanup.
* sem_res.adb, sem_util.ads, sem_util.adb (Is_OK_Volatile_Context):
Promoted from being a nested subprogram in Sem_Res.Resolve_Entity_Name
to publicly visible routine in Sem_Util.
2016-04-19 Ed Schonberg <schonberg@adacore.com>
* checks.adb (Apply_Parameter_Aliasing_Checks): Do not apply
the check if the type of the actual is By_Reference.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235199 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_attr.adb')
-rw-r--r-- | gcc/ada/sem_attr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 17f06f3e483..fa44c1d96d6 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -6041,7 +6041,7 @@ package body Sem_Attr is Start_String; for J in 1 .. String_Length (Full_Name) - 1 loop - Store_String_Char (Get_String_Char (Full_Name, Int (J))); + Store_String_Char (Get_String_Char (Full_Name, Pos (J))); end loop; Store_String_Chars ("'Type_Key"); |