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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,e39fb6aac207c1a4
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news2.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed.straub-nv.de!noris.net!newsfeed.arcor.de!newsspool1.arcor-online.net!news.arcor.de.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: calling ada from c with an array param
Newsgroups: comp.lang.ada
User-Agent: 40tude_Dialog/2.0.15.1
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
Reply-To: mailbox@dmitry-kazakov.de
Organization: cbb software GmbH
References: 
 <0208bf86-cba9-45db-a43c-53c249bf9ae6@l34g2000vba.googlegroups.com>
 <19zw9zf5j7p5b.vpt4c3xvlsaa.dlg@40tude.net>
Date: Mon, 21 Sep 2009 10:08:51 +0200
Message-ID: <vsyizsxlej4$.bgdu7mys7ljj$.dlg@40tude.net>
NNTP-Posting-Date: 21 Sep 2009 10:08:52 CEST
NNTP-Posting-Host: 1747812b.newsspool4.arcor-online.net
X-Trace: 
 DXC=k?EChRR8MZ?L2C_`koXfC54IUK<Cl32<14Fo<]lROoR1^YC2XCjHcb9U3i;o3P3SP?DNcfSJ;bb[5FCTGGVUmh?4LK[5LiR>kg2V5aF=nW^N8=
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news2.google.com comp.lang.ada:8414
Date: 2009-09-21T10:08:52+02:00
List-Id: <comp.lang.ada>

On Mon, 21 Sep 2009 10:04:58 +0200, Dmitry A. Kazakov wrote:

> 2. Here is a variant based on flat arrays:
> --------- conjunc.ads --------------------
> with Interfaces.C;  use Interfaces.C;
> 
> package conjunc is
>    type C_Float_Array is array (int range <>) of aliased C_Float;

I forgot to add this:

   pragma Convention (C, C_Float_Array);

>    subtype Flat_C_Float_Array is C_Float_Array (1..int'Last);
>    procedure conj (A : in out Flat_C_Float_Array; Len: int);
>    pragma Export (C, conj, "conjunc");
> end conjunc;
> --------- conjunc.adb --------------------
> package body conjunc is
>    procedure conj (A : in out Flat_C_Float_Array; Len: int) is
>    begin
>       A (1) := 99.0;
>       A (2) := 100.0;
>       A (3) := 101.0;
>       A (4) := 102.0;
>    end conj;
> end conjunc;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de