exp_disp.adb (Build_Dispatch_Tables): For a private type completed by a synchronized...
commit393148620c7bb43f25c976a32daf205c90f33b54
authorEd Schonberg <schonberg@adacore.com>
Tue, 27 May 2008 08:49:55 +0000 (27 10:49 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 27 May 2008 08:49:55 +0000 (27 10:49 +0200)
treeda60cbc457c2d67cba5c142c15adad7c00a41d7f
parent4c4e9ad2b2fd7277af83f62cef018e4f90115e41
exp_disp.adb (Build_Dispatch_Tables): For a private type completed by a synchronized tagged type...

2008-05-27  Ed Schonberg  <schonberg@adacore.com>

* exp_disp.adb (Build_Dispatch_Tables): For a private type completed by
a synchronized tagged type, do not attempt to build dispatch table for
full view. The table is built for the corresponding record type, which
has its own declaration.

From-SVN: r135978
gcc/ada/exp_disp.adb