Re: Problems with the GNAT/C++ Interface.

[Jerry van Dijk <jvandyk@attglobal.net>]

The problem is that the compiler refuses the tagged declaration after the 
forwarding declaration. I'm no language lawyer, but normally I would expect
this to work here. Maybe it's a CPP interface limitation.

with Interfaces.CPP;

package Chainable_Type is

--   type Chainable;
--   type Chainable_Class_Access is access all Chainable'Class;

   type Chainable is tagged
      record
--           next   : Chainable_Class_Access;
--           prev   : Chainable_Class_Access;
         Vtable : Interfaces.CPP.Vtable_Ptr;
      end record;

   function Constructor return Chainable'Class;  -- default constructor
   procedure reset;

   pragma CPP_Class (Chainable);

   pragma Import (CPP, Constructor, "chainable");
   pragma CPP_Constructor (Constructor);

   pragma Import (CPP, reset);

end Chainable_Type;

-- 
--  Jerry van Dijk   | email: jvandyk@attglobal.net
--  Leiden, Holland  | web:   home.trouwweb.nl/Jerry