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: 103376,a71fc4911021ed50
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!newsfeed.stanford.edu!newsfeed.berkeley.edu!ucberkeley!news-peer1!btnet-feed5!btnet!news.btopenworld.com!not-for-mail
From: Martin Dowie <martin.dowie@btopenworld.com>
Newsgroups: comp.lang.ada
Subject: Re: Returning data from Ada to C
Date: Sun, 8 May 2005 09:41:16 +0000 (UTC)
Organization: BT Openworld
Message-ID: <d5kmrs$sct$1@nwrdmz03.dmz.ncs.ea.ibs-infra.bt.com>
References: <1115164192.585409.163780@z14g2000cwz.googlegroups.com>
   <9vYde.5480$GQ5.3731@newsread1.news.pas.earthlink.net>
   <4f1a9$4278d210$cf702d0d$18288@PRIMUS.CA>
   <hDBee.6345$GQ5.6288@newsread1.news.pas.earthlink.net>
 <1115503927.228956.100050@z14g2000cwz.googlegroups.com>
NNTP-Posting-Host: host81-154-188-69.range81-154.btcentralplus.com
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: nwrdmz03.dmz.ncs.ea.ibs-infra.bt.com 1115545276 29085 81.154.188.69
 (8 May 2005 09:41:16 GMT)
X-Complaints-To: news-complaints@lists.btinternet.com
NNTP-Posting-Date: Sun, 8 May 2005 09:41:16 +0000 (UTC)
In-Reply-To: <1115503927.228956.100050@z14g2000cwz.googlegroups.com>
X-Accept-Language: en-us, en
User-Agent: Mozilla Thunderbird 1.0.2 (Windows/20050317)
Xref: g2news1.google.com comp.lang.ada:10950
Date: 2005-05-08T09:41:16+00:00
List-Id: <comp.lang.ada>

igor.kh@gmail.com wrote:
[snip]
> == hello.c =============================
> #include <stdio.h>
> 
> void adainit();
> void adafinal();
> void hello_world(int *i, int **a_ptr);
> 
> int main()
> {
> 	int i = 1;
> 	int *a_ptr;
> 
> 	printf ("Calling Ada...\n");
> 
> 	adainit();
> 	hello_world(&i, &a_ptr);
> 
> 	printf ("...done\n");
> 	printf ("Returned i = %d\n", i);
> 	for (i=0; i<3; i++)
> 		printf ("a_ptr[%d] = %d\n", i, a_ptr[i]);
> 
> 	adafinal();
> 
> 	return 0;
> }
> ========================================
> 
> What am I missing to make this work?

Don't you have to allocate some memory for this array before passing it 
around?...

Cheers

-- Martin