ada: Facilitate proof of Interfaces.C.To_Ada
commitcf1cee3fadc0febaa130f8931ce87e8b0317633b
authorYannick Moy <moy@adacore.com>
Wed, 22 Feb 2023 13:36:09 +0000 (22 13:36 +0000)
committerMarc Poulhiès <poulhies@adacore.com>
Tue, 23 May 2023 07:59:05 +0000 (23 09:59 +0200)
treea17f06be3e664e4ebe25fe6b87ecfdec2d05847b
parentb64aaf4d81916f5570ddf2414747f3152e8b9f84
ada: Facilitate proof of Interfaces.C.To_Ada

Nightly runs of GNATprove fail on proof of the assertion following
the loop. Add a loop invariant to facilitate that proof.

gcc/ada/

* libgnat/i-c.adb (To_Ada): Add loop invariant.
gcc/ada/libgnat/i-c.adb