exp_dist.adb (Add_RACW_Primitive_Declarations_And_Bodies): For an RACW without any...
authorThomas Quinot <quinot@adacore.com>
Thu, 16 Jun 2005 08:38:05 +0000 (10:38 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Thu, 16 Jun 2005 08:38:05 +0000 (10:38 +0200)
commit0772a6ea04339a2bd6bbae174c0dd0a47b9f69bd
tree720377e95be66feb58b5419b5bd3a6725cbbf060
parent975f319568cd880d7434b345441b91e84265c20d
exp_dist.adb (Add_RACW_Primitive_Declarations_And_Bodies): For an RACW without any primitives...

2005-06-14  Thomas Quinot  <quinot@adacore.com>

* exp_dist.adb (Add_RACW_Primitive_Declarations_And_Bodies): For an
RACW without any primitives, do not generate the if statement for
dispatching by name in the PolyORB/DSA case, as it would be malformed
(it would have an Elsif_Parts list that is not No_List, but with a
length of 0).

From-SVN: r101035
gcc/ada/exp_dist.adb