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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 54cabc0..f9649f3 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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>
 
        * g-os_lib.adb (Normalize_Pathname): Preserve the double slash 

diff --git a/gcc/ada/prj-attr.ads b/gcc/ada/prj-attr.ads
index 5c91719..bc18fce 100644 (file)
--- a/gcc/ada/prj-attr.ads
+++ b/gcc/ada/prj-attr.ads
@@ -25,9 +25,8 @@
 -- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
 --                                                                          --
 ------------------------------------------------------------------------------
---
---  This package defines allowed packages and attributes in GNAT project
---  files.
+
+--  This package defines allowed packages and attributes in GNAT project files
 
 with Types; use Types;
 with Table;
@@ -36,6 +35,8 @@ package Prj.Attr is
 
    --  Define the allowed attributes
 
+   --  All these declarations are uncommented, they all need comments ???
+
    Attributes_Initial   : constant := 50;
    Attributes_Increment : constant := 50;
 
@@ -45,11 +46,11 @@ package Prj.Attr is
    type Attribute_Node_Id is
      range Attribute_Node_Low_Bound .. Attribute_Node_High_Bound;
 
-   First_Attribute_Node_Id : constant Attribute_Node_Id
-     := Attribute_Node_Low_Bound;
+   First_Attribute_Node_Id : constant Attribute_Node_Id :=
+                               Attribute_Node_Low_Bound;
 
-   Empty_Attribute : constant Attribute_Node_Id
-     := Attribute_Node_Low_Bound;
+   Empty_Attribute : constant Attribute_Node_Id :=
+                       Attribute_Node_Low_Bound;
 
    type Attribute_Kind is
      (Single,
@@ -84,8 +85,8 @@ package Prj.Attr is
    type Package_Node_Id is
      range Package_Node_Low_Bound .. Package_Node_High_Bound;
 
-   First_Package_Node_Id : constant Package_Node_Id
-     := Package_Node_Low_Bound;
+   First_Package_Node_Id : constant Package_Node_Id :=
+                             Package_Node_Low_Bound;
 
    Empty_Package : constant Package_Node_Id := Package_Node_Low_Bound;