CODEWITHSUNDEEP
delphistructstack-overflowdelphi-7
john
john

Reputation: 51

I get an error EStackOverflow when creating packed struct in delphi 7.0

I'm getting an EStackOverflow when creating a packed struct in Borland Delphi 7.0

I want to do the following:

Type

 T4 = packed record
     VT  : integer;
     SKT : byte;
  end;

  T3 = packed record
     O : boolean;     
     TT4 : array of T4;  
  end;

  T2 = packed record
     con  : boolean;
     TT3 : array [64..90,64..90] of T3;
  End;

  TTT = array [64..90,64..90] of T2;


procedure TForm1.Button1Click(Sender: TObject);
var  
   Arr  : TTT;
begin 
        Arr[64,64].con:=false;
end;

But when I run the program and click the button, I get an EStackOverflow error on the begin line of Button1Click.

Can someone help me?

Upvotes: 5

Views: 626

Answers (2)

0xC0000022L
0xC0000022L

Reputation: 21269

Simple, the created items are too big for the default stack size. Either increase that when creating the thread or allocate the memory on the heap. Either way works.

Just do the math on it:

sizeof(T4) = 5
sizeof(T3) = 5
sizeof(T2) = 3646 // if I'm right
sizeof(TTT)= 2657934

Upvotes: 12

Jeroen Wiert Pluimers
Jeroen Wiert Pluimers

Reputation: 24483

You can partially solve this by increasing your stack size in your project options.

But you shouldn't:

Don't create those huge structures on the stack. That's what the heap is for, not the stack.

Upvotes: 2

Related Questions