diff options
| author | Yannick Moy <moy@adacore.com> | 2011-08-02 15:10:17 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 17:10:17 +0200 |
| commit | 2ba431e53edd2d06e5040a585454680990935d9d (patch) | |
| tree | 17782362e9211837a9f24856f0f7c0d5c803a897 /gcc/ada/sem_attr.adb | |
| parent | 0f85303509461f48131fcd3c34d1c159b6771dd1 (diff) | |
| download | gcc-2ba431e53edd2d06e5040a585454680990935d9d.zip gcc-2ba431e53edd2d06e5040a585454680990935d9d.tar.gz gcc-2ba431e53edd2d06e5040a585454680990935d9d.tar.bz2 | |
sem_aggr.adb, [...]: cleanup of SPARK mode
2011-08-02 Yannick Moy <moy@adacore.com>
* sem_aggr.adb, err_vars.ads, sem_ch3.adb, sem_ch5.adb, sem_ch9.adb,
debug.adb, sem_util.adb, sem_res.adb, sem_attr.adb, gnat1drv.adb,
errout.adb, errout.ads, exp_ch6.adb, sem_ch4.adb, restrict.adb,
restrict.ads, sem_ch6.adb, sem_ch8.adb, sem_ch11.adb,
opt.ads: cleanup of SPARK mode
From-SVN: r177175
Diffstat (limited to 'gcc/ada/sem_attr.adb')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 4ff4ff4..01a9bef 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1296,7 +1296,7 @@ package body Sem_Attr is procedure Check_Formal_Restriction_On_Attribute is begin Error_Msg_Name_1 := Aname; - Check_Formal_Restriction ("attribute % is not allowed", P); + Check_SPARK_Restriction ("attribute % is not allowed", P); end Check_Formal_Restriction_On_Attribute; ------------------------ @@ -2068,8 +2068,8 @@ package body Sem_Attr is end if; end if; - -- In SPARK or ALFA, attributes of private types are only allowed if - -- the full type declaration is visible. + -- In SPARK, attributes of private types are only allowed if the full + -- type declaration is visible. if Is_Entity_Name (P) and then Present (Entity (P)) -- needed in some cases @@ -2079,7 +2079,7 @@ package body Sem_Attr is and then not In_Spec_Expression then Error_Msg_Node_1 := First_Subtype (P_Type); - Check_Formal_Restriction ("invisible attribute of}", N); + Check_SPARK_Restriction ("invisible attribute of}", N); end if; -- Remaining processing depends on attribute @@ -2460,7 +2460,7 @@ package body Sem_Attr is if Nkind (Parent (N)) /= N_Attribute_Reference then Error_Msg_Name_1 := Aname; - Check_Formal_Restriction + Check_SPARK_Restriction ("attribute% is only allowed as prefix of another attribute", P); end if; @@ -3877,7 +3877,7 @@ package body Sem_Attr is if Is_Boolean_Type (P_Type) then Error_Msg_Name_1 := Aname; Error_Msg_Name_2 := Chars (P_Type); - Check_Formal_Restriction + Check_SPARK_Restriction ("attribute% is not allowed for type%", P); end if; @@ -3903,7 +3903,7 @@ package body Sem_Attr is if Is_Real_Type (P_Type) or else Is_Boolean_Type (P_Type) then Error_Msg_Name_1 := Aname; Error_Msg_Name_2 := Chars (P_Type); - Check_Formal_Restriction + Check_SPARK_Restriction ("attribute% is not allowed for type%", P); end if; @@ -4461,7 +4461,7 @@ package body Sem_Attr is if Is_Real_Type (P_Type) or else Is_Boolean_Type (P_Type) then Error_Msg_Name_1 := Aname; Error_Msg_Name_2 := Chars (P_Type); - Check_Formal_Restriction + Check_SPARK_Restriction ("attribute% is not allowed for type%", P); end if; @@ -4786,7 +4786,7 @@ package body Sem_Attr is if Is_Boolean_Type (P_Type) then Error_Msg_Name_1 := Aname; Error_Msg_Name_2 := Chars (P_Type); - Check_Formal_Restriction + Check_SPARK_Restriction ("attribute% is not allowed for type%", P); end if; |