mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 07:19:26 +02:00
375f83c874
* moved console io on embedded systems into a seperate unit, this unit might setup input/output e.g. to be redirected to a serial port * cleanup of the embedded system unit git-svn-id: trunk@19168 -
103 lines
3.4 KiB
PHP
103 lines
3.4 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 by the Free Pascal development team
|
|
|
|
Heap manager interface section
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
{ Memorymanager }
|
|
type
|
|
TFPCHeapStatus = record
|
|
MaxHeapSize,
|
|
MaxHeapUsed,
|
|
CurrHeapSize,
|
|
CurrHeapUsed,
|
|
CurrHeapFree : ptruint;
|
|
end;
|
|
THeapStatus = record
|
|
TotalAddrSpace: Cardinal;
|
|
TotalUncommitted: Cardinal;
|
|
TotalCommitted: Cardinal;
|
|
TotalAllocated: Cardinal;
|
|
TotalFree: Cardinal;
|
|
FreeSmall: Cardinal;
|
|
FreeBig: Cardinal;
|
|
Unused: Cardinal;
|
|
Overhead: Cardinal;
|
|
HeapErrorCode: Cardinal;
|
|
end;
|
|
|
|
PMemoryManager = ^TMemoryManager;
|
|
TMemoryManager = record
|
|
NeedLock : boolean; // Obsolete
|
|
Getmem : Function(Size:ptruint):Pointer;
|
|
Freemem : Function(p:pointer):ptruint;
|
|
FreememSize : Function(p:pointer;Size:ptruint):ptruint;
|
|
AllocMem : Function(Size:ptruint):Pointer;
|
|
ReAllocMem : Function(var p:pointer;Size:ptruint):Pointer;
|
|
MemSize : function(p:pointer):ptruint;
|
|
InitThread : procedure;
|
|
DoneThread : procedure;
|
|
RelocateHeap : procedure;
|
|
GetHeapStatus : function :THeapStatus;
|
|
GetFPCHeapStatus : function :TFPCHeapStatus;
|
|
end;
|
|
|
|
procedure GetMemoryManager(var MemMgr: TMemoryManager);
|
|
procedure SetMemoryManager(const MemMgr: TMemoryManager);
|
|
function IsMemoryManagerSet: Boolean;
|
|
|
|
{ Variables }
|
|
const
|
|
MaxKeptOSChunks: DWord = 4; { if more than MaxKeptOSChunks are free, the heap manager will release
|
|
chunks back to the OS }
|
|
growheapsizesmall : ptruint=32*1024; { fixed-size small blocks will grow with 32k }
|
|
growheapsize1 : ptruint=256*1024; { < 256k will grow with 256k }
|
|
growheapsize2 : ptruint=1024*1024; { > 256k will grow with 1m }
|
|
var
|
|
ReturnNilIfGrowHeapFails : boolean;
|
|
|
|
{$ifndef HAS_MEMORYMANAGER}
|
|
{ Default MemoryManager functions }
|
|
Function SysGetmem(Size:ptruint):Pointer;
|
|
Function SysFreemem(p:pointer):ptruint;
|
|
Function SysFreememSize(p:pointer;Size:ptruint):ptruint;
|
|
Function SysMemSize(p:pointer):ptruint;
|
|
Function SysAllocMem(size:ptruint):Pointer;
|
|
function SysTryResizeMem(var p:pointer;size:ptruint):boolean;
|
|
Function SysReAllocMem(var p:pointer;size:ptruint):Pointer;
|
|
function SysGetHeapStatus:THeapStatus;
|
|
function SysGetFPCHeapStatus:TFPCHeapStatus;
|
|
{$endif HAS_MEMORYMANAGER}
|
|
|
|
{ Tp7 functions }
|
|
Procedure Getmem(Out p:pointer;Size:ptruint);
|
|
Procedure Getmemory(Out p:pointer;Size:ptruint);
|
|
Procedure Freemem(p:pointer;Size:ptruint);
|
|
Procedure Freememory(p:pointer;Size:ptruint);
|
|
|
|
{ FPC additions }
|
|
Function MemSize(p:pointer):ptruint;
|
|
|
|
{ Delphi functions }
|
|
function GetMem(size:ptruint):pointer;
|
|
function GetMemory(size:ptruint):pointer; cdecl;
|
|
function Freemem(p:pointer):ptruint;
|
|
function Freememory(p:pointer):ptruint; cdecl;
|
|
function AllocMem(Size:ptruint):pointer;
|
|
function ReAllocMem(var p:pointer;Size:ptruint):pointer;
|
|
function ReAllocMemory(p:pointer;Size:ptruint):pointer; cdecl;
|
|
function GetHeapStatus:THeapStatus;
|
|
function GetFPCHeapStatus:TFPCHeapStatus;
|
|
|
|
{ Bootstrapping }
|
|
|