calling an ada procedure from C++

["Anthony Moss" <a.m@baesystems.com>]

I have an ada simulation and a windows C++ graphics program already created.
My task is to transfer the information from the ada written simulation to
the VisualC++ graphics program. This involves transfering a large structure
of information from ada to C++. To do this i have written a very small
program to pass a simple structure from ada to C++, but I am getting run
time access errors. I will place a copy of the code onto this message, so
could you tell me what is wrong and how to fix it.
thanks
Anthony Moss
The ada code is .....
package Output is

   type Record_T is
      record
         First    : Integer;
         Second   : Integer;
   end record;

   --type Record_Ptr is access Record_T;

   function Struct return Record_T;
   pragma Export (C, Struct, "Struct");

end Output;

package body Output is

   function Struct return Record_T is
      A_Record : Record_T :=(2,4);
      begin
         return A_Record;
      end Struct;

end Output;


The C++ code is..

typedef struct {
 int first;
 int second;
} A_Struct;

extern "C" {
 A_Struct Struct();
}

int main()
{
 A_Struct A = Struct();

 __asm nop;
 return 0;
}

ps when iinclude adainit() and adafinal I am getting
unresolved external symbol _adafinal.....
errors