From a276fddfdbbadaa200dabbd006e308a14377f484 Mon Sep 17 00:00:00 2001
From: Robert Dewar <dewar@adacore.com>
Date: Tue, 29 Mar 2005 18:17:25 +0200
Subject: [PATCH] par-ch12.adb (P_Generic): Give better msg for illegal private
generic child.
2005-03-29 Robert Dewar <dewar@adacore.com>
* par-ch12.adb (P_Generic): Give better msg for illegal private generic
child.
From-SVN: r97177
---
gcc/ada/par-ch12.adb | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb
index 56ec4a15f39c..ae6b6cd48d57 100644
--- a/gcc/ada/par-ch12.adb
+++ b/gcc/ada/par-ch12.adb
@@ -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);
--
GitLab