diff options
Diffstat (limited to 'gcc/ada/sem_elim.adb')
| -rw-r--r-- | gcc/ada/sem_elim.adb | 41 |
1 files changed, 22 insertions, 19 deletions
diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb index d693a8d..c08686d 100644 --- a/gcc/ada/sem_elim.adb +++ b/gcc/ada/sem_elim.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2020, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2021, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -23,25 +23,28 @@ -- -- ------------------------------------------------------------------------------ -with Atree; use Atree; -with Einfo; use Einfo; -with Errout; use Errout; -with Lib; use Lib; -with Namet; use Namet; -with Nlists; use Nlists; -with Opt; use Opt; -with Sem; use Sem; -with Sem_Aux; use Sem_Aux; -with Sem_Prag; use Sem_Prag; -with Sem_Util; use Sem_Util; -with Sinput; use Sinput; -with Sinfo; use Sinfo; -with Snames; use Snames; -with Stand; use Stand; -with Stringt; use Stringt; +with Atree; use Atree; +with Einfo; use Einfo; +with Einfo.Entities; use Einfo.Entities; +with Einfo.Utils; use Einfo.Utils; +with Errout; use Errout; +with Lib; use Lib; +with Namet; use Namet; +with Nlists; use Nlists; +with Opt; use Opt; +with Sem; use Sem; +with Sem_Aux; use Sem_Aux; +with Sem_Prag; use Sem_Prag; +with Sem_Util; use Sem_Util; +with Sinput; use Sinput; +with Sinfo; use Sinfo; +with Sinfo.Nodes; use Sinfo.Nodes; +with Snames; use Snames; +with Stand; use Stand; +with Stringt; use Stringt; with Table; -with GNAT.HTable; use GNAT.HTable; +with GNAT.HTable; use GNAT.HTable; package body Sem_Elim is @@ -783,7 +786,7 @@ package body Sem_Elim is and then Is_Concurrent_Record_Type (Etype (First_Entity (E))) then Error_Msg_NE - ("cannot reference eliminated protected subprogram", N, E); + ("cannot reference eliminated protected subprogram&", N, E); -- Otherwise should not fall through, entry should be in table |