OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Update references to the SPARK RM 

2019-08-21  Yannick Moy  <moy@adacore.com>

gcc/ada/

	* sem_spark.adb: Update references to the SPARK RM.

From-SVN: r274787
This commit is contained in:
Yannick Moy 2019-08-21 08:31:03 +00:00 committed by Pierre-Marie de Rodat
parent 3c488e6c86
commit e9934e8c79
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2019-08-21 Yannick Moy <moy@adacore.com>
* sem_spark.adb: Update references to the SPARK RM.
2019-08-21 Eric Botcazou <ebotcazou@adacore.com>
* repinfo.adb (List_Array_Info): In -gnatR4 mode, set the

12
gcc/ada/sem_spark.adb
View File

@ -672,7 +672,7 @@ package body Sem_SPARK is
-- Main traversal procedure to check safe pointer usage
procedure Check_Old_Loop_Entry (N : Node_Id);
-- Check SPARK RM 3.10(14) regarding 'Old and 'Loop_Entry
-- Check SPARK RM 3.10(13) regarding 'Old and 'Loop_Entry
procedure Check_Package_Body (Pack : Node_Id);
@ -1085,7 +1085,7 @@ package body Sem_SPARK is
Borrowed : constant Node_Id := Get_Observed_Or_Borrowed_Expr (Expr);
begin
-- SPARK RM 3.10(8): If the type of the target is an anonymous
-- SPARK RM 3.10(7): If the type of the target is an anonymous
-- access-to-variable type (an owning access type), the source shall
-- be an owning access object [..] whose root object is the target
-- object itself.
@ -1100,7 +1100,7 @@ package body Sem_SPARK is
if Emit_Messages then
Error_Msg_NE
("source of assignment must have & as root" &
" (SPARK RM 3.10(8)))",
" (SPARK RM 3.10(7)))",
Expr, Var);
end if;
return;
@ -1132,7 +1132,7 @@ package body Sem_SPARK is
if Emit_Messages then
Error_Msg_NE
("source of assignment must have & as root" &
" (SPARK RM 3.10(8)))",
" (SPARK RM 3.10(7)))",
Expr, Var);
end if;
return;
@ -2855,7 +2855,7 @@ package body Sem_SPARK is
Error_Msg_Name_1 := Aname;
Error_Msg_N
("prefix of % attribute must be a function call "
& "(SPARK RM 3.10(14))", Pref);
& "(SPARK RM 3.10(13))", Pref);
end if;
elsif Is_Traversal_Function_Call (Pref) then
@ -2863,7 +2863,7 @@ package body Sem_SPARK is
Error_Msg_Name_1 := Aname;
Error_Msg_N
("prefix of % attribute should not call a traversal "
& "function (SPARK RM 3.10(14))", Pref);
& "function (SPARK RM 3.10(13))", Pref);
end if;
end if;
end if;