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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7fe1f0669a9fe9d
X-Google-Attributes: gid103376,public
From: Simon Wright <simon@pogner.demon.co.uk>
Subject: Re: GNAT implementation bug? (or my code)
Date: 2000/04/16
Message-ID: <x7vd7nqt1ee.fsf@pogner.demon.co.uk>#1/1
X-Deja-AN: 611899795
X-NNTP-Posting-Host: pogner.demon.co.uk:158.152.70.98
References: <38F5EC37.DED92CDE@ensco.com> <38F79059.27632CBE@averstar.com>
 <38F7935B.22173D26@ensco.com> <8d9qne$3q6$1@nnrp1.deja.com>
X-Trace: news.demon.co.uk 955905179 nnrp-13:1396 NO-IDENT
 pogner.demon.co.uk:158.152.70.98
Organization: At Home
Newsgroups: comp.lang.ada
X-Complaints-To: abuse@demon.net
Date: 2000-04-16T00:00:00+00:00
List-Id: <comp.lang.ada>

Robert Dewar <robert_dewar@my-deja.com> writes:

> Second, investigate tools that help you make sure your memory
> management is correct. GNAT comes with such tools (investigate
> gnatmem), and I assume other Ada 95 technologies have similar
> capbilities.

In this case, gnatmem didn't help. However, using System.Debug_Pools.Debug_Pool
did the job:

   type List_Element ;
   type List_Element_Ptr is access list_element ;

   Pool : System.Debug_Pools.Debug_Pool;
   for List_Element_Ptr'Storage_Pool use Pool;

and then

pogner[27]$ gdb q_test
[...]
(gdb) b exception
Breakpoint 1 at 0x80507fd: file a-except.adb, line 922.
(gdb) run
[...]
Breakpoint 1, 0x804ab1b in q_test.q.lm.remove (list=(head => 0x0, tail => 0x0, 
      cursor => 0x0, count => 0, traversing => false))
    at dynamic_list_manager.adb:160
160            Free(Orphan) ;
(gdb) p orphan.all
$3 = (prev => 0xefbeadde, data => -272716322, next => 0xefbeadde)

(the 0xefbeadde are the Intel versions of the classic deadbeef pattern, btw).