alan008 / sapmm Goto Github PK

  ...
  // Next asm block is an inline for: tmm := GetThreadMM;
  asm
    mov eax,TLSOffset
    mov ecx,fs:[$00000018]
    mov eax,[ecx+eax]
    mov tmm, eax
  end;

  // Create thread's MM if needed.
  if tmm = nil then
  begin
    tmm := CreateThreadMM;
  end
  else if mm = tmm then
  begin
    // Realloc inside one thread MM
    ThreadReallocMem(mm, p, size);
    Result := p;
    Exit;
  end;

  // Interthread realloc
  {$IFDEF SAP_STAT}
  InterlockedIncrement(tmm.no_inter_realloc);
  {$ENDIF SAP_STAT}
  Result := InterThreadRealloc(tmm, mm, p, size);
end;