From d42676bcba7e9d470f3d35af27d288055f8a74c7 Mon Sep 17 00:00:00 2001 From: charlet Date: Fri, 22 Aug 2008 13:26:28 +0000 Subject: 2008-08-22 Ed Schonberg * exp_tss.adb: (Base_Init_Proc): For a protected subtype, use the base type of the corresponding record to locate the propoer initialization procedure. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139465 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/exp_tss.adb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'gcc/ada') diff --git a/gcc/ada/exp_tss.adb b/gcc/ada/exp_tss.adb index f9b9e33374e..acddeb11abd 100644 --- a/gcc/ada/exp_tss.adb +++ b/gcc/ada/exp_tss.adb @@ -57,7 +57,12 @@ package body Exp_Tss is elsif Is_Concurrent_Type (Full_Type) and then Present (Corresponding_Record_Type (Base_Type (Full_Type))) then - return Init_Proc (Corresponding_Record_Type (Base_Type (Full_Type))); + -- The initialization routine to be called is that of the base type + -- of the corresponding record type, which may itself be a subtype + -- and possibly an itype. + + return Init_Proc + (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type)))); else Proc := Init_Proc (Base_Type (Full_Type)); -- cgit v1.2.1