Re: Using controlled types to trace program execution

[Nige <nigel.scott@uk.thalesgroup.com>]

Jeffrey Carter wrote:
> 
> Christoph Grein wrote:
> >
> > Dynamic allocation and deallocation are not necessary:
> >
> > generic
> >
> >   Unit_Name: String;
> >
> > package Trace is
> >
> > private
> >
> >   X: aliased String := Unit_Name;
> >   Follower: T (X'Access);
> >
> > end Trace;
> 
> And you can use the Unit_Name constant from PragmARC.Reflection (from
> the PragmAda Reusable Components) to avoid manually supplying the unit
> name (and forgetting to change it when the nesting changes).

Thanks guys - I've come up with a hybrid which seems to do the job for
me.

Nige.