This patch fixes a bug where if a parent library package contains a with
clause that mentions a child of that same parent package, then gnat can
crash if the parent package is compiled with the -gnatR2 switch.
Tested on x86_64-pc-linux-gnu, committed on trunk
gcc/ada/
* repinfo.adb (List_Entities): The code was assuming that if we
encounter a package in the current scope, then it must be
a (physically) nested package. That was wrong, because it could
be a child package. Avoid recursing into child packages; they
have not been annotated with representation information, and
-gnatR2 queries that information.
diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb
--- a/gcc/ada/repinfo.adb
+++ b/gcc/ada/repinfo.adb
@@ -568,12 +568,14 @@ package body Repinfo is
end if;
end if;
- -- Recurse into nested package, but not if they are package
- -- renamings (in particular renamings of the enclosing package,
- -- as for some Java bindings and for generic instances).
+ -- Recurse into nested package, but not child packages, and not
+ -- nested package renamings (in particular renamings of the
+ -- enclosing package, as for some Java bindings and for generic
+ -- instances).
if Ekind (E) = E_Package then
- if No (Renamed_Entity (E)) then
+ if No (Renamed_Entity (E)) and then not Is_Child_Unit (E)
+ then
List_Entities (E, Bytes_Big_Endian);
end if;