Re: problem with CPP_* pragmas

[Georg Bauhaus <sb463ba@l1-hrz.uni-duisburg.de>]

Szymon Guz <guzo@stud.ics.p.lodz.pl> wrote:
This compiles (not tried on Windows(TM) though):

with Interfaces.CPP;

   package TestClass is


        type CA is tagged
          record
             VTable : Interfaces.CPP.Vtable_Ptr;
           end record;

        pragma CPP_Class(Entity => CA);
        pragma CPP_Vtable(
           Entity      => CA,
           VTable_Ptr  => VTable,
           Entry_Count => 5);

        function Create return CA'Class;
        --probably: pragma Import(CPP, Create, ...);
        pragma CPP_Constructor(Create);

   end TestClass;

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