[Ada] Fix couple of minor issues with local exception propagation
authorEric Botcazou <ebotcazou@adacore.com>
Fri, 16 Oct 2020 17:53:40 +0000 (19:53 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 25 Nov 2020 13:22:45 +0000 (08:22 -0500)
commit57966b4d2f8adaf0d9af12e07a8ee32cd4184bcc
tree9cd4535852d955da17ec6016e068ac4995c2dd0e
parent7a17384884750622969e01b90344f6aa4fc9838c
[Ada] Fix couple of minor issues with local exception propagation

gcc/ada/

* exp_ch11.adb (Expand_N_Raise_Statement): Use Is_Entity_Name
consistently in tests on the name of the statement.
* exp_prag.adb (Expand_Pragma_Check): In the local propagation
case, wrap the raise statement in a block statement.
gcc/ada/exp_ch11.adb
gcc/ada/exp_prag.adb