summaryrefslogtreecommitdiff
path: root/gcc/ada/exp_disp.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2010-09-09 13:48:11 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2010-09-09 13:48:11 +0000
commit5682f43cf7eba8a677d650d24a93db827e190394 (patch)
treeaf4141f52236cf0ede8847a4d046735217e9b0d0 /gcc/ada/exp_disp.adb
parent780bfb21f031faba83f49c3277ca732d90f28a82 (diff)
downloadgcc-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.adb13
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,