diff options
Diffstat (limited to 'gcc/ada/prj-strt.adb')
| -rw-r--r-- | gcc/ada/prj-strt.adb | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/ada/prj-strt.adb b/gcc/ada/prj-strt.adb index d3615d14480..b1388079719 100644 --- a/gcc/ada/prj-strt.adb +++ b/gcc/ada/prj-strt.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -24,13 +24,13 @@ -- -- ------------------------------------------------------------------------------ -with Err_Vars; use Err_Vars; -with Namet; use Namet; -with Prj.Attr; use Prj.Attr; -with Prj.Err; use Prj.Err; +with Err_Vars; use Err_Vars; +with Namet; use Namet; +with Prj.Attr; use Prj.Attr; +with Prj.Err; use Prj.Err; with Snames; with Table; -with Uintp; use Uintp; +with Uintp; use Uintp; package body Prj.Strt is @@ -64,7 +64,7 @@ package body Prj.Strt is Table_Initial => Choices_Initial, Table_Increment => Choices_Increment, Table_Name => "Prj.Strt.Choices"); - -- Used to store the case labels and check that there is no duplicate. + -- Used to store the case labels and check that there is no duplicate package Choice_Lasts is new Table.Table (Table_Component_Type => Choice_Node_Id, @@ -107,7 +107,7 @@ package body Prj.Strt is Current_Project : Project_Node_Id; Current_Package : Project_Node_Id; External_Value : out Project_Node_Id); - -- Parse an external reference. Current token is "external". + -- Parse an external reference. Current token is "external" procedure Attribute_Reference (In_Tree : Project_Node_Tree_Ref; @@ -115,7 +115,7 @@ package body Prj.Strt is First_Attribute : Attribute_Node_Id; Current_Project : Project_Node_Id; Current_Package : Project_Node_Id); - -- Parse an attribute reference. Current token is an apostrophe. + -- Parse an attribute reference. Current token is an apostrophe procedure Terms (In_Tree : Project_Node_Tree_Ref; |
