Re: dynamic multithreading

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

On 18 Nov 2002 17:18:10 +0100, Pascal Obry <p.obry@wanadoo.fr> wrote:

>
>Dmitry A. Kazakov <mailbox@dmitry-kazakov.de> writes:
>
>> >    loop
>> >        TV := new T; -- should terminate immediately
>> >        while not TV.all'Terminated loop
>> >            delay 0.0;
>> >        end loop;
>> >        -- Free (TV);
>> >        Count := Count + 1;
>> >        if Count mod 50_000 = 0 then
>> >            Ada.Text_IO.Put_Line (Counter'Image (Count) & " tasks");
>> >        end if;
>> >    end loop;
>> >
>> >end Crazy_Tasks;
>> 
>> This does not leak in ObjectAda 7.2 under Windows. [Trumpets!]
>
>!!!!! How is this possible ? A "new" without a "Free" and you claim no memory
>leak !!!!!

Sorry!! It was misleading! I could not imagine that someone would
require the above to work with Free commented out. MY FAULT.

To clarify everything, of course, it does not leak ONLY if Free is
called. Without Free, Object Ada "leaks". But it is not a leak, it is
just a program design fault.

---
Regards,
Dmitry Kazakov
www.dmitry-kazakov.de