diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2018-12-03 15:49:00 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-12-03 15:49:00 +0000 |
| commit | ba301a3b6633691e09e7ea58a2c1fe559203ad8a (patch) | |
| tree | 0f52804583e24a21c68148e09ab66175a46f9a31 /gcc/ada/sem_ch4.adb | |
| parent | 89beb6536755b02c83289fedd6182b79565a08fb (diff) | |
| download | gcc-ba301a3b6633691e09e7ea58a2c1fe559203ad8a.zip gcc-ba301a3b6633691e09e7ea58a2c1fe559203ad8a.tar.gz gcc-ba301a3b6633691e09e7ea58a2c1fe559203ad8a.tar.bz2 | |
[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 <ebotcazou@adacore.com>
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
Diffstat (limited to 'gcc/ada/sem_ch4.adb')
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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; |