Re: Basic program with tasks goes out of memory

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On 5 Aug 2004 07:55:27 -0700, Wojtek Narczynski wrote:

> Hello,
> 
> Any idea why this program (extracted from AdaSockets example)
> eventually eats up all RAM? Runtime leak or my ignorance?
> 
> with Ada.Exceptions;   use Ada.Exceptions;
> with Ada.Text_IO;      use Ada.Text_IO;

with Ada.Unchecked_Deallocation;

> procedure Listener is
> 
>    task type Echo is
>       entry Start;
>    end Echo;
> 
>    task body Echo is
> 
>    begin
>       select
>          accept Start do
>             null;
>          end Start;
>       or
>          terminate;
>       end select;
> 
>    exception
>       when others =>
>          Put_Line ("Strange error");
>    end Echo;
> 
>    type Echo_Access is access Echo;

procedure Free is new Ada.Unchecked_Deallocation (Echo, Echo_Access);

>    Dummy : Echo_Access;
> 
> begin
> 
>    loop
>       Dummy := new Echo;
>       Dummy.Start;
>       -- The statement below merely "delays" the problem
>       delay 0.001;

Free (Dummy);

>    end loop;
> 
> end Listener;

You allocate Echo, but never deallocate it.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de