paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 16:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also initialise locgrowheapsizesmall in InitHeapThread, should fix crashes

Browse Source 
on Windows after r15618 (not sure why things worked fine elsewhere)

git-svn-id: trunk@15688 -
This commit is contained in:
Jonas Maebe 2010-08-02 14:08:21 +00:00
parent 281f0f2a8c
commit 56f8b88125
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/heap.inc
View File

@ -1467,6 +1467,9 @@ begin
end; end;
loc_freelists := @freelists; loc_freelists := @freelists;
fillchar(loc_freelists^,sizeof(tfreelists),0); fillchar(loc_freelists^,sizeof(tfreelists),0);
{ initialise the local blocksize for allocating oschunks for fixed
freelists with the default starting value }
loc_freelists^.locgrowheapsizesmall:=growheapsizesmall;
{$ifdef DUMP_MEM_USAGE} {$ifdef DUMP_MEM_USAGE}
fillchar(sizeusage,sizeof(sizeusage),0); fillchar(sizeusage,sizeof(sizeusage),0);
fillchar(maxsizeusage,sizeof(sizeusage),0); fillchar(maxsizeusage,sizeof(sizeusage),0);