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

par-ch12.adb (P_Generic): Give better msg for illegal private generic child.

Browse Source 
2005-03-29  Robert Dewar  <dewar@adacore.com>

	* par-ch12.adb (P_Generic): Give better msg for illegal private generic
	child.

From-SVN: r97177
This commit is contained in:
Robert Dewar 2005-03-29 18:17:25 +02:00 committed by Arnaud Charlet
parent a9b0c61633
commit a276fddfdb
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/par-ch12.adb
View File

@ -153,7 +153,11 @@ package body Ch12 is
Decl_Loop : loop
P_Pragmas_Opt (Decls);
Ignore (Tok_Private);
if Token = Tok_Private then
Error_Msg_S ("generic private child packages not permitted");
Scan; -- past PRIVATE
end if;
if Token = Tok_Use then
Append (P_Use_Clause, Decls);