diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-23 11:06:42 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-23 11:06:42 +0200 |
commit | cae64f1110a0f084dff19e7d2ded0d1ab1eb8ace (patch) | |
tree | 9e1f925e7ff7c7ca3cfef2696f7f506eb198c68d /gcc/ada/a-envvar.adb | |
parent | 08c52234765066a487d3341f0f4797dbcff83bfd (diff) | |
download | gcc-cae64f1110a0f084dff19e7d2ded0d1ab1eb8ace.zip gcc-cae64f1110a0f084dff19e7d2ded0d1ab1eb8ace.tar.gz gcc-cae64f1110a0f084dff19e7d2ded0d1ab1eb8ace.tar.bz2 |
[multiple changes]
2013-04-23 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Analyze_Dependency_Clause): Update all calls to
Analyze_Input_Output.
(Analyze_Input_List): Update all calls to Analyze_Input_Output.
(Analyze_Input_Output): Add formal parameter Self_Ref along with
comment on its usage. Update all calls to Analyze_Input_Output.
(Analyze_Pragma): Add new local variable Self_Ref to capture
the presence of a self-referential dependency clause. Update
all calls to Analyze_Input_Output.
(Check_Mode): Add formal parameter Self_Ref along with comment on its
usage. Verify the legality of a self-referential output.
2013-04-23 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb: Add predicate checks on by-copy parameter.
2013-04-23 Vincent Celier <celier@adacore.com>
* a-envvar.adb, a-envvar.ads (Value): New.
From-SVN: r198177
Diffstat (limited to 'gcc/ada/a-envvar.adb')
-rw-r--r-- | gcc/ada/a-envvar.adb | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/a-envvar.adb b/gcc/ada/a-envvar.adb index d0caa25..1b1f425 100644 --- a/gcc/ada/a-envvar.adb +++ b/gcc/ada/a-envvar.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2009-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 2009-2013, 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- -- @@ -223,4 +223,13 @@ package body Ada.Environment_Variables is end if; end Value; + function Value (Name : String; Default : String) return String is + begin + if Exists (Name) then + return Value (Name); + + else + return Default; + end if; + end Value; end Ada.Environment_Variables; |