From: Robert Dewar <dewar@gnat.com>
Date: Fri, 26 Oct 2001 15:34:07 +0000 (+0000)
Subject: prj-attr.ads: Minor reformatting Add ??? comment (this whole spec has almost no comments)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8c7360348223a63e493da388f00ad080936601ed;p=gcc.git

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 54cabc00d6c..f9649f38c91 100644
--- 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 5c91719ca85..bc18fce0a40 100644
--- 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;