diff options
| author | Robert Dewar <dewar@gnat.com> | 2001-10-26 15:34:07 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-26 17:34:07 +0200 |
| commit | 8c7360348223a63e493da388f00ad080936601ed (patch) | |
| tree | 1699feb9fd8bdc6315a81d98b80ceb883dede224 | |
| parent | 47d5b6edfe962508d685a181e5afe6a2a2453973 (diff) | |
| download | gcc-8c7360348223a63e493da388f00ad080936601ed.zip gcc-8c7360348223a63e493da388f00ad080936601ed.tar.gz gcc-8c7360348223a63e493da388f00ad080936601ed.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/prj-attr.ads | 19 |
2 files changed, 15 insertions, 9 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 54cabc0..f9649f3 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 5c91719..bc18fce 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; |