paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 15:57:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed uninitialized var

Browse Source 
git-svn-id: trunk@2654 -
This commit is contained in:
peter 2006-02-20 11:24:38 +00:00
parent 7f247e9305
commit 4b7f51b0aa
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/heap.inc
View File

@ -983,8 +983,8 @@ var
poc : poschunk;
begin
poc := pmc^.poc;
chunksize:=chunkindex shl blockshift;
chunkindex:=poc^.chunkindex;
chunksize:=chunkindex shl blockshift;
{ statistics }
dec(internal_status.currheapused,chunksize);
hp:=freelists_fixed[chunkindex];