2014-07-30 Robert Dewar <dewar@adacore.com>

	* par-ch5.adb (P_Sequence_Of_Statements): Properly handle
	missing semicolon after name.

2014-07-30  Pascal Obry  <obry@adacore.com>

	* prj.ads (Gprinstall_Flags): New constant.
	* prj-nmsc.adb (Check_Library_Attributes): Do not fails for
	missing library dir if Directories_Must_Exist_In_Projects
	is false.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213282 138bc75d-0d04-0410-961f-82ee72b054a4

4 files changed, 82 insertions, 58 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a5453b2b46a..191b17b636d 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,15 @@
+2014-07-30  Robert Dewar  <dewar@adacore.com>
+
+	* par-ch5.adb (P_Sequence_Of_Statements): Properly handle
+	missing semicolon after name.
+
+2014-07-30  Pascal Obry  <obry@adacore.com>
+
+	* prj.ads (Gprinstall_Flags): New constant.
+	* prj-nmsc.adb (Check_Library_Attributes): Do not fails for
+	missing library dir if Directories_Must_Exist_In_Projects
+	is false.
+
 2014-07-30  Bob Duff  <duff@adacore.com>
 
 	* a-except-2005.adb, a-except.adb: Remove obsolete comments.
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb
index 1d5504df922..7b1bc44f39d 100644
--- a/gcc/ada/par-ch5.adb
+++ b/gcc/ada/par-ch5.adb
@@ -699,6 +699,11 @@ package body Ch5 is
 
                      else
                         TF_Semicolon;
+
+                        --  Normal processing as though semicolon were present
+
+                        Change_Name_To_Procedure_Call_Statement (Name_Node);
+                        Append_To (Statement_List, Name_Node);
                         Statement_Required := False;
                      end if;
 
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb
index e6a1f4c601b..6f8b7133c8a 100644
--- a/gcc/ada/prj-nmsc.adb
+++ b/gcc/ada/prj-nmsc.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2000-2013, Free Software Foundation, Inc.         --
+--          Copyright (C) 2000-2014, 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- --
@@ -3243,9 +3243,6 @@ package body Prj.Nmsc is
                     (Data.Flags,
                      "library directory { does not exist",
                      Lib_Dir.Location, Project);
-
-               else
-                  Project.Library_Dir := No_Path_Information;
                end if;
 
             --  Checks for object/source directories
@@ -5514,9 +5511,6 @@ package body Prj.Nmsc is
                     (Data.Flags, Data.Flags.Require_Obj_Dirs,
                      "object directory { not found",
                      Project.Location, Project);
-
-               else
-                  Project.Object_Directory := No_Path_Information;
                end if;
             end if;
          end if;
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads
index ce6e01e7e16..83c9c89cba2 100644
--- a/gcc/ada/prj.ads
+++ b/gcc/ada/prj.ads
@@ -1882,10 +1882,11 @@ package Prj is
    --       * user project also includes a "with" that can only be resolved
    --         once we have found the gnatls
 
-   Gprbuild_Flags : constant Processing_Flags;
-   Gprclean_Flags : constant Processing_Flags;
-   Gprexec_Flags  : constant Processing_Flags;
-   Gnatmake_Flags : constant Processing_Flags;
+   Gprbuild_Flags   : constant Processing_Flags;
+   Gprinstall_Flags : constant Processing_Flags;
+   Gprclean_Flags   : constant Processing_Flags;
+   Gprexec_Flags    : constant Processing_Flags;
+   Gnatmake_Flags   : constant Processing_Flags;
    --  Flags used by the various tools. They all display the error messages
    --  through Prj.Err.
 
@@ -2034,52 +2035,64 @@ private
       Ignore_Missing_With        : Boolean;
    end record;
 
-   Gprbuild_Flags : constant Processing_Flags :=
-                      (Report_Error               => null,
-                       When_No_Sources            => Warning,
-                       Require_Sources_Other_Lang => True,
-                       Allow_Duplicate_Basenames  => False,
-                       Compiler_Driver_Mandatory  => True,
-                       Error_On_Unknown_Language  => True,
-                       Require_Obj_Dirs           => Error,
-                       Allow_Invalid_External     => Error,
-                       Missing_Source_Files       => Error,
-                       Ignore_Missing_With        => False);
-
-   Gprclean_Flags : constant Processing_Flags :=
-                      (Report_Error               => null,
-                       When_No_Sources            => Warning,
-                       Require_Sources_Other_Lang => True,
-                       Allow_Duplicate_Basenames  => False,
-                       Compiler_Driver_Mandatory  => True,
-                       Error_On_Unknown_Language  => True,
-                       Require_Obj_Dirs           => Warning,
-                       Allow_Invalid_External     => Error,
-                       Missing_Source_Files       => Error,
-                       Ignore_Missing_With        => False);
-
-   Gprexec_Flags :  constant Processing_Flags :=
-                      (Report_Error               => null,
-                       When_No_Sources            => Silent,
-                       Require_Sources_Other_Lang => False,
-                       Allow_Duplicate_Basenames  => False,
-                       Compiler_Driver_Mandatory  => False,
-                       Error_On_Unknown_Language  => True,
-                       Require_Obj_Dirs           => Silent,
-                       Allow_Invalid_External     => Error,
-                       Missing_Source_Files       => Silent,
-                       Ignore_Missing_With        => False);
-
-   Gnatmake_Flags : constant Processing_Flags :=
-                      (Report_Error               => null,
-                       When_No_Sources            => Error,
-                       Require_Sources_Other_Lang => False,
-                       Allow_Duplicate_Basenames  => False,
-                       Compiler_Driver_Mandatory  => False,
-                       Error_On_Unknown_Language  => False,
-                       Require_Obj_Dirs           => Error,
-                       Allow_Invalid_External     => Error,
-                       Missing_Source_Files       => Error,
-                       Ignore_Missing_With        => False);
+   Gprbuild_Flags   : constant Processing_Flags :=
+                        (Report_Error               => null,
+                         When_No_Sources            => Warning,
+                         Require_Sources_Other_Lang => True,
+                         Allow_Duplicate_Basenames  => False,
+                         Compiler_Driver_Mandatory  => True,
+                         Error_On_Unknown_Language  => True,
+                         Require_Obj_Dirs           => Error,
+                         Allow_Invalid_External     => Error,
+                         Missing_Source_Files       => Error,
+                         Ignore_Missing_With        => False);
+
+   Gprinstall_Flags : constant Processing_Flags :=
+                        (Report_Error               => null,
+                         When_No_Sources            => Warning,
+                         Require_Sources_Other_Lang => True,
+                         Allow_Duplicate_Basenames  => False,
+                         Compiler_Driver_Mandatory  => True,
+                         Error_On_Unknown_Language  => True,
+                         Require_Obj_Dirs           => Silent,
+                         Allow_Invalid_External     => Error,
+                         Missing_Source_Files       => Error,
+                         Ignore_Missing_With        => False);
+
+   Gprclean_Flags   : constant Processing_Flags :=
+                        (Report_Error               => null,
+                         When_No_Sources            => Warning,
+                         Require_Sources_Other_Lang => True,
+                         Allow_Duplicate_Basenames  => False,
+                         Compiler_Driver_Mandatory  => True,
+                         Error_On_Unknown_Language  => True,
+                         Require_Obj_Dirs           => Warning,
+                         Allow_Invalid_External     => Error,
+                         Missing_Source_Files       => Error,
+                         Ignore_Missing_With        => False);
+
+   Gprexec_Flags    : constant Processing_Flags :=
+                        (Report_Error               => null,
+                         When_No_Sources            => Silent,
+                         Require_Sources_Other_Lang => False,
+                         Allow_Duplicate_Basenames  => False,
+                         Compiler_Driver_Mandatory  => False,
+                         Error_On_Unknown_Language  => True,
+                         Require_Obj_Dirs           => Silent,
+                         Allow_Invalid_External     => Error,
+                         Missing_Source_Files       => Silent,
+                         Ignore_Missing_With        => False);
+
+   Gnatmake_Flags   : constant Processing_Flags :=
+                        (Report_Error               => null,
+                         When_No_Sources            => Error,
+                         Require_Sources_Other_Lang => False,
+                         Allow_Duplicate_Basenames  => False,
+                         Compiler_Driver_Mandatory  => False,
+                         Error_On_Unknown_Language  => False,
+                         Require_Obj_Dirs           => Error,
+                         Allow_Invalid_External     => Error,
+                         Missing_Source_Files       => Error,
+                         Ignore_Missing_With        => False);
 
 end Prj;