* sem_ch6.ads (Check_Subtype_Conformant): Add ??? comment for
undocumented formal.
Minor reformatting
* a-direio.ads: Fix typo in comment
* sem_ch3.adb, g-dirope.adb, sem_type.adb, sem_ch12.adb, sem_case.adb,
errout.adb, sem_ch4.adb, sem_ch11.adb, exp_dist.adb, sem_ch13.adb:
Use uniform phrasing for comment at start of subprogram body.
* xsnamest.adb: Add note to explain why we use specific names for the
newly generated files instead of generating snames.{ads,adb,h} directly
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145918
138bc75d-0d04-0410-961f-
82ee72b054a4
+2009-04-10 Thomas Quinot <quinot@adacore.com>
+
+ * sem_ch6.ads (Check_Subtype_Conformant): Add ??? comment for
+ undocumented formal.
+ Minor reformatting
+
+ * a-direio.ads: Fix typo in comment
+
+ * sem_ch3.adb, g-dirope.adb, sem_type.adb, sem_ch12.adb, sem_case.adb,
+ errout.adb, sem_ch4.adb, sem_ch11.adb, exp_dist.adb, sem_ch13.adb:
+ Use uniform phrasing for comment at start of subprogram body.
+
+ * xsnamest.adb: Add note to explain why we use specific names for the
+ newly generated files instead of generating snames.{ads,adb,h} directly
+
2009-04-10 Sergey Rybin <rybin@adacore.com>
* vms_data.ads:
-- Size of an element in storage units. The Max operation here is to ensure
-- that we allocate a single byte for zero-sized elements. It's a bit weird
-- to instantiate Direct_IO with zero sized elements, but it is legal and
- -- this adjustment ensures that we don't get anomolous behavior.
+ -- this adjustment ensures that we don't get anomalous behavior.
pragma Inline (Close);
pragma Inline (Create);
return;
end if;
- -- Start processing of new message
+ -- Start of processing for new message
Sindex := Get_Source_File_Index (Flag_Location);
Test_Style_Warning_Serious_Msg (Msg);
return Nod;
end Make_Discriminant_Reference;
- -- Start processing for Variant_Part
+ -- Start of processing for Variant_Part
begin
Append_To (Stmts,
end Check_For_Standard_Dirs;
end Basename;
- -- Start processing for Base_Name
+ -- Start of processing for Base_Name
begin
if Path'Length <= Suffix'Length then
Lo : Uint;
Prev_Hi : Uint;
- -- Start processing for Check_Choices
+ -- Start of processing for Check_Choices
begin
-- Choice_Table must start at 0 which is an unused location used
return False;
end Others_Present;
- -- Start processing for Analyze_Exception_Handlers
+ -- Start of processing for Analyze_Exception_Handlers
begin
Handler := First (L);
while Present (E1) and then E1 /= Instance loop
if Ekind (E1) = E_Package
and then Nkind (Parent (E1)) = N_Package_Renaming_Declaration
- and then Renamed_Object (E1) = Pack
then
- return True;
+ if Renamed_Object (E1) = Pack then
+ return True;
- elsif Renamed_Object (E1) = P then
- return False;
+ elsif Renamed_Object (E1) = P then
+ return False;
+ end if;
end if;
Next_Entity (E1);
return False;
end Is_Actual_Of_Previous_Formal;
- -- Start processing of Denotes_Formal_Package
+ -- Start of processing for Denotes_Formal_Package
begin
if On_Exit then
end if;
end Same_Rep;
- -- Start processing for Record_Case
+ -- Start of processing for Record_Case
begin
if Has_Discriminants (T1) then
end if;
end Post_Error;
- -- Start processing for Check_Completion
+ -- Start of processing for Check_Completion
begin
E := First_Entity (Current_Scope);
end if;
end Tag_Mismatch;
- -- Start processing for Find_Type_Name
+ -- Start of processing for Find_Type_Name
begin
-- Find incomplete declaration, if one was given
end if;
end Check_Right_Argument;
- -- Start processing for Find_Arithmetic_Types
+ -- Start of processing for Find_Arithmetic_Types
begin
if not Is_Overloaded (L) then
end if;
end Try_One_Interp;
- -- Start processing for Find_Comparison_Types
+ -- Start of processing for Find_Comparison_Types
begin
-- If left operand is aggregate, the right operand has to
Err_Loc : Node_Id := Empty;
Skip_Controlling_Formals : Boolean := False);
-- Check that two callable entities (subprograms, entries, literals)
- -- are subtype conformant, post error message if not (RM 6.3.1(16))
+ -- are subtype conformant, post error message if not (RM 6.3.1(16)),
-- the flag being placed on the Err_Loc node if it is specified, and
-- on the appropriate component of the New_Id construct if not.
+ -- What is the semantics of Skip_Controlling_Formals???
procedure Check_Type_Conformant
(New_Id : Entity_Id;
end if;
end Check_Right_Argument;
- -- Start processing for Intersect_Types
+ -- Start of processing for Intersect_Types
begin
if Etype (L) = Any_Type or else Etype (R) = Any_Type then
Open (InB, In_File, "snames.adb-tmpl");
Open (InH, In_File, "snames.h-tmpl");
+ -- Note that we do not generate snames.{ads,adb,h} directly. Instead
+ -- we output them to snames.n{s,b,h} so that Makefiles can use
+ -- move-if-change to not touch previously generated files if the
+ -- new ones are identical.
+
Create (OutS, Out_File, "snames.ns");
Create (OutB, Out_File, "snames.nb");
Create (OutH, Out_File, "snames.nh");
OSDN Git Service
