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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,4947e94bd021c540
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-10-07 15:55:04 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!msunews!not-for-mail
From: "Chad R. Meiners" <crmeiners@hotmail.com>
Newsgroups: comp.lang.ada
Subject: Re: C array to Ada pointer to unconstrained array without
 copyingmemory
Date: Tue, 7 Oct 2003 18:52:35 -0400
Organization: Michigan State University
Message-ID: <blvg80$qi4$1@msunews.cl.msu.edu>
References: 
 <mailman.37.1065537708.25614.comp.lang.ada@ada-france.org><blv981$jke$1@msunews.cl.msu.edu>
 <mailman.41.1065561795.25614.comp.lang.ada@ada-france.org>
 <blvfo6$q6s$1@msunews.cl.msu.edu>
NNTP-Posting-Host: arctic.cse.msu.edu
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Xref: archiver1.google.com comp.lang.ada:412
Date: 2003-10-07T18:52:35-04:00
List-Id: <comp.lang.ada>


"Chad R. Meiners" <crmeiners@hotmail.com> wrote in message
news:blvfo6$q6s$1@msunews.cl.msu.edu...
> declare
>     C_Data_Ptr       :  Systems.Address := To_Address(My_C_Ptr);
>     C_Data_Length :  Natural   := ...;
>
>     type My_Ada_Type_Element is ...;
>     type My_Ada_Array is array(Natural range <>) of My_Ada_Type_Element;
>
>     subtype My_C_Data_As_An_Ada_Array_Type is
> My_Ada_Array(1..C_Data_Length);
>     package My_Converter is new
> Address_To_Access_Conversions(My_C_Data_As_An_Ada_Array_Type);
>     C_Data_In_Ada : My_Ada_Array renames
> My_Converter.To_Pointer(C_Data_Ptr).all;
>     -- No copying of the array done, but the array dope that you want is
> built from the subtype information.
> begin
> ...
> end;

I should probably add that you can just get the pointer with

My_Ada_Array_Ptr : My_Converter.Object_Pointer :=
My_Converter.To_Pointer(C_Data_Ptr);

I believe that this satisfies your needs?
-CRM