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

* while loop replaced with a repeat..until loop in InternalTinyFreeMem

Browse Source 
git-svn-id: trunk@28161 -
This commit is contained in:
nickysn 2014-07-05 09:47:59 +00:00
parent 441e6c6083
commit 4e2cc365d1
1 changed files with 58 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/tinyheap.inc
View File

@ -105,9 +105,7 @@
b, p, prev: PTinyHeapBlock;
concatenated: boolean;
begin
concatenated := true;
while concatenated do
begin
repeat
concatenated := false;
b := addr;
@ -170,7 +168,7 @@
TinyHeapBlocks := b;
end;
end;
end;
until not concatenated;
end;
function SysTinyFreeMem(Addr: Pointer): ptruint;