diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2008-03-25 09:34:30 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-25 10:34:30 +0100 |
| commit | 53b308f61e96c47b54abf5c7db2e9831cbc43e66 (patch) | |
| tree | 1f05e7273ef8881c664bafaab2b0cf2a96305281 /gcc | |
| parent | 07ead779be0eb41130c2b658ef98d6388745fab6 (diff) | |
| download | gcc-53b308f61e96c47b54abf5c7db2e9831cbc43e66.zip gcc-53b308f61e96c47b54abf5c7db2e9831cbc43e66.tar.gz gcc-53b308f61e96c47b54abf5c7db2e9831cbc43e66.tar.bz2 | |
exp_ch6.adb, [...]: Update copyright notice.
* exp_ch6.adb, exp_disp.adb: Update copyright notice.
Fix wrong formatting (lines too long)
From-SVN: r133505
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 12 | ||||
| -rw-r--r-- | gcc/ada/exp_disp.adb | 6 |
3 files changed, 14 insertions, 9 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9cfba05..a807aac 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2008-03-25 Arnaud Charlet <charlet@adacore.com> + + * exp_ch6.adb, exp_disp.adb: Update copyright notice. + Fix wrong formatting (lines too long) + 2008-03-24 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> * 9drpc.adb, a-caldel-vms.adb, a-caldel.adb, diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 23f74fa..8d75049 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 e059a34..de26ec2 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)) |