madshi.net

Code: Select all

function LogStackTrace64_Workaround(preparedStack: pointer; stackTraceDepth: integer; showRelativeAddrs, showRelativeLines: boolean) : string;
var
  i : integer;
begin
  Result := '';
  for i := 0 to stackTraceDepth - 1 do
  begin
    if TPAPointer(preparedStack)[i] = nil then Exit;
    Result := Result.Insert(Result.Length, StackAddrToStr (TPAPointer(preparedStack)[i], showRelativeAddrs, showRelativeLines) + sLineBreak);
  end;
end;

Code: Select all

// You can call "GetLeakReport" at any time to get a leak report in string
// form. You can decide if you want the leak report to contain callstacks and
// if you want child leaks to be hidden. The reported leaks are *not* cleared.
function GetLeakReport (limitedToCurrentThread: boolean = true; includeCallstacks: boolean = true; hideChildLeaks: boolean = true) : UnicodeString;

// If you call "GetLeakReport" with "includeCallstacks = false", you can
// request the callstack of a specific leak (identified by the allocation
// number).
function GetLeakCallstack (allocationNumber: int64) : UnicodeString;

Code: Select all

  function FastMM_LogStackTrace(preparedStack: pointer; stackTraceDepth: integer; buf: PAnsiChar; hideUglyItems, showRelativeAddrs, showRelativeLines, dumbTrace: boolean) : PAnsiChar;
  var i1 : integer;
      s1 : AnsiString;
      ps : AnsiString;
  begin
    for i1 := 0 to stackTraceDepth - 1 do
      if TPAPointer(preparedStack)[i1] = nil then begin // FIX
        stackTraceDepth := i1;
        break;
      end;
    SetLength(ps, 4 + stackTraceDepth * sizeOf(TPreparedStackItem));
    TPPreparedStack(ps).itemCount := 0;
    for i1 := stackTraceDepth - 1 downto 0 do begin
      TPPreparedStack(ps).items[TPPreparedStack(ps).itemCount].dontKill := true;
      TPPreparedStack(ps).items[TPPreparedStack(ps).itemCount].afterInstr := TPAPointer(preparedStack)[i1];
      inc(TPPreparedStack(ps).itemCount);
    end;
    s1 := AnsiString(#$D#$A +
                     StackTrace(hideUglyItems, showRelativeAddrs, showRelativeLines, nil, nil, nil, true, false, 0, 0,
                                nil, nil, nil, nil, nil, 0, dumbTrace, false, ps, nil, nil, nil, nil, nil, true,
                                True // leak64mode
                     ));
    result := buf;
    Move(pointer(s1)^, result^, Length(s1));
    inc(result, Length(s1));
  end;