lib.adb, [...]: Minor reformatting and code reorganization.

2009-07-13  Robert Dewar  <dewar@adacore.com>

	* lib.adb, prj-nmsc.adb, prj-proc.adb, prj-proc.ads, prj.adb,
	prj.ads: Minor reformatting and code reorganization.

	* par-ch3.adb (Check_Restricted_Expression): New procedure

From-SVN: r149566

1 files changed, 12 insertions, 8 deletions

diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads
index 72193ca..47851fb 100644
--- a/gcc/ada/prj.ads
+++ b/gcc/ada/prj.ads
@@ -1343,10 +1343,9 @@ package Prj is
    --  project file tree. Initialize must be called before the call to Reset.
 
    type Processing_Flags is private;
-   --  Flags used while parsing and processing a project tree.
-   --  These configure various behavior in the parser, as well as indicate how
-   --  to report error messages.
-   --  This structure does not allocate memory and never needs to be freed
+   --  Flags used while parsing and processing a project tree to configure the
+   --  behavior of the parser, and indicate how to report error messages. This
+   --  structure does not allocate memory and never needs to be freed
 
    function Create_Flags
      (Report_Error               : Put_Line_Access;
@@ -1354,29 +1353,34 @@ package Prj is
       Require_Sources_Other_Lang : Boolean := True;
       Allow_Duplicate_Basenames  : Boolean := True;
       Compiler_Driver_Mandatory  : Boolean := False;
-      Error_On_Unknown_Language  : Boolean := True)
-      return Processing_Flags;
+      Error_On_Unknown_Language  : Boolean := True) return Processing_Flags;
+   --  Function used to create Processing_Flags structure
+   --
    --  If Allow_Duplicate_Basenames, then files with the same base names are
    --  authorized within a project for source-based languages (never for unit
-   --  based languages)
+   --  based languages).
+   --
    --  If Compiler_Driver_Mandatory is true, then a Compiler.Driver attribute
    --  for each language must be defined, or we will not look for its source
    --  files.
+   --
    --  When_No_Sources indicates what should be done when no sources of a
    --  language are found in a project where this language is declared.
    --  If Require_Sources_Other_Lang is true, then all languages must have at
    --  least one source file, or an error is reported via When_No_Sources. If
    --  it is false, this is only required for Ada (and only if it is a language
    --  of the project).
+   --
    --  If Report_Error is null, use the standard error reporting mechanism
    --  (Errout). Otherwise, report errors using Report_Error.
+   --
    --  If Error_On_Unknown_Language is true, an error is displayed if some of
    --  the source files listed in the project do not match any naming scheme
 
    Gprbuild_Flags : constant Processing_Flags;
    Gnatmake_Flags : constant Processing_Flags;
    --  Flags used by the various tools. They all display the error messages
-   --  through Prj.Err
+   --  through Prj.Err.
 
    package Project_Boolean_Htable is new Simple_HTable
      (Header_Num => Header_Num,