From deef4289f2b8b58b98610b2fb8bfb87f3a83a7a8 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 6 May 2009 12:15:30 +0200 Subject: [PATCH] [multiple changes] 2009-05-06 Robert Dewar * s-fileio.adb: Minor comment update * sem_ch8.adb: Minor reformatting * exp_ch3.adb: Update comments. 2009-05-06 Tristan Gingold * init.c, s-osinte-darwin.ads: Reduce alternate stack size From-SVN: r147167 --- gcc/ada/ChangeLog | 16 ++++++++++++---- gcc/ada/exp_ch3.adb | 2 -- gcc/ada/init.c | 2 +- gcc/ada/s-fileio.adb | 5 +++-- gcc/ada/s-osinte-darwin.ads | 2 +- gcc/ada/sem_ch8.adb | 8 +++++--- 6 files changed, 22 insertions(+), 13 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index cf22d53dfb4..c92aaf54ab5 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,15 @@ +2009-05-06 Robert Dewar + + * s-fileio.adb: Minor comment update + + * sem_ch8.adb: Minor reformatting + + * exp_ch3.adb: Update comments. + +2009-05-06 Tristan Gingold + + * init.c, s-osinte-darwin.ads: Reduce alternate stack size + 2009-05-06 Arnaud Charlet * 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 - - * sem_aggr.adb: Minor code clean-up - 2009-05-06 Gary Dismukes * sem_aggr.adb: Fix typo. diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index df4c6668cc4..3a47042cae0 100644 --- 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 16a9662b8e1..1a24b673a24 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -2102,7 +2102,7 @@ __gnat_install_handler(void) #include /* 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 fd7adfd7044..c6abba09bbf 100644 --- 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 66c2ac0b92e..71cbe1517ab 100644 --- 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 1d8e797f1b4..713f2e35aaa 100644 --- 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; -- 2.30.2