diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-04 18:51:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-04 18:51:10 +0000 |
| commit | d17e11be473e2e98a6f29b68b5ca4309aa8aeea1 (patch) | |
| tree | dd8620d0c04fbcf91c4f0911a471fd4abb1cd626 | |
| parent | f74a743dff517ff0620ee2a35c38c1317c80071b (diff) | |
| download | ppe42-gcc-d17e11be473e2e98a6f29b68b5ca4309aa8aeea1.tar.gz ppe42-gcc-d17e11be473e2e98a6f29b68b5ca4309aa8aeea1.zip | |
2008-08-04 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb:
(Expand_Simple_Function_Return): Check No_Secondary_Stack restriction
at point of return.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138651 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 25 | ||||
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 1 |
2 files changed, 26 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5e5518596eb..93c23926fe2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,28 @@ +2008-08-04 Robert Dewar <dewar@adacore.com> + + * exp_ch4.adb (Expand_N_In): Suppress range warnings in instances + +2008-08-04 Ed Schonberg <schonberg@adacore.com> + + * sem_ch3.adb: + (Replace_Anonymous_Access_To_Protected_Subprogram): Handle properly an + anonymous access to protected subprogram that is the return type of the + specification of a subprogram body. + + * sem_ch6.adb: + (Analyze_Subprogram_Body): if the return type is an anonymous access to + subprogram, freeze it now to prevent access anomalies in the back-end. + + * exp_ch9.adb: Minor code cleanup. + Make sure that new declarations are inserted into the tree before + analysis (from code reading). + +2008-08-04 Robert Dewar <dewar@adacore.com> + + * exp_ch5.adb: + (Expand_Simple_Function_Return): Check No_Secondary_Stack restriction + at point of return. + 2008-08-04 Thomas Quinot <quinot@adacore.com> * sem_type.adb, sem_ch4.adb, sprint.adb, exp_ch3.adb: Minor reformatting diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 729c126f4d6..2215912b22c 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -3906,6 +3906,7 @@ package body Exp_Ch5 is -- secondary stack. else + Check_Restriction (No_Secondary_Stack, N); Set_Storage_Pool (N, RTE (RE_SS_Pool)); -- If we are generating code for the VM do not use |
