diff options
| author | Ed Schonberg <schonber@gnat.com> | 2001-12-05 02:07:10 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-05 03:07:10 +0100 |
| commit | 57568d910cc8f333c9513ed9df37449e3ee97856 (patch) | |
| tree | 41fa677b75bc4e9d96cdf8e68f525654d05c5f22 /gcc/ada/inline.adb | |
| parent | 0815d36a987898b2e76fabb53f76d895be7769ad (diff) | |
| download | gcc-57568d910cc8f333c9513ed9df37449e3ee97856.tar.gz | |
einfo.ads: Block_Node points to the identifier of the block...
* einfo.ads: Block_Node points to the identifier of the block, not to
the block node itself, to preserve the link when the block is
rewritten, e.g. within an if-statement with a static condition.
* inline.adb (Cleanup_Scopes): recover block statement from block
entity using new meaning of Block_Node.
* sem_ch5.adb (Analyze_Block_Statement): set Block_Node to point to
identifier of block node, rather than to node itself.
From-SVN: r47649
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index b21ca1f53dd..84a08ac659e 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.55 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -672,7 +672,7 @@ package body Inline is end if; if Ekind (Scop) = E_Block then - Decl := Block_Node (Scop); + Decl := Parent (Block_Node (Scop)); else Decl := Unit_Declaration_Node (Scop); |