Re: deallocating class wide types

["Robert I. Eachus" <rieachus@attbi.com>]

alfonso acosta wrote:
> procedure Destroy (Object: in out My_Class_Access) renames Free;
> 
> end My_Class;
> ----------------------------------------------------------------
> 
> I get:
> my_class.adb:7:59: subprogram used in renaming_as_body cannot be intrinsic

The error tells you that since the calling convention for Destroy 
doesn't match the calling convention for Free, you can't use renaming as 
body.  You could either put the renaming in the package spec, or
another solution is to declare Destroy as a "wrapper" subroutine:

procedure Destroy (Object: in out My_Class_Access) is
begin Free(Object); end Destroy;

If you are really worried about the possibility that this will add run 
time overhead, you can put:
    pragma Inline(Destroy);
in the package spec.  It is usually put in the private part, because the 
user of the package doesn't need to know about it.