+2010-10-07 Robert Dewar <dewar@adacore.com>
+
+ * gnatcmd.adb, make.adb, prj-nmsc.adb, sem_elab.adb: Minor reformatting
+
+2010-10-07 Arnaud Charlet <charlet@adacore.com>
+
+ * exp_ch11.adb (Expand_N_Exception_Declaration): Update comments.
+
2010-10-07 Robert Dewar <dewar@adacore.com>
* sem_res.adb: Minor reformatting
begin
-- There is no expansion needed when compiling for the JVM since the
- -- JVM has a built-in exception mechanism. See 4jexcept.ads for details.
+ -- JVM has a built-in exception mechanism. See cil/gnatlib/a-except.ads
+ -- for details.
if VM_Target /= No_VM then
return;
(Main).Value),
"ci"));
- if not Is_Regular_File (File.all) and then
- B_Start.all /= "b__"
+ -- When looking for the .ci file for a binder
+ -- generated file, look for both b~xxx and b__xxx
+ -- as gprbuild always uses b__ as the prefix of
+ -- such files.
+
+ if not Is_Regular_File (File.all)
+ and then B_Start.all /= "b__"
then
File :=
new String'
end if;
elsif not Read_Only and then Main_Project /= No_Project then
-
if not Check_Source_Info_In_ALI (ALI, Project_Tree) then
ALI := No_ALI_Id;
return;
if Id.File /= Replaced_By.File then
declare
Replacement : constant File_Name_Type :=
- Replaced_Source_HTable.Get (Tree.Replaced_Sources, Id.File);
+ Replaced_Source_HTable.Get
+ (Tree.Replaced_Sources, Id.File);
+
begin
Replaced_Source_HTable.Set
(Tree.Replaced_Sources, Id.File, Replaced_By.File);
-- which can happen if the body enclosing the call appears
-- itself in a call whose elaboration check is delayed.
- if
- Nkind_In (N, N_Function_Call, N_Procedure_Call_Statement)
+ if Nkind_In (N, N_Function_Call,
+ N_Procedure_Call_Statement)
then
Set_No_Elaboration_Check (N);
end if;