Re: problem with CPP_* pragmas

[Szymon Guz <guzo@stud.ics.p.lodz.pl>]

Georg Bauhaus wrote:
> Szymon Guz <guzo@stud.ics.p.lodz.pl> wrote:
> This compiles (not tried on Windows(TM) though):
> 
> One change ist moving Create down so that CA is known to be
> a CPP_Class type when Create is declared. "return CA'Class"
> is what my GNAT RM says is required.
> 
> 
> -- Georg

Thanks, that helped me a lot, but I still have a problem. There is a 
virtual function in C++:


virtual void CA::Met1(int par1, double par2);

I wrote in Ada sth like this:

procedure Met1 (
   this : CA_Ptr;
   par1 : Win32.INT;
   par2 : Win32.DOUBLE );

now I try to import the function from dll to be a virtual function, so I 
wrote:

pragma CPP_Virtual (
    Entity     => Met1,
    VTable_Ptr => VTable,
    Position = 1);

My problem is that I still get the same error:
testclass.ads:36:21: pragma "Cpp_Virtual" must reference a primitive 
operation

What do I do wrong ?