[Ada] Fix validity checking for class-wide objects