diff options
| author | Vincent Celier <celier@adacore.com> | 2007-12-19 17:24:17 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-19 17:24:17 +0100 |
| commit | ce914b984f952bfe69b9425a967b0bb4490a2ac0 (patch) | |
| tree | a44749e3f074425c00c87c4a0ca9db1580651b37 /gcc/ada/prj-attr.ads | |
| parent | 1c0ecdd46a9be6db749ad6ce401a243e47597e4a (diff) | |
| download | gcc-ce914b984f952bfe69b9425a967b0bb4490a2ac0.zip gcc-ce914b984f952bfe69b9425a967b0bb4490a2ac0.tar.gz gcc-ce914b984f952bfe69b9425a967b0bb4490a2ac0.tar.bz2 | |
prj-attr.adb (Package_Node_Id_Of): Returns Unknown_Package when package is not known
2007-12-19 Vincent Celier <celier@adacore.com>
* prj-attr.adb (Package_Node_Id_Of): Returns Unknown_Package when
package is not known
* prj-attr.ads (Unknown_Package): New constant
Do not crash when an unknown package is in several projects
* prj-dect.adb (Parse_Package_Declaration): Mark an unknown package as
ignored
* prj-nmsc.adb (Check): Remove obsolete code related to no longer
existing package Language_Processing.
From-SVN: r131078
Diffstat (limited to 'gcc/ada/prj-attr.ads')
| -rw-r--r-- | gcc/ada/prj-attr.ads | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/gcc/ada/prj-attr.ads b/gcc/ada/prj-attr.ads index 69a922b..135878e 100644 --- a/gcc/ada/prj-attr.ads +++ b/gcc/ada/prj-attr.ads @@ -171,6 +171,9 @@ package Prj.Attr is Empty_Package : constant Package_Node_Id; -- Default value of Package_Node_Id objects + Unknown_Package : constant Package_Node_Id; + -- Value of an unknown package that has been found but is unknown. + procedure Register_New_Package (Name : String; Id : out Package_Node_Id); -- Add a new package. Fails if Name (the package name) is empty or is -- already the name of a package, and set Id to Empty_Package, @@ -250,11 +253,11 @@ private end record; -- Full declaration of self-initialized private type - Empty_Pkg : constant Pkg_Node_Id := Package_Node_Low_Bound; - - Empty_Package : constant Package_Node_Id := (Value => Empty_Pkg); - - First_Package : constant Pkg_Node_Id := Package_Node_Low_Bound + 1; + Empty_Pkg : constant Pkg_Node_Id := Package_Node_Low_Bound; + Empty_Package : constant Package_Node_Id := (Value => Empty_Pkg); + Unknown_Pkg : constant Pkg_Node_Id := Package_Node_High_Bound; + Unknown_Package : constant Package_Node_Id := (Value => Unknown_Pkg); + First_Package : constant Pkg_Node_Id := Package_Node_Low_Bound + 1; First_Package_Node_Id : constant Package_Node_Id := (Value => First_Package); |