Re: virtual destructors

[Stephen Leake <Stephe.Leake@nasa.gov>]

"kat-Zygfryd" <6667@wp.pl> writes:

> Never mind, I didn;t thinf of directly declaring
> 
> procedure Free is new Ada.Unchecked_Deallocation(Base'Class,CBase);
> procedure Free is new Ada.Unchecked_Deallocation(Derived'Class,CDerived);

You also need to ensure that both access types use the same storage
pool. Something like:

for CDerived'Storage_Pool use CBase'Storage_Pool.

> Another question: are there any advantages in using Ada.Finalization
> for objects that will always be dynamically allocated/deallocated
> over simply declaring a Dispose procedure, with frees object's
> components before freeing itself?

Yes. The compiler ensures that Finalize is called. Users will forget
to call Dispose.

-- 
-- Stephe