diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-09 13:48:11 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-09 13:48:11 +0000 |
commit | 5682f43cf7eba8a677d650d24a93db827e190394 (patch) | |
tree | af4141f52236cf0ede8847a4d046735217e9b0d0 /gcc/ada/exp_disp.adb | |
parent | 780bfb21f031faba83f49c3277ca732d90f28a82 (diff) | |
download | gcc-5682f43cf7eba8a677d650d24a93db827e190394.tar.gz |
2010-09-09 Robert Dewar <dewar@adacore.com>
* impunit.adb: Add entry for a-izteio.
* checks.adb: Add comment.
* debug.adb, exp_disp.adb: Minor reformatting.
* exp_dbug.ads: Minor reformatting throughout (pack block comments).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164098 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_disp.adb')
-rw-r--r-- | gcc/ada/exp_disp.adb | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index fd8f43914db..9ecca31dde1 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -6311,16 +6311,13 @@ package body Exp_Disp is Set_Related_Type (DT_Ptr, Typ); -- For CPP types there is no need to build the dispatch tables since - -- they are imported from the C++ side. If the CPP type has an IP - -- then we declare now the variable that will store the copy of the - -- C++ tag. If the CPP type is an interface, we need the variable as - -- well, because it becomes the pointer to the corresponding secondary - -- table. + -- they are imported from the C++ side. If the CPP type has an IP then + -- we declare now the variable that will store the copy of the C++ tag. + -- If the CPP type is an interface, we need the variable as well, + -- because it becomes the pointer to the corresponding secondary table. if Is_CPP_Class (Typ) then - if Has_CPP_Constructors (Typ) - or else Is_Interface (Typ) - then + if Has_CPP_Constructors (Typ) or else Is_Interface (Typ) then Append_To (Result, Make_Object_Declaration (Loc, Defining_Identifier => DT_Ptr, |