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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,58c59e14b3dce46b
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news4.google.com!proxad.net!feeder1-2.proxad.net!news.in2p3.fr!in2p3.fr!not-for-mail
From: xavier grave <xavier.grave@ipno.in2p3.fr>
Newsgroups: comp.lang.ada
Subject: Re: compilation problem with gnat 4.4 about access type
Date: Wed, 02 Dec 2009 13:55:44 +0100
Organization: In2p3
Message-ID: <hf5o4g$8p2$1@ccpntc8.in2p3.fr>
References: <hf3g79$45h$1@ccpntc8.in2p3.fr>
NNTP-Posting-Host: ipnnarval.in2p3.fr
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: ccpntc8.in2p3.fr 1259758544 8994 134.158.92.7 (2 Dec 2009 12:55:44
 GMT)
X-Complaints-To: newsmaster@cc.in2p3.fr
NNTP-Posting-Date: Wed, 2 Dec 2009 12:55:44 +0000 (UTC)
User-Agent: Mozilla-Thunderbird 2.0.0.22 (X11/20090707)
In-Reply-To: <hf3g79$45h$1@ccpntc8.in2p3.fr>
X-Enigmail-Version: 0.95.0
Xref: g2news1.google.com comp.lang.ada:8283
Date: 2009-12-02T13:55:44+01:00
List-Id: <comp.lang.ada>

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

More information in my bug quest :
If I remove the dependence on Ada.Streams in the package no more error...

Here is the full Package specification with the offending lines commented :
- -- with Ada.Streams;

package Events_Receivers is
   pragma Remote_Types;
   type Supported_Events_Type is (Log4ada_Event, String_Event);
   type Events_Receiver_Type is abstract tagged limited private;
   type Events_Receivers_Class_Access is access all
Events_Receiver_Type'Class;
   procedure Send_Event
     (Events_Receiver : not null access Events_Receiver_Type;
- --      Event : Ada.Streams.Stream_Element_Array;
      Event_Type : Supported_Events_Type := Log4ada_Event) is abstract;
   function Event_Receiver_Is_Alive
     (Events_Receiver : not null access Events_Receiver_Type) return
Boolean;
   Event_Type_Not_Supported : exception;
private
   type Events_Receiver_Type is abstract tagged limited null record;
end Events_Receivers;

xavier grave a �crit :
> Hi,
> 
> I'm trying to compile a package containing an abstract remote type with
> gnat 4.4 (using debian package from unstable amd64 and powerpc arch) at
> the line declaring an access to the type I get this message :
> 
> events_receivers.ads:27:09: expected type
> "Ada.Streams.Stream_Element_Offset"
> events_receivers.ads:27:09: found type "Standard.Long_Integer"
> 
> The offending code :
> with Ada.Streams;
> 
> package Events_Receivers is
>    pragma Remote_Types;
>    type Supported_Events_Type is (Log4ada_Event, String_Event);
>    type Events_Receiver_Type is abstract tagged limited private;
>    type Events_Receivers_Class_Access is access all
> Events_Receiver_Type'Class; -- this is line 27
> ...
> 
> The same code with gnat gpl 2009 compile without problem
> 
> Does somebody already have experimented such behaviour ?
> 
> Thanks in advance, xavier
> PS: the command line for the offending compilation :
> gcc-4.4 -c
> -I/home/narval/org.log4Ada/server/obj/x86_64//../../../client/src
> -I/home/narval/org.log4Ada/server/obj/x86_64//../../src
> -I/home/narval/org.log4Ada/server/obj/x86_64//../../demos
> -I/home/narval/org.log4Ada/server/obj/x86_64//../../../utilities/src
> -I/usr/share/ada/adainclude/polyorb -I- -gnatA
> /home/narval/org.log4Ada/client/src/events_receivers.adb
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iEYEARECAAYFAksWY9AACgkQVIZi0A5BZF7Q5wCfTvWFM45yHIeUNgZx4RwHeEg0
bbgAniDaklktZHPzvlxqhQTN6aevXorz
=802s
-----END PGP SIGNATURE-----