From 1ea4332a7c4f225479f22ffd5be4b6d83954ea89 Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 29 Jul 2009 08:51:53 +0000 Subject: 2009-07-29 Robert Dewar * exp_atag.ads, exp_atag.adb, s-tasini.adb, s-soflin.ads, exp_disp.adb, g-socket.adb: Minor reformatting 2009-07-29 Ed Schonberg * sem_ch7.adb (New_Private_Type): Create class-wide type after other attributes have been established, so that they are all inherited by the class-wide type. * sem_cat.adb (Validate_Remote_Access_Object_Type_Declaration): Handle properly named subtypes of class-wide types. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150201 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/s-tasini.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/s-tasini.adb') diff --git a/gcc/ada/s-tasini.adb b/gcc/ada/s-tasini.adb index f473e0e7595..28b86cb5765 100644 --- a/gcc/ada/s-tasini.adb +++ b/gcc/ada/s-tasini.adb @@ -191,8 +191,8 @@ package body System.Tasking.Initialization is end if; -- pragma Assert - -- ((Self_ID.Pending_ATC_Level >= Self_ID.ATC_Nesting_Level or else - -- Self_ID.Deferral_Level > 0)); + -- (Self_ID.Pending_ATC_Level >= Self_ID.ATC_Nesting_Level or else + -- Self_ID.Deferral_Level > 0); -- See comment in Defer_Abort on the situations in which it may be -- useful to uncomment the above assertion. -- cgit v1.2.1