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!

回答1:

{$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;

回答2:

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.

回答3:

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.

来源：https://stackoverflow.com/questions/2741467/how-can-i-see-how-much-of-the-stack-space-is-currently-used-in-my-delphi-app