Re: Problem with access types using Booch components.

[Simon Wright <simon@pushface.org>]

402450@cepsz.unizar.es (Jano) writes:

> first try:
> it: Iterator:= New_iterator(C_access.all); <-- it raises tag error
> inside some booch source.

What compiler/version are you using?

With GNAT 3.15p I get this to compile without complaint (and to run,
though it's not a thorough test!).

Note the 'Class ....



with Collection_Test_Support;

procedure Jano is

   use Collection_Test_Support;

   type CU_P is access all CU.Collection;

   C : aliased CU.Collection;
   CP : CU_P := C'Access;

begin

   declare
      It : Containers.Iterator'Class := CU.New_Iterator (CP.all);
   begin
      null;
   end;

end Jano;