Re: Garbage Collection ???

["ldries46" <bertus.dries@planet.nl>]

I have been trying to find the place where a faulty pointer could have been 
introduced and I come to the conclusion that the return of a procedure in 
the place.
I did position some variables (edge_debug1 till edge_debug4) to be filled 
with the value of the original pointer at various places in and around the 
procedure Edge_Force and printed them after the breakpoint.
The code there is now:

while edges /= NULL loop
   edge_debug3 := edges;
   Edge_Force(edges);
   edge_debug4 := edges;
   edges := edges.next;
end loop;

where Edge_Force code is:

procedure Edge_Force(edge1 : ptr_Edge) is
   len : float;
begin
   edge_debug1 := edge1;
   len := Length(edge1.P1.pnt, edge1.P2.pnt) - edge1.l_init;
   if abs(len / edge1.l_init) < 0.00001 then
     len := 0.0;
   end if;
   edge1.force := edge1.k_s * len;
   edge_debug2 := edge1;
end Edge_Force;

(gdb) print stedges
$43 = (access general.edge) 0x3e0d568

(gdb) print edges
$45 = (access general.edge) 0x0

(gdb) print edge_debug3
$48 = (access general.edge) 0x3db8200

(gdb) print edge_debug1
$51 = (access general.edge) 0x3db8200

(gdb) print edge_debug2
$53 = (access general.edge) 0x3db8200

(gdb) print edge_debug4
$55 = (access general.edge) 0x0
It can be seen that only the end of the procedure Edge_Force is between the 
creation of edge_debug2 and edge_debug4
The reason that I originally thought about Garbage collection is that I 
imagined that perhaps use of too much memory could be the reason.

Regards,
L. Dries

"Dmitry A. Kazakov"  schreef in bericht 
news:5o86o2smbjpz.17l849bmku28v$.dlg@40tude.net...

On Fri, 13 Apr 2012 14:14:43 +0200, ldries46 wrote:

> What also causes the changed value of edges within the loop. Can it be 
> some
> garbage problem.

(Fortunately, Ada does not have mandated GC). Most likely you have a
dangling pointer somewhere.

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