diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-11-13 14:08:51 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-11-13 14:08:51 +0100 |
| commit | bc38dbb42271b6bdbc5e2e55200266aa5917f4bd (patch) | |
| tree | f5547227256fa9497786ff77c30314fb8e931f30 /gcc/ada/impunit.adb | |
| parent | b512289ba21e751f7d294f4945a9e0616b5b40ab (diff) | |
| download | gcc-bc38dbb42271b6bdbc5e2e55200266aa5917f4bd.zip gcc-bc38dbb42271b6bdbc5e2e55200266aa5917f4bd.tar.gz gcc-bc38dbb42271b6bdbc5e2e55200266aa5917f4bd.tar.bz2 | |
[multiple changes]
2015-11-13 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch9.adb, exp_fixd.adb, exp_util.adb, g-debpoo.adb,
impunit.adb, scos.ads, sem_ch4.adb, sem_prag.adb,
s-stchop-vxworks.adb: Minor reformatting.
2015-11-13 Tristan Gingold <gingold@adacore.com>
* s-rident.ads (Profile_Info): Enable Pure_Barriers for
GNAT_Extended_Ravenscar.
2015-11-13 Bob Duff <duff@adacore.com>
* sem_ch6.adb (Check_Private_Overriding): Detect the special
case where the overriding subprogram is overriding a subprogram
that was declared in the same private part.
From-SVN: r230314
Diffstat (limited to 'gcc/ada/impunit.adb')
| -rw-r--r-- | gcc/ada/impunit.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb index e7d86d2..62947b4 100644 --- a/gcc/ada/impunit.adb +++ b/gcc/ada/impunit.adb @@ -649,8 +649,8 @@ package body Impunit is -- Ada/System/Interfaces are all Ada 95 units if File = "ada.ads" - or else File = "system.ads" or else File = "interfac.ads" + or else File = "system.ads" then return Ada_95_Unit; end if; @@ -726,9 +726,9 @@ package body Impunit is -- Only remaining special possibilities are children of System.RPC and -- System.Garlic and special files of the form System.Aux... - if File (1 .. 5) = "s-rpc" + if File (1 .. 5) = "s-aux" or else File (1 .. 5) = "s-gar" - or else File (1 .. 5) = "s-aux" + or else File (1 .. 5) = "s-rpc" then return Ada_95_Unit; end if; |