[Ada] Fix wrong code for initialization of fat pointer with -Og