0

我正在尝试查找并修复我的应用程序中存在的内存泄漏。我正在试用的内存分析工具 - C++ Memory Validator - 显示大约每 5 分钟分配 1,310,706 个字节。这些分配的调用堆栈可以追溯到我认为是用 pascal 编写的 Embarcadero 内存管理器。有问题的功能是：

{Allocates a new sequential feed medium block pool and immediately splits off a
 block of the requested size. The block size must be a multiple of 16 and
 medium blocks must be locked.}
function AllocNewSequentialFeedMediumPool(AFirstBlockSize: Cardinal): Pointer;
var
  LOldFirstMediumBlockPool: PMediumBlockPoolHeader;
  LNewPool: Pointer;
begin
  {Bin the current sequential feed remainder}
  BinMediumSequentialFeedRemainder;
  {Allocate a new sequential feed block pool}
  LNewPool := VirtualAlloc(nil, MediumBlockPoolSize, MEM_COMMIT, PAGE_READWRITE);
  if LNewPool <> nil then
  begin
    {Insert this block pool into the list of block pools}
    LOldFirstMediumBlockPool := MediumBlockPoolsCircularList.NextMediumBlockPoolHeader;
    PMediumBlockPoolHeader(LNewPool).PreviousMediumBlockPoolHeader := @MediumBlockPoolsCircularList;
    MediumBlockPoolsCircularList.NextMediumBlockPoolHeader := LNewPool;
    PMediumBlockPoolHeader(LNewPool).NextMediumBlockPoolHeader := LOldFirstMediumBlockPool;
    LOldFirstMediumBlockPool.PreviousMediumBlockPoolHeader := LNewPool;
    {Store the sequential feed pool trailer}
    PNativeUInt(PByte(LNewPool) + MediumBlockPoolSize - BlockHeaderSize)^ := IsMediumBlockFlag;
    {Get the number of bytes still available}
    MediumSequentialFeedBytesLeft := (MediumBlockPoolSize - MediumBlockPoolHeaderSize) - AFirstBlockSize;
    {Get the result}
    Result := Pointer(PByte(LNewPool) + MediumBlockPoolSize - AFirstBlockSize);
    LastSequentiallyFedMediumBlock := Result;
    {Store the block header}
    PNativeUInt(PByte(Result) - BlockHeaderSize)^ := AFirstBlockSize or IsMediumBlockFlag;
  end
  else
  begin
    {Out of memory}
    MediumSequentialFeedBytesLeft := 0;
    Result := nil;
  end;
end;

请注意，变量 MediumBlockPoolSize 是一个常量，它是泄漏的确切大小。

我认为正在发生的事情是，当我的应用程序泄漏内存时，它会分配一些东西，此时我们从可用内存池中请求一个新的内存块（1.3MB），我认为这大约会发生5 分钟。但是，这并不能准确地告诉我泄漏的来源。有什么方法可以更好地查明泄漏源吗？

我已经浏览了代码并确保所有新闻都有删除，并且没有指针被重新分配而不被首先删除等。

下面是分配内存块时的调用树。请注意，如果我在代码中注释掉此调用树，则该块将出现在我的代码中的不同位置，依此类推。

调用树

谢谢。

4

1 回答 1

1

Delphi/C++Builder RTL 默认使用（精简版）FastMM 内存管理器。FastMM 在存储桶中分配内存，并将释放的内存重新用于将来的分配，而不是将其返回给操作系统。在应用程序终止之前，内存不会返回给操作系统。

这不是真正的泄漏，但您的验证器不知道，因为它不知道 RTL 的内存管理器在运行时实际使用分配的内存（这与您不能使用 Windows 任务管理器诊断的原因相同）泄漏，要么）。

如果您想追踪真正的泄漏，请安装完整版 FastMM 并使用其内置的泄漏检测器功能。只有在运行时使用的实际内存管理器知道内存是如何使用的，并且可以确定什么构成真正的泄漏。

于 2018-03-16T19:09:07.143 回答