[multiple changes]

2011-09-01  Hristian Kirtchev  <kirtchev@adacore.com>

	* exp_strm.adb: Remove with and use clause for Opt.
	(Build_Array_Input_Function): Remove the version-dependent generation
	of the return statement. The Ada 2005 tree is now the default.

2011-09-01  Yannick Moy  <moy@adacore.com>

	* put_alfa.adb: Unconditionnally write files in Alfa section, so that
	it is never empty when compiling in Alfa mode.

2011-09-01  Robert Dewar  <dewar@adacore.com>

	* sem_aggr.adb, sem_ch3.adb, a-direct.adb, s-taprop-vxworks.adb,
	comperr.adb, exp_ch9.adb, exp_pakd.adb, sem_ch12.adb, freeze.adb,
	s-taprop-mingw.adb, s-taprop-linux.adb, s-taprop-solaris.adb,
	gnat1drv.adb, a-rbtgbo.adb, exp_dist.adb: Minor reformatting

2011-09-01  Matthew Heaney  <heaney@adacore.com>

	* Makefile.rtl, impunit.adb: Add a-csquin.ads, a-cusyqu.ad[sb],
	a-cuprqu.ad[sb], a-cbsyqu.ad[sb], a-cbprqu.ad[sb]
	* a-csquin.ads: New Ada 2012 unit that specifies the queue interface
	* a-cusyqu.ads, a-cusyqu.adb: New Ada 2012 unit that specifies the
	unbounded queue container.
	* a-cbsyqu.ads, a-cbsyqu.adb: New Ada 2012 unit that specifies the
	bounded queue container.
	* a-cuprqu.ads, a-cuprqu.adb: New Ada 2012 unit that specifies the
	unbounded priority queue container.
	* a-cbprqu.ads, a-cbprqu.adb: New Ada 2012 unit that specifies the
	bounded priority queue container.

From-SVN: r178398

1 files changed, 26 insertions, 22 deletions

diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb
index 676995fef1c..d21b3ecb34f 100644
--- a/gcc/ada/comperr.adb
+++ b/gcc/ada/comperr.adb
@@ -23,30 +23,30 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This package contains routines called when a fatal internal compiler
---  error is detected. Calls to these routines cause termination of the
---  current compilation with appropriate error output.
-
-with Atree;         use Atree;
-with Debug;         use Debug;
-with Errout;        use Errout;
-with Gnatvsn;       use Gnatvsn;
-with Lib;           use Lib;
-with Namet;         use Namet;
-with Opt;           use Opt;
-with Osint;         use Osint;
-with Output;        use Output;
-with Sinfo;         use Sinfo;
-with Sinput;        use Sinput;
-with Sprint;        use Sprint;
-with Sdefault;      use Sdefault;
-with System.OS_Lib; use System.OS_Lib;
-with Targparm;      use Targparm;
-with Treepr;        use Treepr;
-with Types;         use Types;
+--  This package contains routines called when a fatal internal compiler error
+--  is detected. Calls to these routines cause termination of the current
+--  compilation with appropriate error output.
+
+with Atree;    use Atree;
+with Debug;    use Debug;
+with Errout;   use Errout;
+with Gnatvsn;  use Gnatvsn;
+with Lib;      use Lib;
+with Namet;    use Namet;
+with Opt;      use Opt;
+with Osint;    use Osint;
+with Output;   use Output;
+with Sinfo;    use Sinfo;
+with Sinput;   use Sinput;
+with Sprint;   use Sprint;
+with Sdefault; use Sdefault;
+with Targparm; use Targparm;
+with Treepr;   use Treepr;
+with Types;    use Types;
 
 with Ada.Exceptions; use Ada.Exceptions;
 
+with System.OS_Lib;     use System.OS_Lib;
 with System.Soft_Links; use System.Soft_Links;
 
 package body Comperr is
@@ -147,6 +147,8 @@ package body Comperr is
          end if;
       end if;
 
+      --  If we are in CodePeer mode, we must also delete SCIL files
+
       if CodePeer_Mode then
          Delete_SCIL_Files;
       end if;
@@ -439,6 +441,7 @@ package body Comperr is
       Main    : Node_Id;
       Success : Boolean;
       pragma Unreferenced (Success);
+
    begin
       --  If parsing was not successful, no Main_Unit is available, so return
       --  immediately.
@@ -458,7 +461,8 @@ package body Comperr is
          Get_Name_String (Chars (Defining_Unit_Name (Main)));
       end if;
 
-      Delete_File ("SCIL/" & Name_Buffer (1 .. Name_Len) & ".scil", Success);
+      Delete_File
+        ("SCIL/" & Name_Buffer (1 .. Name_Len) & ".scil", Success);
       Delete_File
         ("SCIL/" & Name_Buffer (1 .. Name_Len) & "__body.scil", Success);
    end Delete_SCIL_Files;