aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/sem_ch5.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2010-10-26 12:57:52 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2010-10-26 12:57:52 +0200
commit3b097d112828a037df20ac72ece37f771d321a1b (patch)
tree2cc9b5a637f02648c47d1218218b06c410228d5c /gcc/ada/sem_ch5.adb
parent3e5daac435e6f3da145310c2140745df5a04fd45 (diff)
downloadgcc-3b097d112828a037df20ac72ece37f771d321a1b.zip
gcc-3b097d112828a037df20ac72ece37f771d321a1b.tar.gz
gcc-3b097d112828a037df20ac72ece37f771d321a1b.tar.bz2
[multiple changes]
2010-10-26 Ed Schonberg <schonberg@adacore.com> * sem_ch5.adb: Adjust format of error message. 2010-10-26 Robert Dewar <dewar@adacore.com> * einfo.ads, einfo.adb (OK_To_Reference): Removed, no longer used. * exp_util.adb (Side_Effect_Free): Put in safety barrier in code to detect renamings to avoid problems with invariants. * sem_ch13.adb (Replace_Type_References_Generic): New procedure (Build_Invariant_Procedure): Use Replace_Type_Reference_Generic (Build_Predicate_Function): Use Replace_Type_Reference_Generic * sem_res.adb, sem_ch8.adb, sem_ch4.adb (OK_To_Reference): Remove references, flag is no longer set. From-SVN: r165944
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
-rw-r--r--gcc/ada/sem_ch5.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb
index e7091cd..5edc342 100644
--- a/gcc/ada/sem_ch5.adb
+++ b/gcc/ada/sem_ch5.adb
@@ -2011,7 +2011,7 @@ package body Sem_Ch5 is
Set_Etype (Def_Id, Component_Type (Typ));
else
Error_Msg_N
- ("to iterate over the elements of an array, use 'O'F", N);
+ ("to iterate over the elements of an array, use OF", N);
Set_Etype (Def_Id, Etype (First_Index (Typ)));
end if;