2009-05-06 Robert Dewar <dewar@adacore.com>

	* s-fileio.adb: Minor comment update

	* sem_ch8.adb: Minor reformatting

	* exp_ch3.adb: Update comments.

2009-05-06  Tristan Gingold  <gingold@adacore.com>

	* init.c, s-osinte-darwin.ads: Reduce alternate stack size

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147167 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index cf22d53..c92aaf5 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,15 @@
+2009-05-06  Robert Dewar  <dewar@adacore.com>
+
+       * s-fileio.adb: Minor comment update
+
+       * sem_ch8.adb: Minor reformatting
+
+       * exp_ch3.adb: Update comments.
+
+2009-05-06  Tristan Gingold  <gingold@adacore.com>
+
+       * init.c, s-osinte-darwin.ads: Reduce alternate stack size
+
 2009-05-06  Arnaud Charlet  <charlet@adacore.com>
 
        * gcc-interface/Makefile.in: Update LIBGNAT_TARGET_PAIRS for Xenomai.
@@ -15,10 +27,6 @@
        body of an instance is traversed before the instance itself, making
        this patch redundant.
 
-2009-05-06  Robert Dewar  <dewar@adacore.com>
-
-       * sem_aggr.adb: Minor code clean-up
-
 2009-05-06  Gary Dismukes  <dismukes@adacore.com>
 
        * sem_aggr.adb: Fix typo.

diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index df4c666..3a47042 100644 (file)
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -4773,8 +4773,6 @@ package body Exp_Ch3 is
 
          --  provided that X is not aliased. The aliased case has to be
          --  excluded in general because Expr will not be aliased in general.
-         --  We also exclude controlled types because X and Expr may need to
-         --  be attached to distinct finalization lists.
 
          if Rewrite_As_Renaming then
             Rewrite (N,

diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index 16a9662..1a24b67 100644 (file)
--- a/gcc/ada/init.c
+++ b/gcc/ada/init.c
@@ -2102,7 +2102,7 @@ __gnat_install_handler(void)
 #include <mach/vm_statistics.h>
 
 /* This must be in keeping with System.OS_Interface.Alternate_Stack_Size.  */
-char __gnat_alternate_stack[64 * 1024]; /* 2 * MINSIGSTKSZ */
+char __gnat_alternate_stack[32 * 1024]; /* 1 * MINSIGSTKSZ */
 
 static void __gnat_error_handler (int sig, siginfo_t * si, void * uc);
 

diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb
index fd7adfd..c6abba0 100644 (file)
--- a/gcc/ada/s-fileio.adb
+++ b/gcc/ada/s-fileio.adb
@@ -77,8 +77,9 @@ package body System.File_IO is
    --  The closing of all open files and deletion of temporary files is an
    --  action that takes place at the end of execution of the main program.
    --  This action is implemented using a library level object which gets
-   --  finalized at the end of program execution. Note that the type should be
-   --  limited, in order to avoid unwanted optimizations.
+   --  finalized at the end of program execution. Note that the type is
+   --  limited, in order to stop the compiler optimizing away the declaration
+   --  which would be allowed in the non-limited case.
 
    procedure Finalize (V : in out File_IO_Clean_Up_Type);
    --  This is the finalize operation that is used to do the cleanup

diff --git a/gcc/ada/s-osinte-darwin.ads b/gcc/ada/s-osinte-darwin.ads
index 66c2ac0..71cbe15 100644 (file)
--- a/gcc/ada/s-osinte-darwin.ads
+++ b/gcc/ada/s-osinte-darwin.ads
@@ -285,7 +285,7 @@ package System.OS_Interface is
    pragma Import (C, Alternate_Stack, "__gnat_alternate_stack");
    --  The alternate signal stack for stack overflows
 
-   Alternate_Stack_Size : constant := 64 * 1024;
+   Alternate_Stack_Size : constant := 32 * 1024;
    --  This must be in keeping with init.c:__gnat_alternate_stack
 
    Stack_Base_Available : constant Boolean := False;

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 1d8e797..713f2e3 100644 (file)
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -3741,7 +3741,8 @@ package body Sem_Ch8 is
             while Present (Ent) loop
                if Is_Potentially_Use_Visible (Ent) then
                   if not Hidden then
-                     Error_Msg_N ("multiple use clauses cause hiding!", N);
+                     Error_Msg_N -- CODEFIX
+                       ("multiple use clauses cause hiding!", N);
                      Hidden := True;
                   end if;
 
@@ -3961,7 +3962,8 @@ package body Sem_Ch8 is
                end loop;
 
                if Present (Ematch) then
-                  Error_Msg_NE ("\possible misspelling of&", N, Ematch);
+                  Error_Msg_NE -- CODEFIX
+                    ("\possible misspelling of&", N, Ematch);
                end if;
             end;
          end if;
@@ -4747,7 +4749,7 @@ package body Sem_Ch8 is
                      if Is_Bad_Spelling_Of (Chars (Id), Chars (Selector))
                        and then not Is_Internal_Name (Chars (Id))
                      then
-                        Error_Msg_NE
+                        Error_Msg_NE -- CODEFIX
                           ("possible misspelling of&", Selector, Id);
                         exit;
                      end if;