TeamHeptaMirrors/gcc
1
0
Fork 1
mirror of https://github.com/gcc-mirror/gcc.git synced 2026-05-06 14:59:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

ada: Fix regression in Root_Type -- adjustment

Browse Source 
Recent changes "Fix regression in Root_Type" and
"Crash on b3a1004 with assertions enabled" are partially
redundant; they are addressing the same bug.
This patch adjusts the former in the case of Root_Type.
But we leave Root_Type_If_Set alone; debugging printouts
should survive bugs when possible.

gcc/ada/ChangeLog:

	* einfo-utils.adb (Root_Type): Do not deal with missing Etype.
This commit is contained in:
Bob Duff
2025-08-19 12:22:38 -04:00
committed by Marc Poulhiès
parent 61645a4f05
commit f1887efb6d
1 changed files with 1 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/einfo-utils.adb
View File

@@ -2585,11 +2585,7 @@ package body Einfo.Utils is
loop
Etyp := Etype (T);
if No (Etyp) then
Check_Error_Detected;
end if;
exit when No (Etyp) or else T = Etyp
exit when T = Etyp
or else
(Is_Private_Type (T) and then Etyp = Full_View (T))
or else