mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-19 03:50:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

2008-04-08 Ed Schonberg <schonberg@adacore.com>

Browse Source 
* par-ch3.adb (P_Type_Declaration) Reject the keyword "synchronized"
	in a type declaration, if this is not an interface declaration or
	private type extension.

From-SVN: r134045
This commit is contained in:
Ed Schonberg 2008-04-08 08:54:13 +02:00 committed by Arnaud Charlet
parent 15bac09ddb
commit 8bc65441c9
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-ch3.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2008, 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- --
@ -767,6 +767,10 @@ package body Ch3 is
-- Interface
else
if Token /= Tok_Interface then
Error_Msg_SC ("NEW or INTERFACE expected");
end if;
Typedef_Node :=
P_Interface_Type_Definition (Abstract_Present);
Abstract_Present := True;