borlndmm.dpr.svn-base

Nexus is a Memory Manager for Delphi 7. Its usefull for all application what is work with large amou

{##############################################################################}
{# NexusMM: borlndmm.dpr 2.00                                                 #}
{# NexusDB Memory Manager: borlndmm.dpr 3.04                                  #}
{# Copyright (c) Nexus Database Systems Pty. Ltd. 2003-2005                   #}
{# All rights reserved.                                                       #}
{##############################################################################}
{# NexusMM: replacement for borlands ShareMem dll                             #}
{##############################################################################}

{$I nxDefine.inc}

library borlndmm;

uses
  nxReplacementMemoryManager,
  nxReplacementMove,
  nxllMemoryManager;

{$R *.RES}

function SysGetMem(Size: Integer): Pointer;
begin
  Result := _nxMemoryManager.GetMem(Size);
end;

function SysFreeMem(P: Pointer): Integer;
begin
  Result := _nxMemoryManager.FreeMem(p);
end;

function SysReallocMem(P: Pointer; Size: Integer): Pointer;
begin
  Result := _nxMemoryManager.ReallocMem(p, Size);
end;

function GetHeapStatus: THeapStatus;
begin
  Result := nxGetHeapStatus;
end;

function GetAllocMemCount: Integer;
begin
  Result := 0;
end;

function GetAllocMemSize: Integer;
begin
  Result := 0;
end;

procedure DumpBlocks;
begin
end;

function GetMemory(Size: Integer): Pointer; cdecl;
begin
  Result := _nxMemoryManager.GetMem(Size);
end;

function FreeMemory(P: Pointer): Integer; cdecl;
begin
  Result := _nxMemoryManager.FreeMem(p);
end;

function ReallocMemory(P: Pointer; Size: Integer): Pointer; cdecl;
begin
  Result := _nxMemoryManager.ReallocMem(p, Size);
end;

//econs4 BCB support
procedure HeapAddRef; cdecl;
begin
  nxllMemoryManager.nxHeapAddRef;
end;

//econs4 BCB support
procedure HeapRelease; cdecl;
begin
  nxllMemoryManager.nxHeapRelease;
end;

exports
  HeapAddRef name '@Borlndmm@HeapAddRef$qqrv',  //econs4 BCB support
  HeapRelease name '@Borlndmm@HeapRelease$qqrv',  //econs4 BCB support
  SysGetMem name '@Borlndmm@SysGetMem$qqri',
  SysFreeMem name '@Borlndmm@SysFreeMem$qqrpv',
  SysReallocMem name '@Borlndmm@SysReallocMem$qqrpvi',
  GetHeapStatus,
  GetAllocMemCount,
  GetAllocMemSize,
  DumpBlocks,
  GetMemory,
  FreeMemory,
  ReallocMemory;

begin
end.