diff options
| author | Thomas Quinot <quinot@adacore.com> | 2007-10-15 15:58:10 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-10-15 15:58:10 +0200 |
| commit | 569f538b9d55c4cb780cf03df9357eb61139ba5a (patch) | |
| tree | 2491f6865c6cf9f65aa14d5a69bc3ca2ac376d9f /gcc/ada/exp_util.adb | |
| parent | 54df6fd99acba5240ebf37352511e37781dce633 (diff) | |
| download | gcc-569f538b9d55c4cb780cf03df9357eb61139ba5a.zip gcc-569f538b9d55c4cb780cf03df9357eb61139ba5a.tar.gz gcc-569f538b9d55c4cb780cf03df9357eb61139ba5a.tar.bz2 | |
g-soccon-vms.ads: Fix value of MSG_WAITALL.
2007-10-15 Thomas Quinot <quinot@adacore.com>
* g-soccon-vms.ads: Fix value of MSG_WAITALL.
* gen-soccon.c:
Update documentation to note that OpenVMS 8.3 or later must be used
to generate g-soccon-vms.ads.
* atree.adb: Add ??? comment
* exp_util.adb: Minor reformatting.
Add ??? comment in Kill_Dead_Code.
From-SVN: r129342
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index b033704..dc181aa 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -3402,10 +3402,8 @@ package body Exp_Util is or else Nkind (N) = N_Subprogram_Body or else Nkind (N) = N_Package_Body then - Kill_Dead_Code - (Declarations (N), False); - Kill_Dead_Code - (Statements (Handled_Statement_Sequence (N))); + Kill_Dead_Code (Declarations (N), False); + Kill_Dead_Code (Statements (Handled_Statement_Sequence (N))); if Nkind (N) = N_Subprogram_Body then Set_Is_Eliminated (Defining_Entity (N)); @@ -3415,6 +3413,10 @@ package body Exp_Util is Kill_Dead_Code (Visible_Declarations (Specification (N))); Kill_Dead_Code (Private_Declarations (Specification (N))); + -- ??? After this point, Delete_Tree has been called on all + -- declarations in Specification (N), so references to + -- entities therein look suspicious. + declare E : Entity_Id := First_Entity (Defining_Entity (N)); begin |