diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 11:00:45 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 11:00:45 +0200 |
commit | b043ae011153849317d63552814f54104999eeb0 (patch) | |
tree | 76db43f4fd0f168ca1b0171fd54f5952bfecb030 /gcc/ada/fname.ads | |
parent | b6e6a4e3804fc142a8c130cd2189f2461c9403ff (diff) | |
download | gcc-b043ae011153849317d63552814f54104999eeb0.zip gcc-b043ae011153849317d63552814f54104999eeb0.tar.gz gcc-b043ae011153849317d63552814f54104999eeb0.tar.bz2 |
[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
Diffstat (limited to 'gcc/ada/fname.ads')
-rw-r--r-- | gcc/ada/fname.ads | 34 |
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) |