CODEWITHSUNDEEP
delphistackdelphi-2009
X-Ray
X-Ray

Reputation: 2846

how can i see how much of the stack space is currently used in my delphi app?

how can i see how much of the stack space is currently used in my delphi app? i had a very strange error that sounds like stack trouble. i'd like to add it to my app's log to get some idea how much stack space is in use/remaining. using the debugger is probably not so great because the routine can be called many times.

thank you!

Upvotes: 10

Views: 1248

Answers (3)

JGuzman
JGuzman

Reputation: 36

{$IFDEF MSWINDOWS}
function currentStackUsage: NativeUInt;
//NB: Win32 uses FS, Win64 uses GS as base for Thread Information Block.
asm
  {$IFDEF WIN32}
  mov eax, fs:[4]  // TIB: base of the stack
  sub eax, esp     // compute difference in EAX (=Result)
  {$ENDIF}
  {$IFDEF WIN64}
  mov rax, gs:[8]  // TIB: base of the stack
  sub rax, rsp     // compute difference in RAX (=Result)
  {$ENDIF}
{$ENDIF}
end;

Upvotes: 2

frogb
frogb

Reputation: 2060

VMmap from SysInternals can give you a graphical view of each type of memory used by your application, including stack. It does not give you the exact usage like the function in Per Larsen's answer, but may help you to visualize memory usage at different stages of your application.

Upvotes: 3

500 - Internal Server Error
500 - Internal Server Error

Reputation: 28829

This should give you your current stack usage:

function CurrentStackUsage: DWord;
asm
  mov eax, fs:[4]
  sub eax, esp
end;

I don't remember off the top of my head a simple way to get the max stack size at run-time, but you have the default value in your linker options.

Upvotes: 12

Related Questions