This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Minor reformatting and add ??? comments
- From: Geert Bosch <bosch at darwin dot gnat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Wed, 5 Dec 2001 12:39:46 -0500 (EST)
- Subject: [Ada] Minor reformatting and add ??? comments
2001-12-05 Robert Dewar <dewar@gnat.com>
* prj-dect.ads: Add ??? comment
Add 2001 to copyright notice (was not done in after all)
* prj-part.adb: Minor reformatting. Reword one awkward error message.
* prj.ads: Minor reformatting throughout, and add some ??? comments
* snames.ads: Minor reformatting
*** prj-dect.ads 2001/10/20 04:14:14 1.3
--- prj-dect.ads 2001/10/20 10:28:13 1.4
***************
*** 8,14 ****
-- --
-- $Revision$
-- --
! -- Copyright (C) 2000 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- --
--- 8,14 ----
-- --
-- $Revision$
-- --
! -- Copyright (C) 2000-2001 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- --
***************
*** 25,33 ****
-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
-- --
------------------------------------------------------------------------------
- --
- -- Parse a list of declarative items in a project file.
with Prj.Tree;
private package Prj.Dect is
--- 25,33 ----
-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
-- --
------------------------------------------------------------------------------
+ -- Parse a list of declarative items in a project file
+
with Prj.Tree;
private package Prj.Dect is
***************
*** 36,41 ****
(Declarations : out Prj.Tree.Project_Node_Id;
Current_Project : Prj.Tree.Project_Node_Id;
Extends : Prj.Tree.Project_Node_Id);
! -- Parse project declarative items.
end Prj.Dect;
--- 36,41 ----
(Declarations : out Prj.Tree.Project_Node_Id;
Current_Project : Prj.Tree.Project_Node_Id;
Extends : Prj.Tree.Project_Node_Id);
! -- Parse project declarative items. What are parameters ???
end Prj.Dect;
*** prj-part.adb 2001/10/20 04:14:21 1.11
--- prj-part.adb 2001/10/20 10:34:33 1.12
***************
*** 136,142 ****
end if;
end loop;
! -- There is no directory separator in name. Return "./" or ".\".
Name_Len := 2;
Name_Buffer (1) := '.';
Name_Buffer (2) := Dir_Sep;
--- 136,143 ----
end if;
end loop;
! -- There is no directory separator in name. Return "./" or ".\"
!
Name_Len := 2;
Name_Buffer (1) := '.';
Name_Buffer (2) := Dir_Sep;
***************
*** 227,241 ****
Context_Clause := Empty_Node;
With_Loop :
! -- If Token is not "with", there is no context clause,
-- or we have exhausted the with clauses.
while Token = Tok_With loop
Comma_Loop :
loop
! -- Scan past "with" or ","
- Scan;
Expect (Tok_String_Literal, "literal string");
if Token /= Tok_String_Literal then
--- 228,241 ----
Context_Clause := Empty_Node;
With_Loop :
! -- If Token is not WITH, there is no context clause,
-- or we have exhausted the with clauses.
while Token = Tok_With loop
Comma_Loop :
loop
! Scan; -- scan past WITH or ","
Expect (Tok_String_Literal, "literal string");
if Token /= Tok_String_Literal then
***************
*** 312,320 ****
if Token = Tok_Semicolon then
-- End of (possibly multiple) with clause;
- -- Scan past the semicolon.
! Scan;
exit Comma_Loop;
elsif Token /= Tok_Comma then
--- 312,319 ----
if Token = Tok_Semicolon then
-- End of (possibly multiple) with clause;
! Scan; -- scan past the semicolon.
exit Comma_Loop;
elsif Token /= Tok_Comma then
***************
*** 396,402 ****
if A_Project_Name_And_Node.Modified then
Error_Msg
! ("cannot modify several times the same project file",
Token_Ptr);
else
--- 395,401 ----
if A_Project_Name_And_Node.Modified then
Error_Msg
! ("cannot modify the same project file several times",
Token_Ptr);
else
***************
*** 472,482 ****
Expect (Tok_Project, "project");
! -- Scan past "project"
if Token = Tok_Project then
Set_Location_Of (Project, Token_Ptr);
! Scan;
end if;
Expect (Tok_Identifier, "identifier");
--- 471,481 ----
Expect (Tok_Project, "project");
! -- Mark location of PROJECT token if present
if Token = Tok_Project then
Set_Location_Of (Project, Token_Ptr);
! Scan; -- scan past project
end if;
Expect (Tok_Identifier, "identifier");
***************
*** 528,548 ****
Modified => Modified));
end if;
end;
-
- -- Scan past the project name
-
- Scan;
end if;
if Token = Tok_Extends then
-- We are extending another project
! -- Scan past "extends"
!
! Scan;
!
Expect (Tok_String_Literal, "literal string");
if Token = Tok_String_Literal then
--- 527,541 ----
Modified => Modified));
end if;
end;
+ Scan; -- scan past the project name
end if;
if Token = Tok_Extends then
-- We are extending another project
! Scan; -- scan past EXTENDS
Expect (Tok_String_Literal, "literal string");
if Token = Tok_String_Literal then
***************
*** 578,586 ****
end if;
end;
! -- Scan past the modified project path
!
! Scan;
end if;
end if;
--- 571,577 ----
end if;
end;
! Scan; -- scan past the modified project path
end if;
end if;
***************
*** 590,596 ****
Project_Declaration : Project_Node_Id := Empty_Node;
begin
! -- No need to Scan past "is", Prj.Dect.Parse will do it.
Prj.Dect.Parse
(Declarations => Project_Declaration,
--- 581,587 ----
Project_Declaration : Project_Node_Id := Empty_Node;
begin
! -- No need to Scan past IS, Prj.Dect.Parse will do it.
Prj.Dect.Parse
(Declarations => Project_Declaration,
***************
*** 601,607 ****
Expect (Tok_End, "end");
! -- Scan past "end"
if Token = Tok_End then
Scan;
--- 592,598 ----
Expect (Tok_End, "end");
! -- Skip END if present
if Token = Tok_End then
Scan;
*** prj.ads 2001/10/20 04:14:27 1.22
--- prj.ads 2001/10/20 10:48:13 1.23
***************
*** 44,53 ****
-- Use to customize error reporting in Prj.Proc and Prj.Nmsc.
type Verbosity is (Default, Medium, High);
! -- Verbosity when parsing GNAT Project Files.
! -- Default is default (very quiet, if no errors).
! -- Medium is more verbose.
! -- High is extremely verbose.
type Lib_Kind is (Static, Dynamic, Relocatable);
--- 44,53 ----
-- Use to customize error reporting in Prj.Proc and Prj.Nmsc.
type Verbosity is (Default, Medium, High);
! -- Verbosity when parsing GNAT Project Files
! -- Default is default (very quiet, if no errors).
! -- Medium is more verbose.
! -- High is extremely verbose.
type Lib_Kind is (Static, Dynamic, Relocatable);
***************
*** 60,66 ****
Location : Source_Ptr := No_Location;
Next : String_List_Id := Nil_String;
end record;
! -- To hold values for string list variables and array elements.
package String_Elements is new Table.Table
(Table_Component_Type => String_Element,
--- 60,66 ----
Location : Source_Ptr := No_Location;
Next : String_List_Id := Nil_String;
end record;
! -- To hold values for string list variables and array elements
package String_Elements is new Table.Table
(Table_Component_Type => String_Element,
***************
*** 69,75 ****
Table_Initial => 200,
Table_Increment => 100,
Table_Name => "Prj.String_Elements");
! -- The table for string elements in string lists.
type Variable_Kind is (Undefined, List, Single);
-- Different kinds of variables
--- 69,75 ----
Table_Initial => 200,
Table_Increment => 100,
Table_Name => "Prj.String_Elements");
! -- The table for string elements in string lists
type Variable_Kind is (Undefined, List, Single);
-- Different kinds of variables
***************
*** 92,98 ****
(Kind => Undefined,
Location => No_Location,
Default => False);
! -- Value of a non existing variable or array element.
type Variable_Id is new Nat;
No_Variable : constant Variable_Id := 0;
--- 92,98 ----
(Kind => Undefined,
Location => No_Location,
Default => False);
! -- Value of a non existing variable or array element
type Variable_Id is new Nat;
No_Variable : constant Variable_Id := 0;
***************
*** 101,107 ****
Name : Name_Id;
Value : Variable_Value;
end record;
! -- To hold the list of variables in a project file and in packages.
package Variable_Elements is new Table.Table
(Table_Component_Type => Variable,
--- 101,107 ----
Name : Name_Id;
Value : Variable_Value;
end record;
! -- To hold the list of variables in a project file and in packages
package Variable_Elements is new Table.Table
(Table_Component_Type => Variable,
***************
*** 110,116 ****
Table_Initial => 200,
Table_Increment => 100,
Table_Name => "Prj.Variable_Elements");
! -- The table of variable in list of variables.
type Array_Element_Id is new Nat;
No_Array_Element : constant Array_Element_Id := 0;
--- 110,116 ----
Table_Initial => 200,
Table_Increment => 100,
Table_Name => "Prj.Variable_Elements");
! -- The table of variable in list of variables
type Array_Element_Id is new Nat;
No_Array_Element : constant Array_Element_Id := 0;
***************
*** 119,127 ****
Value : Variable_Value;
Next : Array_Element_Id := No_Array_Element;
end record;
! -- Each Array_Element represents an array element.
! -- Each Array_Element is linked (Next) to the next array element,
! -- if any, in the array.
package Array_Elements is new Table.Table
(Table_Component_Type => Array_Element,
--- 119,126 ----
Value : Variable_Value;
Next : Array_Element_Id := No_Array_Element;
end record;
! -- Each Array_Element represents an array element and is linked (Next)
! -- to the next array element, if any, in the array.
package Array_Elements is new Table.Table
(Table_Component_Type => Array_Element,
***************
*** 139,145 ****
Value : Array_Element_Id := No_Array_Element;
Next : Array_Id := No_Array;
end record;
! -- Each Array_Data represents an array.
-- Value is the id of the first element.
-- Next is the id of the next array in the project file or package.
--- 138,144 ----
Value : Array_Element_Id := No_Array_Element;
Next : Array_Id := No_Array;
end record;
! -- Each Array_Data value represents an array.
-- Value is the id of the first element.
-- Next is the id of the next array in the project file or package.
***************
*** 166,172 ****
Attributes => No_Variable,
Arrays => No_Array,
Packages => No_Package);
! -- Declarations. Used in project structures and packages.
type Package_Element is record
Name : Name_Id := No_Name;
--- 165,171 ----
Attributes => No_Variable,
Arrays => No_Array,
Packages => No_Package);
! -- Declarations. Used in project structures and packages (what for???)
type Package_Element is record
Name : Name_Id := No_Name;
***************
*** 174,181 ****
Parent : Package_Id := No_Package;
Next : Package_Id := No_Package;
end record;
! -- A package. Includes declarations that may include
! -- other packages.
package Packages is new Table.Table
(Table_Component_Type => Package_Element,
--- 173,179 ----
Parent : Package_Id := No_Package;
Next : Package_Id := No_Package;
end record;
! -- A package. Includes declarations that may include other packages.
package Packages is new Table.Table
(Table_Component_Type => Package_Element,
***************
*** 187,254 ****
-- The table that contains all packages.
function Image (Casing : Casing_Type) return String;
! -- Similar to 'Image
function Value (Image : String) return Casing_Type;
! -- Similar to 'Value
! -- This is to avoid s-valenu in the closure of the tools
-- Raises Constraint_Error if not a Casing_Type image.
type Naming_Data is record
! Current_Language : Name_Id := No_Name;
-- The programming language being currently considered
! Dot_Replacement : Name_Id := No_Name;
-- The string to replace '.' in the source file name (for Ada).
! Dot_Repl_Loc : Source_Ptr := No_Location;
-- The position in the project file source where
-- Dot_Replacement is defined.
! Casing : Casing_Type := All_Lower_Case;
-- The casing of the source file name (for Ada).
! Specification_Suffix : Array_Element_Id := No_Array_Element;
-- The string to append to the unit name for the
-- source file name of a specification.
-- Indexed by the programming language.
! Current_Spec_Suffix : Name_Id := No_Name;
-- The specification suffix of the current programming language
! Spec_Suffix_Loc : Source_Ptr := No_Location;
-- The position in the project file source where
-- Current_Spec_Suffix is defined.
! Implementation_Suffix : Array_Element_Id := No_Array_Element;
-- The string to append to the unit name for the
-- source file name of a body.
-- Indexed by the programming language.
! Current_Impl_Suffix : Name_Id := No_Name;
-- The implementation suffix of the current programming language
! Impl_Suffix_Loc : Source_Ptr := No_Location;
-- The position in the project file source where
-- Current_Impl_Suffix is defined.
! Separate_Suffix : Name_Id := No_Name;
-- The string to append to the unit name for the
-- source file name of an Ada subunit.
! Sep_Suffix_Loc : Source_Ptr := No_Location;
-- The position in the project file source where
-- Separate_Suffix is defined.
! Specifications : Array_Element_Id := No_Array_Element;
-- An associative array mapping individual specifications
-- to source file names. Specific to Ada.
! Bodies : Array_Element_Id := No_Array_Element;
-- An associative array mapping individual bodies
-- to source file names. Specific to Ada.
! Specification_Exceptions : Array_Element_Id := No_Array_Element;
-- An associative array mapping individual specifications
-- to source file names. Indexed by the programming language name.
--- 185,251 ----
-- The table that contains all packages.
function Image (Casing : Casing_Type) return String;
! -- Similar to 'Image (but avoid use of this attribute in compiler)
function Value (Image : String) return Casing_Type;
! -- Similar to 'Value (but avoid use of this attribute in compiler)
-- Raises Constraint_Error if not a Casing_Type image.
type Naming_Data is record
! Current_Language : Name_Id := No_Name;
-- The programming language being currently considered
! Dot_Replacement : Name_Id := No_Name;
-- The string to replace '.' in the source file name (for Ada).
! Dot_Repl_Loc : Source_Ptr := No_Location;
-- The position in the project file source where
-- Dot_Replacement is defined.
! Casing : Casing_Type := All_Lower_Case;
-- The casing of the source file name (for Ada).
! Specification_Suffix : Array_Element_Id := No_Array_Element;
-- The string to append to the unit name for the
-- source file name of a specification.
-- Indexed by the programming language.
! Current_Spec_Suffix : Name_Id := No_Name;
-- The specification suffix of the current programming language
! Spec_Suffix_Loc : Source_Ptr := No_Location;
-- The position in the project file source where
-- Current_Spec_Suffix is defined.
! Implementation_Suffix : Array_Element_Id := No_Array_Element;
-- The string to append to the unit name for the
-- source file name of a body.
-- Indexed by the programming language.
! Current_Impl_Suffix : Name_Id := No_Name;
-- The implementation suffix of the current programming language
! Impl_Suffix_Loc : Source_Ptr := No_Location;
-- The position in the project file source where
-- Current_Impl_Suffix is defined.
! Separate_Suffix : Name_Id := No_Name;
-- The string to append to the unit name for the
-- source file name of an Ada subunit.
! Sep_Suffix_Loc : Source_Ptr := No_Location;
-- The position in the project file source where
-- Separate_Suffix is defined.
! Specifications : Array_Element_Id := No_Array_Element;
-- An associative array mapping individual specifications
-- to source file names. Specific to Ada.
! Bodies : Array_Element_Id := No_Array_Element;
-- An associative array mapping individual bodies
-- to source file names. Specific to Ada.
! Specification_Exceptions : Array_Element_Id := No_Array_Element;
-- An associative array mapping individual specifications
-- to source file names. Indexed by the programming language name.
***************
*** 294,406 ****
-- The table that contains the lists of project files.
type Project_Data is record
! First_Referred_By : Project_Id := No_Project;
-- The project, if any, that was the first to be known
-- as importing or extending this project.
-- Set by Prj.Proc.Process.
! Name : Name_Id := No_Name;
-- The name of the project.
-- Set by Prj.Proc.Process.
! Path_Name : Name_Id := No_Name;
-- The path name of the project file.
-- Set by Prj.Proc.Process.
! Location : Source_Ptr := No_Location;
-- The location in the project file source of the
-- reserved word project.
-- Set by Prj.Proc.Process.
! Directory : Name_Id := No_Name;
-- The directory where the project file resides.
-- Set by Prj.Proc.Process.
! Library : Boolean := False;
-- True if this is a library project.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Library_Dir : Name_Id := No_Name;
-- If a library project, directory where resides the library
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Library_Name : Name_Id := No_Name;
-- If a library project, name of the library
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Library_Kind : Lib_Kind := Static;
-- If a library project, kind of library
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Lib_Internal_Name : Name_Id := No_Name;
-- If a library project, internal name store inside the library
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Lib_Elaboration : Boolean := False;
-- If a library project, indicate if <lib>init and <lib>final
-- procedures need to be defined.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Sources_Present : Boolean := True;
-- A flag that indicates if there are sources in this project file.
-- There are no sources if 1) Source_Dirs is specified as an
-- empty list, 2) Source_Files is specified as an empty list, or
-- 3) the current language is not in the list of the specified
-- Languages.
! Sources : String_List_Id := Nil_String;
-- The list of all the source file names.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Source_Dirs : String_List_Id := Nil_String;
-- The list of all the source directories.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Object_Directory : Name_Id := No_Name;
-- The object directory of this project file.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Modifies : Project_Id := No_Project;
-- The reference of the project file, if any, that this
-- project file modifies.
-- Set by Prj.Proc.Process.
! Modified_By : Project_Id := No_Project;
-- The reference of the project file, if any, that
-- modifies this project file.
-- Set by Prj.Proc.Process.
! Naming : Naming_Data := Standard_Naming_Data;
-- The naming scheme of this project file.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Decl : Declarations := No_Declarations;
-- The declarations (variables, attributes and packages)
-- of this project file.
-- Set by Prj.Proc.Process.
! Imported_Projects : Project_List := Empty_Project_List;
-- The list of all directly imported projects, if any.
-- Set by Prj.Proc.Process.
! Include_Path : String_Access := null;
-- The cached value of ADA_INCLUDE_PATH for this project file.
-- Set by gnatmake (prj.Env.Set_Ada_Paths).
! Objects_Path : String_Access := null;
-- The cached value of ADA_OBJECTS_PATH for this project file.
-- Set by gnatmake (prj.Env.Set_Ada_Paths).
! Config_File_Name : Name_Id := No_Name;
-- The name of the configuration pragmas file, if any.
-- Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
! Config_File_Temp : Boolean := False;
-- An indication that the configuration pragmas file is
-- a temporary file that must be deleted at the end.
-- Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
! Config_Checked : Boolean := False;
-- A flag to avoid checking repetitively the configuration pragmas file.
-- Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
--- 291,403 ----
-- The table that contains the lists of project files.
type Project_Data is record
! First_Referred_By : Project_Id := No_Project;
-- The project, if any, that was the first to be known
-- as importing or extending this project.
-- Set by Prj.Proc.Process.
! Name : Name_Id := No_Name;
-- The name of the project.
-- Set by Prj.Proc.Process.
! Path_Name : Name_Id := No_Name;
-- The path name of the project file.
-- Set by Prj.Proc.Process.
! Location : Source_Ptr := No_Location;
-- The location in the project file source of the
-- reserved word project.
-- Set by Prj.Proc.Process.
! Directory : Name_Id := No_Name;
-- The directory where the project file resides.
-- Set by Prj.Proc.Process.
! Library : Boolean := False;
-- True if this is a library project.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Library_Dir : Name_Id := No_Name;
-- If a library project, directory where resides the library
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Library_Name : Name_Id := No_Name;
-- If a library project, name of the library
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Library_Kind : Lib_Kind := Static;
-- If a library project, kind of library
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Lib_Internal_Name : Name_Id := No_Name;
-- If a library project, internal name store inside the library
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Lib_Elaboration : Boolean := False;
-- If a library project, indicate if <lib>init and <lib>final
-- procedures need to be defined.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Sources_Present : Boolean := True;
-- A flag that indicates if there are sources in this project file.
-- There are no sources if 1) Source_Dirs is specified as an
-- empty list, 2) Source_Files is specified as an empty list, or
-- 3) the current language is not in the list of the specified
-- Languages.
! Sources : String_List_Id := Nil_String;
-- The list of all the source file names.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Source_Dirs : String_List_Id := Nil_String;
-- The list of all the source directories.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Object_Directory : Name_Id := No_Name;
-- The object directory of this project file.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Modifies : Project_Id := No_Project;
-- The reference of the project file, if any, that this
-- project file modifies.
-- Set by Prj.Proc.Process.
! Modified_By : Project_Id := No_Project;
-- The reference of the project file, if any, that
-- modifies this project file.
-- Set by Prj.Proc.Process.
! Naming : Naming_Data := Standard_Naming_Data;
-- The naming scheme of this project file.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
! Decl : Declarations := No_Declarations;
-- The declarations (variables, attributes and packages)
-- of this project file.
-- Set by Prj.Proc.Process.
! Imported_Projects : Project_List := Empty_Project_List;
-- The list of all directly imported projects, if any.
-- Set by Prj.Proc.Process.
! Include_Path : String_Access := null;
-- The cached value of ADA_INCLUDE_PATH for this project file.
-- Set by gnatmake (prj.Env.Set_Ada_Paths).
! Objects_Path : String_Access := null;
-- The cached value of ADA_OBJECTS_PATH for this project file.
-- Set by gnatmake (prj.Env.Set_Ada_Paths).
! Config_File_Name : Name_Id := No_Name;
-- The name of the configuration pragmas file, if any.
-- Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
! Config_File_Temp : Boolean := False;
-- An indication that the configuration pragmas file is
-- a temporary file that must be deleted at the end.
-- Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
! Config_Checked : Boolean := False;
-- A flag to avoid checking repetitively the configuration pragmas file.
-- Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
***************
*** 409,424 ****
-- for language independent features: Object_Directory,
-- Source_Directories, Library, non empty Naming Suffixs.
! Checked : Boolean := False;
-- A flag to avoid checking repetitively the naming scheme of
-- this project file.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
-- Various flags that are used in an ad hoc manner
!
! Seen : Boolean := False;
! Flag1 : Boolean := False;
! Flag2 : Boolean := False;
end record;
-- Project File representation.
--- 406,424 ----
-- for language independent features: Object_Directory,
-- Source_Directories, Library, non empty Naming Suffixs.
! Checked : Boolean := False;
-- A flag to avoid checking repetitively the naming scheme of
-- this project file.
-- Set by Prj.Nmsc.Check_Naming_Scheme.
+ Seen : Boolean := False;
+ Flag1 : Boolean := False;
+ Flag2 : Boolean := False;
-- Various flags that are used in an ad hoc manner
! -- That's really not a good enough comment ??? we need to know what
! -- these flags are used for, and give them proper names. If Flag1
! -- and Flag2 have multiple uses, then either we use multiple fields
! -- or a renaming scheme.
end record;
-- Project File representation.
*** snames.ads 2001/10/20 04:14:34 1.212
--- snames.ads 2001/10/20 10:51:36 1.213
***************
*** 858,868 ****
Name_Raise_Exception : constant Name_Id := N + 522;
! -- Reserved words of GNAT Project Files
Name_Project : constant Name_Id := N + 523;
Name_Extends : constant Name_Id := N + 524;
- -- Name_External is already declared as N + 161
-- Names used in GNAT Project Files
--- 858,868 ----
Name_Raise_Exception : constant Name_Id := N + 522;
! -- Additional reserved words in GNAT Project Files
! -- Note that Name_External is already previously declared
Name_Project : constant Name_Id := N + 523;
Name_Extends : constant Name_Id := N + 524;
-- Names used in GNAT Project Files