mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 18:29:13 +02:00
* keep the tiny heap free blocks ordered by start address, instead of size.
Rationale: 1) TP7 compatibility, 2) easier debugging of heap corruption problems git-svn-id: trunk@28518 -
This commit is contained in:
parent
0a2899573a
commit
03a838556f
@ -178,7 +178,7 @@
|
|||||||
p := TinyHeapBlocks;
|
p := TinyHeapBlocks;
|
||||||
prev := nil;
|
prev := nil;
|
||||||
|
|
||||||
while assigned(p) and (p^.Size < size) do
|
while assigned(p) and (TTinyHeapPointerArithmeticType(p) < TTinyHeapPointerArithmeticType(b)) do
|
||||||
begin
|
begin
|
||||||
prev := p;
|
prev := p;
|
||||||
p := p^.Next;
|
p := p^.Next;
|
||||||
|
Loading…
Reference in New Issue
Block a user