+2016-04-19 Arnaud Charlet <charlet@adacore.com>
+
+ * sem_ch6.adb (Process_Formals): Mark suspicious reference to
+ SPARK RM in comment.
+ * sem_prag.adb (Analyze_Global_Item): Fix reference to SPARK RM
+ in comment.
+ * sem_res.adb (Property_Error, Resolve_Actuals): Fix reference
+ to SPARK RM in both comment and error message.
+
2016-04-19 Eric Botcazou <ebotcazou@adacore.com>
* sem_ch6.adb (Possible_Freeze): If the type is an incomplete
-- A procedure cannot have an effectively volatile formal
-- parameter of mode IN because it behaves as a constant
- -- (SPARK RM 7.1.3(6)).
+ -- (SPARK RM 7.1.3(6)). -- ??? maybe 7.1.3(4)
elsif Ekind (Scope (Formal)) = E_Procedure
and then Ekind (Formal) = E_In_Parameter
-- An effectively volatile object with external property
-- Effective_Reads set to True must have mode Output or
- -- In_Out (SPARK RM 7.1.3(11)).
+ -- In_Out (SPARK RM 7.1.3(10)).
elsif Effective_Reads_Enabled (Item_Id)
and then Global_Mode = Name_Input
Error_Msg_Name_1 := Prop_Nam;
Error_Msg_NE
("external variable & with enabled property % cannot appear as "
- & "actual in procedure call (SPARK RM 7.1.3(11))", Var, Var_Id);
+ & "actual in procedure call (SPARK RM 7.1.3(10))", Var, Var_Id);
Error_Msg_N ("\\corresponding formal parameter has mode In", Var);
end Property_Error;
then
-- An effectively volatile object may act as an actual when the
-- corresponding formal is of a non-scalar effectively volatile
- -- type (SPARK RM 7.1.3(12)).
+ -- type (SPARK RM 7.1.3(11)).
if not Is_Scalar_Type (Etype (F))
and then Is_Effectively_Volatile (Etype (F))
-- An effectively volatile object may act as an actual in a
-- call to an instance of Unchecked_Conversion.
- -- (SPARK RM 7.1.3(12)).
+ -- (SPARK RM 7.1.3(11)).
elsif Is_Unchecked_Conversion_Instance (Nam) then
null;
else
Error_Msg_N
("volatile object cannot act as actual in a call (SPARK "
- & "RM 7.1.3(12))", A);
+ & "RM 7.1.3(11))", A);
end if;
-- Detect an external variable with an enabled property that