* parser.c (cp_parser_class_specifier): Set class location to that

[pf3gnuchains/gcc-fork.git] / gcc / ada / prj-strt.ads

diff --git a/gcc/ada/prj-strt.ads b/gcc/ada/prj-strt.ads
index 0f6d0d0..7dbe530 100644 (file)
--- a/gcc/ada/prj-strt.ads
+++ b/gcc/ada/prj-strt.ads
@@ -37,10 +37,10 @@ private package Prj.Strt is
    --  On entry, the current token is the first literal string following
    --  a left parenthesis in a string type declaration such as:
    --    type Toto is ("string_1", "string_2", "string_3");
-   --  On exit, the current token is the right parenthesis.
-   --  The parameter First_String is a node that contained the first
-   --  literal string of the string type, linked with the following
-   --  literal strings.
+   --
+   --  On exit, the current token is the right parenthesis. The parameter
+   --  First_String is a node that contained the first literal string of the
+   --  string type, linked with the following literal strings.
    --
    --  Report an error if
    --    - a literal string is not found at the beginning of the list
@@ -50,24 +50,22 @@ private package Prj.Strt is
    procedure Start_New_Case_Construction
      (In_Tree     : Project_Node_Tree_Ref;
       String_Type : Project_Node_Id);
-   --  This procedure is called at the beginning of a case construction
-   --  The parameter String_Type is the node for the string type
-   --  of the case label variable.
-   --  The different literal strings of the string type are stored
-   --  into a table to be checked against the case labels of the
-   --  case construction.
+   --  This procedure is called at the beginning of a case construction The
+   --  parameter String_Type is the node for the string type of the case label
+   --  variable. The different literal strings of the string type are stored
+   --  into a table to be checked against the case labels of the case
+   --  construction.
 
    procedure End_Case_Construction
      (Check_All_Labels   : Boolean;
       Case_Location      : Source_Ptr;
       Flags              : Processing_Flags);
-   --  This procedure is called at the end of a case construction
-   --  to remove the case labels and to restore the previous state.
-   --  In particular, in the case of nested case constructions,
-   --  the case labels of the enclosing case construction are restored.
-   --  When When_Others is False and we are not in quiet output, a warning
-   --  is emitted for each value of the case variable string type that has
-   --  not been specified.
+   --  This procedure is called at the end of a case construction to remove the
+   --  case labels and to restore the previous state. In particular, in the
+   --  case of nested case constructions, the case labels of the enclosing case
+   --  construction are restored. When When_Others is False and we are not in
+   --  quiet output, a warning is emitted for each value of the case variable
+   --  string type that has not been specified.
 
    procedure Parse_Choice_List
      (In_Tree      : Project_Node_Tree_Ref;
@@ -86,12 +84,13 @@ private package Prj.Strt is
       Current_Package : Project_Node_Id;
       Optional_Index  : Boolean;
       Flags           : Processing_Flags);
-   --  Parse a simple string expression or a string list expression.
-   --  Current_Project is the node of the project file being parsed.
-   --  Current_Package is the node of the package being parsed,
-   --  or Empty_Node when we are at the project level (not in a package).
-   --  On exit, Expression is the node of the expression that has
-   --  been parsed.
+   --  Parse a simple string expression or a string list expression
+   --
+   --  Current_Project is the node of the project file being parsed
+   --
+   --  Current_Package is the node of the package being parsed, or Empty_Node
+   --  when we are at the project level (not in a package). On exit, Expression
+   --  is the node of the expression that has been parsed.
 
    procedure Parse_Variable_Reference
      (In_Tree         : Project_Node_Tree_Ref;
@@ -99,13 +98,12 @@ private package Prj.Strt is
       Current_Project : Project_Node_Id;
       Current_Package : Project_Node_Id;
       Flags           : Processing_Flags);
-   --  Parse a variable or attribute reference.
-   --  Used internally (in expressions) and for case variables (in Prj.Dect).
-   --  Current_Package is the node of the package being parsed,
-   --  or Empty_Node when we are at the project level (not in a package).
-   --  On exit, Variable is the node of the variable or attribute reference.
-   --  A variable reference is made of one to three simple names.
-   --  An attribute reference is made of one or two simple names,
+   --  Parse variable or attribute reference. Used internally (in expressions)
+   --  and for case variables (in Prj.Dect). Current_Package is the node of the
+   --  package being parsed, or Empty_Node when we are at the project level
+   --  (not in a package). On exit, Variable is the node of the variable or
+   --  attribute reference. A variable reference is made of one to three simple
+   --  names. An attribute reference is made of one or two simple names,
    --  followed by an apostrophe, followed by the attribute simple name.
 
 end Prj.Strt;