program test2;

uses
  System .SysUtils,
  Posix.Base,
  Posix.SysMman;

function backtrace(buffer: PPointer; size: Integer): Integer; cdecl; external libc;

procedure GetStackTrace(Depth: Integer);
var
  LCount: Integer;
  LStack: Pointer;
begin
  GetMem(LStack, SizeOf(Pointer) * Depth);
  LCount := backtrace(@LStack, Depth);
end;

procedure WindStackTrace(Depth: Integer);

  procedure DoWindStack(I: Integer);
  begin
    Inc(I);
    if I < Depth then
      DoWindStack(I)
    else
      GetStackTrace(Depth);
  end;

var
  I: Integer;
begin
  I := 0;
  DoWindStack(I);
end;

begin
  try
    //System.ReleaseZeroPage - did not help...
    munmap(nil, High(Word) - 4096);

    //this work
    GetStackTrace(1);

    //this works because the stack is wound
    WindStackTrace(10);

    //this does not work:
    //  there is not so many entries in the stack?
    //  or stack base is not initialized propery?
    //  or stack pointers chain is broken?
    GetStackTrace(10);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

:00007FFFF79B2CCB ??
:00007FFFF79B4668 _Unwind_Backtrace
:00007FFFF76EFB4F backtrace
Test2.GetStackTrace(0)
Test2.initialization