OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Minor editing.

Browse Source 
From-SVN: r244795
This commit is contained in:
Arnaud Charlet 2017-01-23 13:08:22 +01:00
parent 9eb8d5b4e9
commit 42f9f0fc72
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/sem_ch13.adb
View File

@ -4908,7 +4908,7 @@ package body Sem_Ch13 is
("\?j?use interrupt procedure instead", N);
end if;
-- Case of an address clause for a controlled object which we
-- Case of an address clause for a controlled object, which we
-- consider to be erroneous.
elsif Is_Controlled (Etype (U_Ent))
@ -4923,7 +4923,7 @@ package body Sem_Ch13 is
Reason => PE_Overlaid_Controlled_Object));
return;
-- Case of an address clause for a class-wide object which is
-- Case of an address clause for a class-wide object, which is
-- considered erroneous.
elsif Is_Class_Wide_Type (Etype (U_Ent)) then

2
gcc/ada/sem_eval.adb
View File

@ -2682,7 +2682,7 @@ package body Sem_Eval is
-- If the literal appears in a non-expression context, then it is
-- certainly appearing in a non-static context, so check it. This is
-- actually a redundant check, since Check_Non_Static_Context would
-- check it, but it seems worth while to optimize out the call.
-- check it, but it seems worthwhile to optimize out the call.
-- An exception is made for a literal in an if or case expression