diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-07 14:37:10 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-07 14:37:10 +0200 |
| commit | da7d70aae388ceeefd8b829865ba6ea55d4171c9 (patch) | |
| tree | 9938e6b83fa49b9e8d2ffa23b29a00aadd3f6372 /gcc/ada/sinput.adb | |
| parent | ad110ee8874446d1993a66fee67b9a7c6fd44a7a (diff) | |
| download | gcc-da7d70aae388ceeefd8b829865ba6ea55d4171c9.zip gcc-da7d70aae388ceeefd8b829865ba6ea55d4171c9.tar.gz gcc-da7d70aae388ceeefd8b829865ba6ea55d4171c9.tar.bz2 | |
[multiple changes]
2010-10-07 Robert Dewar <dewar@adacore.com>
* par-ch6.adb: Fix error in handling of parametrized expressions.
* par-ch4.adb (P_Name): Allow qualified expression as name in Ada 2012
mode.
(P_Simple_Expression): Better message for qualified expression prefix
* s-crc32.adb: Minor reformatting.
* exp_intr.adb (Expand_Unc_Deallocation): Remove test for empty
storage pool (this test is moved to Sem_Intr).
* sem_intr.adb (Check_Intrinsic_Call): Add check for deallocation from
empty storage pool, moved here from Exp_Intr and made into error.
(Check_Intrinsic_Call): Remove assumption in generating not-null free
warning that the name of the instantiation is Free.
* sinput.adb (Tree_Read): Document use of illegal free call allowed in
GNAT mode.
* types.ads: Remove storage size clauses from big types (since we may
need to do deallocations, which are now illegal for empty pools).
2010-10-07 Sergey Rybin <rybin@adacore.com>
* gnat_ugn.texi: Add missing word.
From-SVN: r165099
Diffstat (limited to 'gcc/ada/sinput.adb')
| -rw-r--r-- | gcc/ada/sinput.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/sinput.adb b/gcc/ada/sinput.adb index c2af505..10f188c 100644 --- a/gcc/ada/sinput.adb +++ b/gcc/ada/sinput.adb @@ -792,8 +792,7 @@ package body Sinput is else -- Free the buffer, we use Free here, because we used malloc -- or realloc directly to allocate the tables. That is - -- because we were playing the big array trick. We need to - -- suppress the warning for freeing from an empty pool! + -- because we were playing the big array trick. -- We have to recreate a proper pointer to the actual array -- from the zero origin pointer stored in the source table. @@ -801,9 +800,7 @@ package body Sinput is Tmp1 := To_Source_Buffer_Ptr (S.Source_Text (S.Source_First)'Address); - pragma Warnings (Off); Free_Ptr (Tmp1); - pragma Warnings (On); if S.Lines_Table /= null then Memory.Free (To_Address (S.Lines_Table)); |