From: charlet Date: Tue, 20 May 2008 12:45:38 +0000 (+0000) Subject: 2008-05-20 Ed Schonberg X-Git-Tag: upstream/4.9.2~42079 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4ef962616dc83114d9e1312777963c0ce6e9b97a;p=platform%2Fupstream%2Flinaro-gcc.git 2008-05-20 Ed Schonberg * exp_ch5.adb (Expand_Assign_Record): Within an initialization procedure for a derived type retrieve the discriminant values from the parent using the corresponding discriminant. (Expand_N_Assignment_Statement): Skip generation of implicit if-statement associated with controlled types if we are compiling with restriction No_Finalization. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135622 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 0018a67..00ab0d6 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -1886,8 +1886,11 @@ package body Exp_Ch5 is -- -- end if; + -- Skip this if Restriction (No_Finalization) is active + if not Statically_Different (Lhs, Rhs) and then Expand_Ctrl_Actions + and then not Restriction_Active (No_Finalization) then L := New_List ( Make_Implicit_If_Statement (N,