From 2dec822631ed0025e25531f036e8c60bcba47886 Mon Sep 17 00:00:00 2001 From: bosch Date: Fri, 26 Oct 2001 15:34:07 +0000 Subject: * 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 --- gcc/ada/ChangeLog | 5 +++++ 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 + + * prj-attr.ads: Minor reformatting + Add ??? comment (this whole spec has almost no comments) + 2001-10-26 Vincent Celier * 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; -- cgit v1.2.1