diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:23:23 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:23:23 +0200 |
| commit | ce532f42a7efda7280a2cf6b9fb18d48176bae61 (patch) | |
| tree | c6e061c40a19735dc657379219f3feb87a598eb7 /gcc/ada/prj.adb | |
| parent | d62520f3cf12ac65efcefaad12c63ba8e8348003 (diff) | |
| download | gcc-ce532f42a7efda7280a2cf6b9fb18d48176bae61.zip gcc-ce532f42a7efda7280a2cf6b9fb18d48176bae61.tar.gz gcc-ce532f42a7efda7280a2cf6b9fb18d48176bae61.tar.bz2 | |
[multiple changes]
2013-04-12 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Analyze_Input_List): Detect an illegal dependency
clause where both input and output lists are null.
(Analyze_Pragma): Update the grammar of pragma Depends.
2013-04-12 Vincent Celier <celier@adacore.com>
* gnatbind.adb (No_Restriction_List): Exclude restrictions that
take a parameter value, not a count.
* prj.ads, prj.adb (Remove_All_Restricted_Languages): New procedure.
* projects.texi: Complete documentation of attribute Roots.
2013-04-12 Thomas Quinot <quinot@adacore.com>
* exp_ch3.adb, exp_util.ads, checks.adb, freeze.adb, sem_attr.adb,
sem_ch3.adb: Minor reformatting.
* exp_ch4.adb (Size_In_Storage_Elements): Minor documentation
improvement: note that the computation is pessimistic for bit
packed arrays.
* gnat_rm.texi (Range_Length): Fix minor error in description
of attribute.
From-SVN: r197912
Diffstat (limited to 'gcc/ada/prj.adb')
| -rw-r--r-- | gcc/ada/prj.adb | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index de2254c..9e0e0aa 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-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- -- @@ -112,6 +112,15 @@ package body Prj is new Restricted_Lang'(Name => Name_Find, Next => Restricted_Languages); end Add_Restricted_Language; + ------------------------------------- + -- Remove_All_Restricted_Languages -- + ------------------------------------- + + procedure Remove_All_Restricted_Languages is + begin + Restricted_Languages := null; + end Remove_All_Restricted_Languages; + ------------------- -- Add_To_Buffer -- ------------------- |