[Ada] Do not indicate a pending abort if the task is already aborting
authorPatrick Bernardi <bernardi@adacore.com>
Thu, 28 Oct 2021 22:05:16 +0000 (18:05 -0400)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 9 Nov 2021 09:44:50 +0000 (09:44 +0000)
commit09afdaeeeba7e4c1fd00f4c43b5e5b36dbe6cf92
tree7f6616e5872b0372397e4e7ae940fbb9617560ef
parentf6174ec5bd9c2560f009c8c84170944b08535330
[Ada] Do not indicate a pending abort if the task is already aborting

gcc/ada/

* libgnarl/s-tasini.adb (Check_Abort_Status): Don't return 1 if
the task is aborting.
* libgnarl/s-tasini.ads (Check_Abort_Status): Update comment.
gcc/ada/libgnarl/s-tasini.adb
gcc/ada/libgnarl/s-tasini.ads