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

prj-attr-pm.adb (Add_Attribute): Do nothing if To_Package is Unknown_Package. 

2010-01-28  Vincent Celier  <celier@adacore.com>

	* prj-attr-pm.adb (Add_Attribute): Do nothing if To_Package is
	Unknown_Package.

From-SVN: r156318
This commit is contained in:
Vincent Celier 2010-01-28 13:40:10 +00:00 committed by Arnaud Charlet
parent 78f56a7b7d
commit 94ff25998d
2 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2010-01-28 Vincent Celier <celier@adacore.com>
* prj-attr-pm.adb (Add_Attribute): Do nothing if To_Package is
Unknown_Package.
2010-01-28 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Minor correction

28
gcc/ada/prj-attr-pm.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2008, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2010, 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- --
@ -35,19 +35,21 @@ package body Prj.Attr.PM is
Attribute_Node : out Attribute_Node_Id)
is
begin
-- Only add the attribute if the package is already defined
-- Only add attribute if package is already defined and is not unknown
if To_Package /= Empty_Package and then
To_Package /= Unknown_Package
then
Attrs.Append (
(Name => Attribute_Name,
Var_Kind => Undefined,
Optional_Index => False,
Attr_Kind => Unknown,
Read_Only => False,
Others_Allowed => False,
Next =>
Package_Attributes.Table (To_Package.Value).First_Attribute));
if To_Package /= Empty_Package then
Attrs.Increment_Last;
Attrs.Table (Attrs.Last) :=
(Name => Attribute_Name,
Var_Kind => Undefined,
Optional_Index => False,
Attr_Kind => Unknown,
Read_Only => False,
Others_Allowed => False,
Next =>
Package_Attributes.Table (To_Package.Value).First_Attribute);
Package_Attributes.Table (To_Package.Value).First_Attribute :=
Attrs.Last;
Attribute_Node := (Value => Attrs.Last);