diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 14:40:12 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 14:40:12 +0200 |
| commit | b25021611e702a13cc4db4c213fba0072043cdc3 (patch) | |
| tree | dd4bf6210302e059cffcb44a7c0edabc1f8002d9 /gcc/ada/sem_util.adb | |
| parent | 83851b239b0dd1af4fe3ba4c8d0ce7b74c82803d (diff) | |
| download | gcc-b25021611e702a13cc4db4c213fba0072043cdc3.zip gcc-b25021611e702a13cc4db4c213fba0072043cdc3.tar.gz gcc-b25021611e702a13cc4db4c213fba0072043cdc3.tar.bz2 | |
[multiple changes]
2013-04-11 Robert Dewar <dewar@adacore.com>
* sem_prag.adb, sem_util.adb, sem_res.adb, exp_ch4.adb: Minor
reformatting.
2013-04-11 Thomas Quinot <quinot@adacore.com>
* exp_util.ads (Fully_Qualified_Name_String): Document that the
constructed literal is the entity name in all upper case.
From-SVN: r197777
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 2892c88..1be6c84 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -13421,8 +13421,8 @@ package body Sem_Util is if (Is_Implementation_Defined (Val) or else Is_Implementation_Defined (Scope (Val))) - and then not (Ekind_In (Val, E_Package, E_Generic_Package) - and then Is_Library_Level_Entity (Val)) + and then not (Ekind_In (Val, E_Package, E_Generic_Package) + and then Is_Library_Level_Entity (Val)) then Check_Restriction (No_Implementation_Identifiers, N); end if; |