aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/prj-ext.adb
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2011-08-03 09:47:07 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2011-08-03 11:47:07 +0200
commite917aec294d1a0e602aaf31a70df3a784f7a48b9 (patch)
treebf32fcc18f39f261c97a358abbe5ce7237af61a1 /gcc/ada/prj-ext.adb
parent49bfcf43817fb7d36f168ef2ba992b652747e0b2 (diff)
downloadgcc-e917aec294d1a0e602aaf31a70df3a784f7a48b9.zip
gcc-e917aec294d1a0e602aaf31a70df3a784f7a48b9.tar.gz
gcc-e917aec294d1a0e602aaf31a70df3a784f7a48b9.tar.bz2
sem_aggr.adb, [...]: Minor reformatting
2011-08-03 Robert Dewar <dewar@adacore.com> * sem_aggr.adb, sem_ch3.adb, lib.ads, gnatcmd.adb, prj-proc.adb, make.adb, lib-writ.adb, prj-part.adb, prj-part.ads, prj-ext.adb, fname-uf.adb, prj-ext.ads, prj.adb, prj.ads, sem_attr.adb, alfa.adb, prj-makr.adb, errout.adb, makeutl.adb, makeutl.ads, restrict.ads, sem_ch6.adb, g-pehage.adb, clean.adb, put_alfa.adb, lib-xref-alfa.adb, prj-nmsc.adb, prj-nmsc.ads, sem_ch8.adb, prj-pars.ads, exp_aggr.adb, prj-attr.ads, sem_ch13.adb, get_alfa.adb, prj-env.adb, prj-env.ads, alfa_test.adb, prj-tree.adb, prj-tree.ads, einfo.ads: Minor reformatting 2011-08-03 Robert Dewar <dewar@adacore.com> * repinfo.adb (List_Mechanism): Add handling of Convention_Ada_Pass_By_XXX. * sem_mech.adb (Set_Mechanism): Ditto. * sem_prag.adb (Process_Convention): Add entries for Convention_Ada_Pass_By_XXX. * snames.adb-tmpl, snames.ads-tmpl: Ditto. From-SVN: r177252
Diffstat (limited to 'gcc/ada/prj-ext.adb')
-rw-r--r--gcc/ada/prj-ext.adb5
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/prj-ext.adb b/gcc/ada/prj-ext.adb
index ee6d2c3..b9885c3 100644
--- a/gcc/ada/prj-ext.adb
+++ b/gcc/ada/prj-ext.adb
@@ -23,9 +23,10 @@
-- --
------------------------------------------------------------------------------
-with Ada.Unchecked_Deallocation;
with Osint; use Osint;
+with Ada.Unchecked_Deallocation;
+
package body Prj.Ext is
----------------
@@ -65,6 +66,7 @@ package body Prj.Ext is
Value : String)
is
N : Name_To_Name_Ptr;
+
begin
N := new Name_To_Name;
@@ -179,6 +181,7 @@ package body Prj.Ext is
Debug_Output ("Value_Of (" & Get_Name_String (External_Name)
& ") is default", With_Default);
end if;
+
Free (Env_Value);
return With_Default;
end if;