* exp_ch7.adb, exp_ch6.adb: Minor reformatting.
2011-09-05 Johannes Kanig <kanig@adacore.com>
* lib-xref-alfa.adb: Update comments.
2011-09-05 Thomas Quinot <quinot@adacore.com>
* sem_res.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178535
138bc75d-0d04-0410-961f-
82ee72b054a4
+2011-09-05 Gary Dismukes <dismukes@adacore.com>
+
+ * exp_ch7.adb, exp_ch6.adb: Minor reformatting.
+
+2011-09-05 Johannes Kanig <kanig@adacore.com>
+
+ * lib-xref-alfa.adb: Update comments.
+
+2011-09-05 Thomas Quinot <quinot@adacore.com>
+
+ * sem_res.adb: Minor reformatting
+
2011-09-05 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Build_In_Place_Formal): If extra formals are not
Add_Finalization_Master_Actual_To_Build_In_Place_Call
(Func_Call, Function_Id, Acc_Type);
- -- Is access type has a master entity, pass a reference to it.
+ -- If access type has a master entity, pass a reference to it
if Present (Master_Id (Acc_Type)) then
Add_Task_Actuals_To_Build_In_Place_Call
Parameter_Associations =>
New_List (New_Reference_To (Data.E_Id, Data.Loc)));
- -- Restricted runtime: exception messages are not supported and hence
+ -- Restricted run-time: exception messages are not supported and hence
-- Raise_From_Controlled_Operation is not supported. Raise Program_Error
-- instead.
No_Body := True;
end if;
- -- For a nested instance, delay processing until freeze point.
+ -- For a nested instance, delay processing until freeze point
if Has_Delayed_Freeze (Id)
- and then Nkind (Parent (N)) /= N_Compilation_Unit
+ and then Nkind (Parent (N)) /= N_Compilation_Unit
then
return;
end if;
-- Procedure call or raise statement
begin
- -- Standard runtime, .NET/JVM targets: add choice parameter E and pass
+ -- Standard run-time, .NET/JVM targets: add choice parameter E and pass
-- it to Raise_From_Controlled_Operation so that the original exception
-- name and message can be recorded in the exception message for
-- Program_Error.
Parameter_Associations => New_List (
New_Reference_To (E_Occ, Loc)));
- -- Restricted runtime: exception messages are not supported
+ -- Restricted run-time: exception messages are not supported
else
E_Occ := Empty;
Attribute_Name => Name_Unrestricted_Access)));
-- In the case of build-in-place functions, protect the call to ensure
- -- we have a master at runtime. Generate:
+ -- we have a master at run time. Generate:
-- if <Ptr_Typ>FM /= null then
-- <Call>;
when Overloadable_Kind =>
return Typ = 's';
- -- References to IN parameters are not considered in Alfa
- -- section, as these will be translated as constants in the
- -- intermediate language for formal verification.
-
- -- Above comment is incomplete??? what about E_Constant case
+ -- References to IN parameters and constants are not
+ -- considered in Alfa section, as these will be translated
+ -- as constants in the intermediate language for formal
+ -- verification, and should therefore never appear in frame
+ -- conditions.
when E_In_Parameter | E_Constant =>
return False;
return Res;
end Convert_Operand;
- -- Start of processing for Resolve_Intrinsic_Operator
+ -- Start of processing for Resolve_Intrinsic_Operator
begin
-- We must preserve the original entity in a generic setting, so that