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/sem_ch5.adb | |
| parent | 0815d36a987898b2e76fabb53f76d895be7769ad (diff) | |
| download | gcc-57568d910cc8f333c9513ed9df37449e3ee97856.zip gcc-57568d910cc8f333c9513ed9df37449e3ee97856.tar.gz gcc-57568d910cc8f333c9513ed9df37449e3ee97856.tar.bz2 | |
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/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 5fc1585..fcb7c78 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -427,7 +427,7 @@ package body Sem_Ch5 is end if; Set_Etype (Ent, Standard_Void_Type); - Set_Block_Node (Ent, N); + Set_Block_Node (Ent, Identifier (N)); New_Scope (Ent); if Present (Decls) then |