[Ada] Abort defer mismatch with SJLJ exceptions
authorArnaud Charlet <charlet@adacore.com>
Mon, 2 Nov 2020 10:02:00 +0000 (05:02 -0500)
committerPierre-Marie de Rodat <derodat@adacore.com>
Fri, 27 Nov 2020 09:15:45 +0000 (04:15 -0500)
commit05e59503c6e57851104649d8781727c4571a8b2c
tree53eb0b232edfa68bf3283b694625ffbad3cf3f32
parentbf85ff03b3e6a17da5bee164114721ea076e33ad
[Ada] Abort defer mismatch with SJLJ exceptions

gcc/ada/

* libgnarl/s-tasren.adb (Local_Complete_Rendezvous): Always call
Defer_Abort.
* libgnat/a-except.adb: Abort does not need to be deferred.
* libgnarl/s-tpobop.adb (Exceptional_Complete_Entry_Body): Abort
never needs to be undeferred here.
* exp_ch11.adb (Expand_Exception_Handlers): Remove difference
between ZCX and SJLJ.
* exp_ch9.adb (Expand_N_Asynchronous_Select): Remove different
handling for sjlj.
* exp_sel.ads, exp_sel.adb (Build_Abort_Block,
Build_Abort_Block_Handler): Ditto.
gcc/ada/exp_ch11.adb
gcc/ada/exp_ch9.adb
gcc/ada/exp_sel.adb
gcc/ada/exp_sel.ads
gcc/ada/libgnarl/s-tasren.adb
gcc/ada/libgnarl/s-tpobop.adb
gcc/ada/libgnat/a-except.adb