commit 6e1f5f7800194a2c9d66b7fb1736bfcb2edd8c8b
author Eric Botcazou <ebotcazou@adacore.com> Fri Aug 29 09:24:33 2025 +0200
committer Eric Botcazou <ebotcazou@adacore.com> Mon Sep 15 16:55:14 2025 +0200
tree fdf37bdedd38a6bc8203a92b53b9816112fdd1bc
parent 150859c3b186a011f30f9bc73862f5a9ea525869

ada: Fix crash on iterator of type with Constant_Indexing aspect

This happens when the type returned by the indexing function is a private
type whose completion is derived from another private type, because the
Finalize_Address routine cannot correctly fetch the actual root type.

gcc/ada/ChangeLog:

	* exp_util.adb (Finalize_Address): In an untagged derivation, call
	Root_Type on the full view of the base type if the partial view is
	itself not a derived type.
	(Is_Untagged_Derivation): Minor formatting tweak.