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