[Ada] Fix possible infinite recursion in directory iterator
authorPascal Obry <obry@adacore.com>
Fri, 20 Nov 2020 16:28:50 +0000 (17:28 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 15 Dec 2020 11:41:53 +0000 (06:41 -0500)
commit3a6021dc1de871fc561ed0a60f1446a380d77c06
treee79f660c35332421baf3f8a797fbf749f4cc0558
parentafed612dc569a353dc08181446b026c6a6953f19
[Ada] Fix possible infinite recursion in directory iterator

gcc/ada/

* libgnat/g-diopit.adb (Find): Fix possible infinite recursion
in Find iterator.
* libgnat/g-diopit.ads (Find): Update comments accordingly.
gcc/ada/libgnat/g-diopit.adb
gcc/ada/libgnat/g-diopit.ads