[multiple changes]

2017-04-25  Bob Duff  <duff@adacore.com>

	* sem_util.ads, sem_util.adb (Should_Ignore_Pragma): New function
	that returns True when appropriate.
	* par-prag.adb, exp_prag.adb, sem_prag.adb: Do not ignore pragmas
	when compiling predefined files.
	* fname.ads, fname.adb (Is_Predefined_File_Name): Fix bug:
	"gnat.adc" should not be considered a predefined file name.
	That required (or at least encouraged) a lot of cleanup of global
	variable usage. We shouldn't be communicating information via
	the global name buffer.
	* bindgen.adb, errout.adb, fname-uf.adb, lib-load.adb, make.adb,
	* restrict.adb, sem_ch10.adb, sem_ch6.adb, sem_ch8.adb: Changes
	required by the above-mentioned cleanup.

2017-04-25  Ed Schonberg  <schonberg@adacore.com>

	* osint.adb (Find_File): Handle properly a request for a
	configuration file whose name is a directory.

From-SVN: r247151

1 files changed, 18 insertions, 16 deletions

diff --git a/gcc/ada/fname.ads b/gcc/ada/fname.ads
index 79c84c6..88c402a 100644
--- a/gcc/ada/fname.ads
+++ b/gcc/ada/fname.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2014, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2016, 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- --
@@ -63,27 +63,29 @@ package Fname is
    -----------------
 
    function Is_Predefined_File_Name
-     (Fname              : File_Name_Type;
+     (Fname              : String;
       Renamings_Included : Boolean := True) return Boolean;
-   --  This function determines if the given file name (which must be a simple
-   --  file name with no directory information) is the file name for one of the
-   --  predefined library units (i.e. part of the Ada, System, or Interface
-   --  hierarchies). Note that units in the GNAT hierarchy are not considered
-   --  predefined (see Is_Internal_File_Name below). On return, Name_Buffer
-   --  contains the file name. The Renamings_Included parameter indicates
-   --  whether annex J renamings such as Text_IO are to be considered as
-   --  predefined. If Renamings_Included is True, then Text_IO will return
-   --  True, otherwise only children of Ada, Interfaces and System return True.
-
    function Is_Predefined_File_Name
-     (Renamings_Included : Boolean := True) return Boolean;
-   --  This version is called with the file name already in Name_Buffer
+     (Fname              : File_Name_Type;
+      Renamings_Included : Boolean := True) return Boolean;
+   --  These functions determine if the given file name (which must be a
+   --  simple file name with no directory information) is the file name for
+   --  one of the predefined library units (i.e. part of the Ada, System, or
+   --  Interface hierarchies). Note that units in the GNAT hierarchy are not
+   --  considered predefined (see Is_Internal_File_Name below). The
+   --  Renamings_Included parameter indicates whether annex J renamings such as
+   --  Text_IO are to be considered as predefined. If Renamings_Included is
+   --  True, then Text_IO will return True, otherwise only children of Ada,
+   --  Interfaces and System return True.
 
    function Is_Internal_File_Name
+     (Fname              : String;
+      Renamings_Included : Boolean := True) return Boolean;
+   function Is_Internal_File_Name
      (Fname              : File_Name_Type;
       Renamings_Included : Boolean := True) return Boolean;
-   --  Similar to Is_Predefined_File_Name. The internal file set is a superset
-   --  of the predefined file set including children of GNAT.
+   --  Same as Is_Predefined_File_Name, except units in the GNAT hierarchy are
+   --  included.
 
    procedure Tree_Read;
    --  Dummy procedure (reads dummy table values from tree file)