Re: Size of Vector limited to 1024 MB of Heap Size

[Peter Schildmann <news@schildmann.info>]

Dennis Hoppe schrieb:
>   loop
>     Generic_Vector.Append (Evil_Vector, Integer'Last);
>   end loop;

It's not a good idea to use the STORAGE_ERROR exception
to terminate an endless loop.

This should work:

with Ada.Text_IO;
with Ada.Containers;
with Ada.Containers.Vectors;

procedure Heap is

   package Cnt_IO is new Ada.Text_IO.Integer_IO
     (Ada.Containers.Count_Type);

   package Generic_Vector is new Ada.Containers.Vectors
     (Element_Type => Integer, Index_Type => Natural);

   Evil_Vector : Generic_Vector.Vector;

   Size : constant := Integer'Size / Standard'Storage_Unit;

begin

   for N in 0 .. Natural'Last / Size loop
      Generic_Vector.Append (Evil_Vector, N);
   end loop;

   Cnt_IO.Put (Generic_Vector.Capacity (Evil_Vector));

end Heap;


- Peter