From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,605e49a96dc9a0fd
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!proxad.net!feeder2-1.proxad.net!news1-e.free.fr!not-for-mail
From: "Patrice Freydiere" <frett27@free.fr>
Subject: Re: Tagged Types ..
Date: Sun, 05 Sep 2004 15:09:14 +0200
User-Agent: Pan/0.13.0 (The whole remains beautiful)
Message-Id: <pan.2004.09.05.13.09.10.851273@free.fr>
Newsgroups: comp.lang.ada
References: <pan.2004.09.05.12.54.09.858608@free.fr>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-15
Organization: Guest of ProXad - France
NNTP-Posting-Date: 05 Sep 2004 13:07:36 MEST
NNTP-Posting-Host: 82.228.206.35
X-Trace: 1094382456 news1-e.free.fr 22035 82.228.206.35:34285
X-Complaints-To: abuse@proxad.net
Xref: g2news1.google.com comp.lang.ada:3332
Date: 2004-09-05T13:07:36+02:00
List-Id: <comp.lang.ada>


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