Re: Memory leak in porting VAX/VMS -> AXP/VMS

[Mats.Weber@elca-matrix.ch (Mats Weber)]

We just found the memory leak. It was in a function that converts a binary
tree into an array, something like:

      function Equiv (L : Link) return List is
      begin
         if L = null then
            declare

               Null_List : List(1..0);

            begin
               return Null_List;
            end;
         else
            if Key_Of(Item) < Key_Of(L.Val) then
               return Equiv(L.Left);
            elsif Key_Of(Item) = Key_Of(L.Val) then
               if Equal(Item, L.Val) then
                  return Equiv(L.Left) & L.Val & Equiv(L.Right);
               else
                  return Equiv(L.Left) & Equiv(L.Right);
               end if;
            else
               return Equiv(L.Right);
            end if;
         end if;
      end Equiv;

which was in a generic that was instantiated with a type with
discriminants. I changed the code to remove the combination of "&" and
recursion and now it doesn't leak memory anymore. I haven't yet tried
version 3.3 of the VMS/AXP compiler to see if the bug has gone.

Thanks to all those who answered.