Re: Workqueues in Ada

[Wiktor Moskwa <wiktorDOTmoskwa@gmail.com>]

On 28.07.2007, Robert A Duff <bobduff@shell01.TheWorld.com> wrote:
> Wiktor Moskwa <wiktorDOTmoskwa@gmail.com> writes:
>> GNAT GPL 2007 outputs:
>> ======
>> (Ada 2005) cannot copy object of a limited type (RM-2005 6.5(5.5/2))
>> consider switching to return of access type
>> =====
>
> I would be very interested in seeing the code that causes this.

Here you are:
======
procedure Sample is

   generic
      type Element is limited private;
   package Pkg is
      function Get return Element;
   end Pkg;
	     
   package body Pkg is
      Item : Element;
      
      function Get return Element is
      begin
         return Item;
      end Get;
   end Pkg;
						    
   package P
     is new Pkg (Integer);
						       
   X : Integer := P.Get;

begin
   null;
end Sample;
======

-- 
Wiktor Moskwa