FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

prj-attr.ads: Minor reformatting Add ??? comment (this whole spec has almost no comments)

Browse source 
* prj-attr.ads: Minor reformatting
	Add ??? comment (this whole spec has almost no comments)

From-SVN: r46543
This commit is contained in:
Robert Dewar 2001-10-26 15:34:07 +00:00 • committed by Geert Bosch
parent 47d5b6edfe
commit 8c73603482
2 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ada/ChangeLog
View file

@ -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

19
gcc/ada/prj-attr.ads
View file

@ -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;