From 44705307fb48554c8f72c6ea330327954e182ebb Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 20 Dec 2011 13:47:44 +0000 Subject: 2011-12-20 Robert Dewar * sem_ch3.adb, sem_ch5.adb, s-diinio.adb, s-diinio.ads, sem_dim.adb, sem_dim.ads, sem_res.adb, s-stposu.adb, s-stposu.ads, sem_ch4.adb, s-diflio.adb, s-diflio.ads, exp_disp.adb, s-llflex.ads: Minor reformatting. * aspects.ads: Dimension[_Aspects] are GNAT defined. 2011-12-20 Robert Dewar * sem_ch13.adb (Analyze_Attribute_Definition_Clause): Check renaming case. 2011-12-20 Thomas Quinot * sem_cat.adb, sem_ch10.adb (Analyze_With_Clause): For a WITH clause on a child unit that is an illegal instantiation, mark the WITH clause in error. (Install_Siblings, Validate_Categorization_Dependency): Guard against WITH clause marked as in error. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@182534 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/s-stposu.adb | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'gcc/ada/s-stposu.adb') diff --git a/gcc/ada/s-stposu.adb b/gcc/ada/s-stposu.adb index 53f65cb2f37..5ee3f2d5804 100644 --- a/gcc/ada/s-stposu.adb +++ b/gcc/ada/s-stposu.adb @@ -440,7 +440,6 @@ package body System.Storage_Pools.Subpools is is begin raise Program_Error; - return Pool.Subpools.Subpool; end Default_Subpool_For_Pool; @@ -552,9 +551,7 @@ package body System.Storage_Pools.Subpools is begin -- Do nothing if the subpool was never used - if Subpool.Owner = null - or else Subpool.Node = null - then + if Subpool.Owner = null or else Subpool.Node = null then return; end if; @@ -619,8 +616,9 @@ package body System.Storage_Pools.Subpools is -- Pool_Of_Subpool -- --------------------- - function Pool_Of_Subpool (Subpool : not null Subpool_Handle) - return access Root_Storage_Pool_With_Subpools'Class + function Pool_Of_Subpool + (Subpool : not null Subpool_Handle) + return access Root_Storage_Pool_With_Subpools'Class is begin return Subpool.Owner; -- cgit v1.2.1