Re: Weird controlled behavior - Gnat 3.15p NT

[Jano <nono@celes.unizar.es>]

Patrice Freydiere dice...
> On Thu, 04 Sep 2003 08:25:41 +0000, Jano wrote:
> 
> > Hello,
> > 
> > see the following type declarations and lines of code:
> > 
> >    type Object is abstract new 
> >       Finalization.Controlled with null record;
> >    type Object_access is access all Object'Class;
> > 
> >    procedure Initialize (This : in out Object) is
> >    begin
> >       Trace.Log ("====>");      
> >    end Initialize;
> > 
> >    procedure Finalize   (This : in out Object) is
> >    begin
> >       Trace.Log ("<====");
> >    end Finalize;
> > 
> >    declare
> >       -- THIS LINE IS THE RELEVANT ONE.
> >       Thing : Object_access := 
> >          new Object'Class'(Object'Class'Input (Stream));
> >    begin
> >       null;
> >    end;
> > 
> > Ok, running normally or stepping with GVD when the line with the
> > stream reading is executed I get the following log:
> > 
> > ====>
> > <====
> > <====
> > <====
> > 
> > Compiled with -O2 and without it if that means something. Consistently
> > with each object in the stream.
> > 
> > Now, I would assume that no Finalization could happen without a
> > corresponding Initialization, so is this normal? Is something wrong in
> > that read way?
> > 
> > Regards,
> > 
> > A. Mosteo.
> 
> 
> is it related to assign ?? 
> can you log assign call , for the controlled type ?? 

Assign isn't overloaded, but I'll try it to see what happens.