diff options
| author | Vincent Celier <celier@adacore.com> | 2010-01-28 13:40:10 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-01-28 14:40:10 +0100 |
| commit | 94ff25998d3575d61c733e75e39e4d2cf13f6a1f (patch) | |
| tree | 2005618d777beac7c1ca73bb5c371b1b383c3f49 /gcc | |
| parent | 78f56a7b7d79abc9ce5d241c8c2f0a9312186e49 (diff) | |
| download | gcc-94ff25998d3575d61c733e75e39e4d2cf13f6a1f.zip gcc-94ff25998d3575d61c733e75e39e4d2cf13f6a1f.tar.gz gcc-94ff25998d3575d61c733e75e39e4d2cf13f6a1f.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/prj-attr-pm.adb | 28 |
2 files changed, 20 insertions, 13 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 848eb33..15aa111 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -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 diff --git a/gcc/ada/prj-attr-pm.adb b/gcc/ada/prj-attr-pm.adb index ef843c0..9b75c05 100644 --- a/gcc/ada/prj-attr-pm.adb +++ b/gcc/ada/prj-attr-pm.adb @@ -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); |