paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 04:32:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reactivated heap management for GBA

Browse Source 
git-svn-id: trunk@4529 -
This commit is contained in:
Legolas 2006-09-01 17:54:59 +00:00
parent ae43d8658a
commit 19d597f425
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/heap.inc
View File

@ -734,7 +734,6 @@ end;
Grow Heap
*****************************************************************************}
{$ifndef gba}
function alloc_oschunk(chunkindex, size: ptrint):pointer;
var
pmcfirst,
@ -862,16 +861,6 @@ begin
result:=pmcv;
end;
end;
{$else gba}
function alloc_oschunk(chunkindex, size: ptrint):pointer;
begin
alloc_oschunk := nil;
if not ReturnNilIfGrowHeapFails then
runerror(203);
end;
{$endif gba}
{*****************************************************************************
SysGetMem
@ -1300,7 +1289,7 @@ end;
{*****************************************************************************
InitHeap
*****************************************************************************}
{$ifndef gba}
{ This function will initialize the Heap manager and need to be called from
the initialization of the system unit }
procedure InitHeap;
@ -1312,7 +1301,7 @@ begin
freeoslistcount := 0;
fillchar(internal_status,sizeof(internal_status),0);
end;
{$endif gba}
procedure FinalizeHeap;
var