From: Arnaud Charlet Date: Tue, 25 Mar 2008 09:34:30 +0000 (+0000) Subject: exp_ch6.adb, [...]: Update copyright notice. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=53b308f61e96c47b54abf5c7db2e9831cbc43e66;p=gcc.git exp_ch6.adb, [...]: Update copyright notice. * exp_ch6.adb, exp_disp.adb: Update copyright notice. Fix wrong formatting (lines too long) From-SVN: r133505 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9cfba05d2d1..a807aac85af 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2008-03-25 Arnaud Charlet + + * exp_ch6.adb, exp_disp.adb: Update copyright notice. + Fix wrong formatting (lines too long) + 2008-03-24 Ralf Wildenhues * 9drpc.adb, a-caldel-vms.adb, a-caldel.adb, diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 23f74fa221e..8d75049fbc7 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -5553,11 +5553,11 @@ package body Exp_Ch6 is -- If the object entity has a class-wide Etype, then we need to change -- it to the result subtype of the function call, because otherwise the - -- object will be class-wide without an explicit initialization and won't - -- be allocated properly by the back end. It seems unclean to make such - -- a revision to the type at this point, and we should try to improve - -- this treatment when build-in-place functions with class-wide results - -- are implemented. ??? + -- object will be class-wide without an explicit initialization and + -- won't be allocated properly by the back end. It seems unclean to make + -- such a revision to the type at this point, and we should try to + -- improve this treatment when build-in-place functions with class-wide + -- results are implemented. ??? if Is_Class_Wide_Type (Etype (Defining_Identifier (Object_Decl))) then Set_Etype (Defining_Identifier (Object_Decl), Result_Subt); diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index e059a34b09b..de26ec249fa 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1135,8 +1135,8 @@ package body Exp_Disp is -- If the type of the actual parameter comes from a limited -- with-clause and the non-limited view is already available - -- we replace the anonymous access type by a duplicate decla- - -- ration whose designated type is the non-limited view + -- we replace the anonymous access type by a duplicate + -- declaration whose designated type is the non-limited view if Ekind (Actual_DDT) = E_Incomplete_Type and then Present (Non_Limited_View (Actual_DDT))