[multiple changes]

2009-07-23  Robert Dewar  <dewar@adacore.com>

	* scos.ads: Minor reformatting.

2009-07-23  Pascal Obry  <obry@adacore.com>

	* prj-nmsc.adb: Fix spec/body naming extension on case insensitive
	systems.

From-SVN: r150006

gcc/ada/ChangeLog

+2009-07-23  Gary Dismukes  <dismukes@adacore.com>
+
+	* sem_aggr.adb (Resolve_Extension_Aggregate): Report an error when the
+	ancestor part is a call to a limited function with an unconstrained
+	result subtype unless the aggregate has a null extension type.
+	* sem_ch3.adb (Is_Null_Extension): Use the base type when retrieving
+	the parent type declaration to avoid blowups on subtype cases.
+
+2009-07-23  Robert Dewar  <dewar@adacore.com>
+
+	* par-ch4.adb (P_Aggregate_Or_Paren_Expr): Better message for missing
+	comma.
+
+	* sem_util.adb (Wrong_Type): Special message for cases like A and B = 0
+
+	* s-regexp.adb: Minor reformatting
+	* scos.ads: Minor reformatting.
+
+2009-07-23  Arnaud Charlet  <charlet@adacore.com>
+
+	* freeze.adb (Set_Small_Size): Remove extra space for consistency with
+	other similar messages.
+	* sem_prag.adb (Freeze_Record_Type, Freeze_Entity): Disable error
+	messages/implicit packing in CodePeer mode.
+	(Analyze_Pragma [case pragma Pack]): Ignore pragma in CodePeer mode.
+	* errout.adb (Special_Msg_Delete): Suppress 'size too small' message in
+	CodePeer mode.
+
+2009-07-23  Pascal Obry  <obry@adacore.com>
+
+	* prj-nmsc.adb: Fix spec/body naming extension on case insensitive
+	systems.
+
 2009-07-23  Robert Dewar  <dewar@adacore.com>
 
 	* einfo.ads, g-ssvety.ads, s-regexp.adb, g-sse.ads: Update comment.

gcc/ada/prj-nmsc.adb

@@ -105,7 +105,7 @@ package body Prj.Nmsc is
       Key        => File_Name_Type,
       Hash       => Hash,
       Equal      => "=");
-   --  A hash table to store the base names of excluded files, if any.
+   --  A hash table to store the base names of excluded files, if any
 
    package Object_File_Names_Htable is new GNAT.Dynamic_HTables.Simple_HTable
      (Header_Num => Header_Num,
@@ -163,7 +163,7 @@ package body Prj.Nmsc is
    procedure Check
      (Project     : Project_Id;
       Data        : in out Tree_Processing_Data);
-   --  Process the naming scheme for a single project.
+   --  Process the naming scheme for a single project
 
    procedure Initialize
      (Data    : in out Project_Processing_Data;
@@ -494,9 +494,12 @@ package body Prj.Nmsc is
       end if;
 
       declare
-         Suf : constant String := Get_Name_String (Suffix);
+         Suf : String := Get_Name_String (Suffix);
 
       begin
+         --  On non case-sensitive systems, use proper suffix casing
+         Canonical_Case_File_Name (Suf);
+
          --  The file name must end with the suffix (which is not an extension)
          --  For instance a suffix "configure.in" must match a file with the
          --  same name. To avoid dummy cases, though, a suffix starting with
@@ -6239,7 +6242,7 @@ package body Prj.Nmsc is
          Data            => Data,
          For_All_Sources => Sources.Default and then Source_List_File.Default);
 
-      --  Check if all exceptions have been found.
+      --  Check if all exceptions have been found
 
       declare
          Source : Source_Id;

gcc/ada/scos.ads

@@ -86,8 +86,10 @@ package SCOs is
    --        a Source_Reference pragma was encountered (since all line number
    --        references will be with respect to the original file).
 
-   --        Isn't the filename indication redundant, since we can look it up
-   --        from the D line???
+   --        Note: the filename is redundant in that it could be deduced from
+   --        the corresponding D line, but it is convenient at least for human
+   --        reading of the SCO information, and means that the SCO information
+   --        can stand on its own without needing other parts of the ALI file.
 
    --  Statements