diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 15:34:07 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 15:34:07 +0000 |
| commit | 2dec822631ed0025e25531f036e8c60bcba47886 (patch) | |
| tree | 1699feb9fd8bdc6315a81d98b80ceb883dede224 | |
| parent | fcb408f0356d8e20f21378b0af758c5fcc7bb5ba (diff) | |
| download | gcc-2dec822631ed0025e25531f036e8c60bcba47886.tar.gz | |
* prj-attr.ads: Minor reformatting
Add ??? comment (this whole spec has almost no comments)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46543 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 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; |