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

Avoid MSDOS Memory Control Block (MCB) chain corruption in RegisterTinyHeapBlock

Browse Source 
git-svn-id: trunk@36340 -
This commit is contained in:
pierre 2017-05-26 06:44:07 +00:00
parent 87e8010f05
commit a16326fa95
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/tinyheap.inc
View File

@ -577,7 +577,7 @@
p:=FreeList; p:=FreeList;
while p^.Next<>HeapPtr do while p^.Next<>HeapPtr do
p:=p^.Next; p:=p^.Next;
PTinyHeapBlock(HeapPtr)^.Next:=AAddress; PTinyHeapBlock(p)^.Next:=AAddress;
end; end;
end end
else else