(Ada) Fix resolving of homonym components in tagged types