From ba301a3b6633691e09e7ea58a2c1fe559203ad8a Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 3 Dec 2018 15:49:00 +0000 Subject: [Ada] Fix assertion failures with -gnatde and -gnatdv This fixes a couple of assertion failures when using -gnatde and -gnatdv on a compiler built with assertions enabled. No functional changes. 2018-12-03 Eric Botcazou gcc/ada/ * einfo.adb (Write_Entity_Info): Don't take Scope of Standard package. * sem_ch4.adb (Remove_Abstract_Operations): Add missing blank lines to -gnatdv output. * sem_type.adb (Write_Overloads): Take Entity of entity names only. From-SVN: r266751 --- gcc/ada/sem_ch4.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/sem_ch4.adb') diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 5176175..72dfd45 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -7509,7 +7509,7 @@ package body Sem_Ch4 is begin if Is_Overloaded (N) then if Debug_Flag_V then - Write_Str ("Remove_Abstract_Operations: "); + Write_Line ("Remove_Abstract_Operations: "); Write_Overloads (N); end if; @@ -7704,7 +7704,7 @@ package body Sem_Ch4 is end if; if Debug_Flag_V then - Write_Str ("Remove_Abstract_Operations done: "); + Write_Line ("Remove_Abstract_Operations done: "); Write_Overloads (N); end if; end if; -- cgit v1.1