From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,a50b9611833860a3
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
X-Received: by 10.224.185.17 with SMTP id cm17mr19122432qab.6.1367049631692;
        Sat, 27 Apr 2013 01:00:31 -0700 (PDT)
X-Received: by 10.50.164.200 with SMTP id ys8mr674538igb.1.1367049631492; Sat,
 27 Apr 2013 01:00:31 -0700 (PDT)
Path: 
 ef9ni23500qab.0!nntp.google.com!gp5no7456720qab.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 27 Apr 2013 01:00:31 -0700 (PDT)
In-Reply-To: <klf9c0$3e1$1@dont-email.me>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=62.245.124.80;
 posting-account=gOWpSgoAAADVGkXEvWuE0ZkuZ-N4vbqK
NNTP-Posting-Host: 62.245.124.80
References: <af0d1537-ddc6-4094-892b-250dca14df8e@googlegroups.com>
 <klf9c0$3e1$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <3983e511-2ecd-43ec-ae61-ec98326779b7@googlegroups.com>
Subject: Re: gnatcoll ORM memory leak
From: landgraf <pavel.y.zhukov@gmail.com>
Injection-Date: Sat, 27 Apr 2013 08:00:31 +0000
Content-Type: text/plain; charset=ISO-8859-1
Date: 2013-04-27T01:00:31-07:00
List-Id: <comp.lang.ada>

On Saturday, 27 April 2013 03:27:28 UTC+2, Jeffrey Carter  wrote:
> On 04/26/2013 02:49 PM, landgraf wrote:
> 
> >          declare
> 
> >              Ob : Detached_Ob'Class := New_Ob;
> 
> >          begin
> 
> >                  Ob := New_Ob;
> 
> 
> 
> Did you intend to call New_Ob twice and discard the result of the 1st call?
> 
> 
> 
> -- 
> 
> Jeff Carter
> 
> "My legs are gray, my ears are gnarled, my eyes are old and bent."
> 
> Monty Python's Life of Brian
> 
> 81
Yes, It' s my mistake in the reproducer. But there is not second "New" call in the original code.

Changed to:
    for i in 1..100 loop
        declare
            Ob : Detached_Ob'Class := New_Ob;
        begin
                Ob.Set_Name("myname" & I'Img);
                Session.Persist(Ob);
        end; 
    end loop;

But without resolt:
==1388==    definitely lost: 3,200 bytes in 100 blocks