[Ada] Fix possible infinite recursion in directory iterator