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

* TinyHeapBlocks renamed FreeList for TP7 compatibility reasons (and it'll be

Browse Source 
moved to the interface part of the system unit as soon as the tiny heap's free
  list becomes TP7 compatible)

git-svn-id: trunk@28607 -
This commit is contained in:
nickysn 2014-09-06 14:56:04 +00:00
parent 6c4833ab6b
commit a4d71348dd
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/inc/tinyheap.inc
View File

@ -56,7 +56,7 @@
TinyHeapAllocGranularity = sizeof(TTinyHeapBlock);
var
TinyHeapBlocks: PTinyHeapBlock = nil;
FreeList: PTinyHeapBlock = nil;
function EncodeTinyHeapFreeBlockSize(Size: PtrUInt): TTinyHeapFreeBlockSize; inline;
begin
@ -94,7 +94,7 @@
{$endif DEBUG_TINY_HEAP}
AllocSize := align(size+sizeof(TTinyHeapMemBlockSize), TinyHeapAllocGranularity);
p := TinyHeapBlocks;
p := FreeList;
prev := nil;
while assigned(p) and (DecodeTinyHeapFreeBlockSize(p^.Size) < AllocSize) do
begin
@ -120,14 +120,14 @@
p2^.Next := p^.Next;
p2^.Size := EncodeTinyHeapFreeBlockSize(RestSize);
if prev = nil then
TinyHeapBlocks := p2
FreeList := p2
else
prev^.next := p2;
end
else
begin
if prev = nil then
TinyHeapBlocks := p^.Next
FreeList := p^.Next
else
prev^.next := p^.next;
end;
@ -170,15 +170,15 @@
concatenated := false;
b := addr;
b^.Next := TinyHeapBlocks;
b^.Next := FreeList;
b^.Size := EncodeTinyHeapFreeBlockSize(Size);
EndAddr := pointer(TTinyHeapPointerArithmeticType(addr)+size);
if TinyHeapBlocks = nil then
TinyHeapBlocks := b
if FreeList = nil then
FreeList := b
else
begin
p := TinyHeapBlocks;
p := FreeList;
prev := nil;
while assigned(p) do
@ -188,7 +188,7 @@
addr:=p;
size:=DecodeTinyHeapFreeBlockSize(p^.size)+size;
if prev = nil then
TinyHeapBlocks:=p^.next
FreeList:=p^.next
else
prev^.next:=p^.next;
concatenated:=true;
@ -198,7 +198,7 @@
begin
size:=DecodeTinyHeapFreeBlockSize(p^.size)+size;
if prev = nil then
TinyHeapBlocks:=p^.next
FreeList:=p^.next
else
prev^.next:=p^.next;
concatenated:=true;
@ -211,7 +211,7 @@
if not concatenated then
begin
p := TinyHeapBlocks;
p := FreeList;
prev := nil;
while assigned(p) and (TTinyHeapPointerArithmeticType(p) < TTinyHeapPointerArithmeticType(b)) do
@ -226,7 +226,7 @@
prev^.Next := b;
end
else
TinyHeapBlocks := b;
FreeList := b;
end;
end;
until not concatenated;