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: a07f3367d7,e39fb6aac207c1a4
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news2.google.com!postnews.google.com!e18g2000vbe.googlegroups.com!not-for-mail
From: sjw <simon.j.wright@mac.com>
Newsgroups: comp.lang.ada
Subject: Re: calling ada from c with an array param
Date: Mon, 21 Sep 2009 12:58:42 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: 
 <26c2c304-2ae5-4400-b3dd-ad30914fb936@e18g2000vbe.googlegroups.com>
References: 
 <0208bf86-cba9-45db-a43c-53c249bf9ae6@l34g2000vba.googlegroups.com>
NNTP-Posting-Host: 82.30.110.254
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1253563122 16968 127.0.0.1 (21 Sep 2009 19:58:42
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Mon, 21 Sep 2009 19:58:42 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: e18g2000vbe.googlegroups.com; posting-host=82.30.110.254;
	posting-account=_RXWmAoAAADQS3ojtLFDmTNJCT0N2R4U
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_8; en-us)
	AppleWebKit/531.9 (KHTML,
 like Gecko) Version/4.0.3 Safari/531.9,gzip(gfe),gzip(gfe)
Xref: g2news2.google.com comp.lang.ada:8421
Date: 2009-09-21T12:58:42-07:00
List-Id: <comp.lang.ada>

On Sep 20, 8:38=A0pm, Mike <michael_ta...@yahoo.com> wrote:

> extern void adainit (void);
> extern void adafinal (void);
> extern int conjunc (float[], int);

> -- =A0conjunc.ads
> package conjunc is
> =A0 =A0type Float_Array is array (Integer range <>) of Float;
> =A0 =A0subtype Contrained_Float_Array is Float_Array (1 .. Integer'Last);
> =A0 =A0procedure conj (A: in out Constrained_Float_Array; Len: in
> Integer);
> =A0 =A0pragma Export (C, conj, "conj");
> end conjunc;

Is the C name of your function to be 'conjunc' (as in the C above) or
'conj' (as in the Ada)?
(probably a good idea to avoid using the name of the Ada package!)