paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 05:11:37 +01: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; b, p, prev: PTinyHeapBlock;
concatenated: boolean; concatenated: boolean;
begin begin
concatenated := true; repeat
while concatenated do
begin
concatenated := false; concatenated := false;
b := addr; b := addr;
@ -170,7 +168,7 @@
TinyHeapBlocks := b; TinyHeapBlocks := b;
end; end;
end; end;
end; until not concatenated;
end; end;
function SysTinyFreeMem(Addr: Pointer): ptruint; function SysTinyFreeMem(Addr: Pointer): ptruint;