Commit 8c736034 by Robert Dewar Committed by Geert Bosch

prj-attr.ads: Minor reformatting Add ??? comment (this whole spec has almost no comments)

	* prj-attr.ads: Minor reformatting
	Add ??? comment (this whole spec has almost no comments)

From-SVN: r46543
parent 47d5b6ed
2001-10-26 Robert Dewar <dewar@gnat.com>
* prj-attr.ads: Minor reformatting
Add ??? comment (this whole spec has almost no comments)
2001-10-26 Vincent Celier <celier@gnat.com> 2001-10-26 Vincent Celier <celier@gnat.com>
* g-os_lib.adb (Normalize_Pathname): Preserve the double slash * g-os_lib.adb (Normalize_Pathname): Preserve the double slash
......
...@@ -25,9 +25,8 @@ ...@@ -25,9 +25,8 @@
-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- -- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
--
-- This package defines allowed packages and attributes in GNAT project -- This package defines allowed packages and attributes in GNAT project files
-- files.
with Types; use Types; with Types; use Types;
with Table; with Table;
...@@ -36,6 +35,8 @@ package Prj.Attr is ...@@ -36,6 +35,8 @@ package Prj.Attr is
-- Define the allowed attributes -- Define the allowed attributes
-- All these declarations are uncommented, they all need comments ???
Attributes_Initial : constant := 50; Attributes_Initial : constant := 50;
Attributes_Increment : constant := 50; Attributes_Increment : constant := 50;
...@@ -45,11 +46,11 @@ package Prj.Attr is ...@@ -45,11 +46,11 @@ package Prj.Attr is
type Attribute_Node_Id is type Attribute_Node_Id is
range Attribute_Node_Low_Bound .. Attribute_Node_High_Bound; range Attribute_Node_Low_Bound .. Attribute_Node_High_Bound;
First_Attribute_Node_Id : constant Attribute_Node_Id First_Attribute_Node_Id : constant Attribute_Node_Id :=
:= Attribute_Node_Low_Bound; Attribute_Node_Low_Bound;
Empty_Attribute : constant Attribute_Node_Id Empty_Attribute : constant Attribute_Node_Id :=
:= Attribute_Node_Low_Bound; Attribute_Node_Low_Bound;
type Attribute_Kind is type Attribute_Kind is
(Single, (Single,
...@@ -84,8 +85,8 @@ package Prj.Attr is ...@@ -84,8 +85,8 @@ package Prj.Attr is
type Package_Node_Id is type Package_Node_Id is
range Package_Node_Low_Bound .. Package_Node_High_Bound; range Package_Node_Low_Bound .. Package_Node_High_Bound;
First_Package_Node_Id : constant Package_Node_Id First_Package_Node_Id : constant Package_Node_Id :=
:= Package_Node_Low_Bound; Package_Node_Low_Bound;
Empty_Package : constant Package_Node_Id := Package_Node_Low_Bound; Empty_Package : constant Package_Node_Id := Package_Node_Low_Bound;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment