Leo: Thank you for your code example.
for i in 10 .. 20 loop -- create xg on the stack (okay but stack size is limited) -- xg exists only within this declare block declare xg : Array (0..i-1) of Float; begin Put (xg'last); New_line; end; end loop;
That's the dynamic allocation I'm looking for, except it's on the stack. I need to use the main memory for dynamic allocation.
huge : Integer := 128_000_000; xg_ptr : vector_ptr := new vector (0..huge); xg : vector renames xg_ptr.all;begin Put (xg'last); New_line; Free_Vector (xg_ptr); -- essential to avoid memory leaks end;
Here the size of the array is predefined with a constant "huge".
Bastiaan: Thanks for the link. In the linked code we have:
VA := new Vector (1 .. 10); VB := VA; -- points to the same location as VA
Here, the vector size is predefined with the constants 1 and 10.
Peter: Thank you for your FPC example, which does exactly what I need.
program A; type graph_type = array of real; var xg:graph_type; i:integer; begin for i:=100 to 200 do begin setlength(xg,i); xg := nil; end; end.
Somehow, I missed setlength when I looked into FPC, and when I asked the FPC group about dynamic arrays, they must have interpreted my question as "does FPC support exactly the same syntax as GPC". So it looks like I could switch to FPC with minimal work.
Yours, Kevan