[Ada] Fix logic in Allocate_Any_Controlled
authorArnaud Charlet <charlet@adacore.com>
Thu, 4 Jun 2020 18:18:18 +0000 (14:18 -0400)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 15 Jul 2020 13:42:59 +0000 (09:42 -0400)
commit1c5f82019ab50806ff1a23e5be8db864e8da131a
tree2104919de762c60c1e6294d067c11bc1801251c6
parentb2410a1f023b5206155b62678dc40d70d3e7207b
[Ada] Fix logic in Allocate_Any_Controlled

gcc/ada/

* libgnat/s-stposu.adb (Allocate_Any_Controlled): Fix logic in
lock/unlock.
gcc/ada/libgnat/s-stposu.adb