Calling C function with structure parameter from ADA

["C.G. Williams" <cgw1@le.ac.uk>]

A friend from China (Dr Kougen Zheng) asked me to post this request...

Help Please!!!
Q: How can an ADA program call a C function with a structure as a parameter?
Any help will be greatly appreciated

Please respond to: cgw1@le.ac.uk
(I will post a summary of any replies in a few days)

Details...

The interpreter used is Adaed-1.11.0a
What I did was... 
$ cc -c sub.c
$ adacomp -nl runlib -i sub.o -a -b struct.ada
$ adaexec runlib
Error: core dumped!!!


******************  struct.ada     *************************************
procedure first is

type Point is record
	x : INTEGER;
	y : INTEGER;
end record;

a : Point;

procedure PRINTA ( pp : in Point);
pragma INTERFACE ( C, PRINTA);
begin
	PRINTA(a);
end;

**************  sub.c           *************************************
#include <stdio.h>

typedef struct {
	int	x;
	int	y;
	} Point;

printa(pp)
Point	pp;
{
	printf("\n coordinate = ( %d , %d )", pp.x, pp.y);
}

***********************************************************************

Ceri Williams                    cgw1@le.ac.uk
PhD Research student
Geology Dept
Leicester University
Leicester
U.K.