diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 02:07:10 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 02:07:10 +0000 |
| commit | 8357ef8ef9cd82f558267e39659bb6d3279591ae (patch) | |
| tree | 41fa677b75bc4e9d96cdf8e68f525654d05c5f22 /gcc/ada/inline.adb | |
| parent | 5ddfef5e64b04962966145043854624a11a25d69 (diff) | |
| download | gcc-8357ef8ef9cd82f558267e39659bb6d3279591ae.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47649 138bc75d-0d04-0410-961f-82ee72b054a4
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); |