diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-02-22 13:50:02 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-02-22 13:50:02 +0000 |
| commit | a58d632fec5eeb337f0c9464a053533103d1fc52 (patch) | |
| tree | d022ac4fd9781249be4adc6771d7a30654b03922 /gcc/ada/exp_ch6.adb | |
| parent | 4e104ca305e45835ac3444a0a19e07cf3f8d8a94 (diff) | |
| download | gcc-a58d632fec5eeb337f0c9464a053533103d1fc52.tar.gz | |
2012-02-22 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb: Add comment.
* sem_ch12.adb, exp_ch6.adb: minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@184472 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index b4d46b4c1aa..10ee14ac131 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -1418,11 +1418,14 @@ package body Exp_Ch6 is if Is_By_Reference_Type (Etype (Formal)) then - -- If the front-end does not perform full type layout, the actual - -- may in fact be properly aligned but there is not enough front-end - -- information to determine this. In that case gigi will emit an - -- error if a copy is not legal, or generate the proper code. - -- For other backends we report the error now. + -- If the front-end does not perform full type layout, the actual + -- may in fact be properly aligned but there is not enough front- + -- end information to determine this. In that case gigi will emit + -- an error if a copy is not legal, or generate the proper code. + -- For other backends we report the error now. + + -- Seems wrong to be issuing an error in the expander, since it + -- will be missed in -gnatc mode ??? if Frontend_Layout_On_Target then Error_Msg_N @@ -6130,7 +6133,6 @@ package body Exp_Ch6 is begin Set_Has_Completion (Subp, False); - -- Set_Has_Delayed_Freeze (Subp); Append_Freeze_Action (Subp, Bod); -- The body now contains raise statements, so calls to it will |