Calling C++ methods from Ada..

[ganesh.ramasivan@gdcanada.com (Ganesh Ramasivan)]

The following is a small test program in which the Ada function is
implemented in C++.

------------------------------
with System;

procedure CppTest is

procedure SET_TIME (hour: System.Address);
pragma import(CPP, SET_TIME, "Time::SetTime");

begin
  null;
end CppTest;

--------------------------------

I get the following error when I compile this code using the GHS Ada
compiler under Solaris 2.8. Can anybody please tell me what I am doing
wrong?

c8966@gatekeeper: cpp>build CppTest.bld
Compiling /home/c8966/ada/cpp/CppTest.ada because "CppTest.o" doesn't
exist
/home/c8966/ada/cpp/CppTest.ada: Error: line 83 col 10 LRM:B.1(26), No
compatible C++ type for System.Address_Target

Error: build failed
Build terminated


Thanks,

Ganesh