Re: Tagged Types ..

["Patrice Freydiere" <frett27@free.fr>]

one more thing .... 
no exceptions are raised .... ??? the serveur process just stop

Patrice 

On Sun, 05 Sep 2004 14:54:09 +0200, Patrice Freydiere wrote:

> Hi there, 
> 
> i'm using GNAT 3.15p, on linux and i got a strange message in using an
> access to tagged type
> 
> i understand this is a runtime error message ??? 
> 
> 
> (null): Bad address
> 
> here is the context of execution ... 
> 
> 
>          for I in As'Range loop
>             declare
>                Im : Ais.Image.Image_access :=
>                  Ais.Image.Imagecollections.Item_at(Il,I);
> 
>                Ic : Ais.Image.Image'Class := Im.all;
>             begin
>                Ais.Log.Log("Image retreived");
>                if Im=null then
>                  Ais.Log.Log("null address  ");
>                end if;
>                declare
>                Ba : Ada.Streams.stream_element_array
>                  := Ais.image.Create_thumbnail(Ic);
>                S : String( Integer(Ba'first)..Integer(Ba'last) );
>             begin
>                Ais.Log.Log("Add");
>                for J in Ba'Range loop
>                   S(Integer(J)) :=
>                     Character'Val(Ada.Streams.Stream_Element'pos(Ba(J)));
>                end loop;
> 
> 
> on output i saw 
>  9: FileName =>fleur.png<=
>  1: Path =>/<=
>  9: FileName =>fleur.png<=
>  1: Path =>/<=
>  9: FileName =>fleur.png<=
>  1: Path =>/<=
>  9: FileName =>selection<=
> sending ...
> Sending Email
> Getting the Image /file/2001-03/Soiree_Projet/Photo_101-3-11-09.jpg
> Getting the Image /file/2001-03/Soiree_Projet/Photo_101-3-11-10.jpg
> Build attachment
> Image retreived
> (null): Bad address
> [use@villeurbanne]$ 
> 
> 
> i tried to put a log to the called methode (Create_thumbnail) but no log
> appear ..
> is this a compiler pb ... ?? 
> 
> 
> i still had several issues using tagged typed , sometime, the bug was due
> to not using intermediate variables to get tagged type ?? 
> 
> is there something wrong in my development method ? are there some
> recommendation to use tagged type ?
> 
> 
> thank's for your help!
> Patrice