From 26e182d2e080cfccf7a2a11e9f675fb4c757948c Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 7 Oct 2010 12:37:10 +0000 Subject: 2010-10-07 Robert Dewar * 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 * gnat_ugn.texi: Add missing word. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165099 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/sinput.adb | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'gcc/ada/sinput.adb') diff --git a/gcc/ada/sinput.adb b/gcc/ada/sinput.adb index c2af505e5ba..10f188c609a 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)); -- cgit v1.2.1