Re: Memory leak - What the ...?

["Matthew Heaney" <mheaney@on2.com>]

"Alex R. Mosteo" <mosteo@gmail.com> wrote in message
news:dcb57d1e.0410120707.256204ff@posting.google.com...

>    if Is_empty (Udp_msgs) then
>       Next_sending := Clock + 1.0;
>    else
>       Msg := First_Element (Udp_msgs);
>       Delete_first (Udp_msgs);
>
>       Socket.Send (
>          Udp_Socket,
>          Msg.Data (Msg.Data'First .. Msg.Last),
>          Last, -- Out value with the last sent component (should be
> Msg.Last)
>          Msg.Dest);

Note that function First_Element is going to make a copy of the element.
Your element type is controlled, and uses allocation, so this isn't going to
be cheap.  I recommend instead that you refer to the element in place:

else

   declare
        procedure Send (Msg : UDP_Msg_T) is
        begin
          Send (UDP_Socket, Msg.Data (...), ...);
       end;
    begin
        Query_Element (First (UDP_Msgs), Send'Access); --Ada 2005
    end;

    Delete_First (UDP_Msgs);
   ...
end if;