From 59276c4d98a62e19622dc9ff9905f6d113497811 Mon Sep 17 00:00:00 2001 From: Javier Miranda Date: Mon, 22 Jul 2024 10:26:41 +0000 Subject: ada: Assert failure in repinfo Using switch gnatR4, the frontend crashes when generating information for a private record type. gcc/ada/ * repinfo.adb (List_Record_Info): Handle private record types. --- gcc/ada/repinfo.adb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc') diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index 7dada53..c08a232 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -521,7 +521,11 @@ package body Repinfo is elsif Is_Record_Type (E) then if List_Representation_Info >= 1 then - List_Record_Info (E, Bytes_Big_Endian); + if Is_Private_Type (E) then + List_Record_Info (Full_View (E), Bytes_Big_Endian); + else + List_Record_Info (E, Bytes_Big_Endian); + end if; -- Recurse into entities local to a record type -- cgit v1.1