Procházet zdrojové kódy

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

git-svn-id: trunk@36340 -
pierre před 8 roky
rodič
revize
a16326fa95
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      rtl/inc/tinyheap.inc

+ 1 - 1
rtl/inc/tinyheap.inc

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