paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* initialize/finalize critical sections in heaptrace properly

Browse Source 
git-svn-id: trunk@7419 -
This commit is contained in:
micha 2007-05-22 15:34:46 +00:00
parent 2b672a5525
commit e989730f34
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/heaptrc.pp
View File

@ -1111,16 +1111,21 @@ begin
error_in_heap := false;
inside_trace_getmem := false;
EntryMemUsed := SysGetFPCHeapStatus.CurrHeapUsed;
if main_relo_todolist <> nil then
initcriticalsection(heap_free_todo.lock);
end;
procedure TraceRelocateHeap;
begin
main_relo_todolist := @heap_free_todo;
initcriticalsection(main_relo_todolist^.lock);
end;
procedure TraceExitThread;
begin
finish_heap_free_todo_list;
if main_relo_todolist <> nil then
donecriticalsection(heap_free_todo.lock);
if not error_in_heap then
Dumpheap;
end;
@ -1195,6 +1200,7 @@ procedure TraceInit;
begin
MakeCRC32Tbl;
main_orig_todolist := @heap_free_todo;
main_relo_todolist := nil;
TraceInitThread;
SetMemoryManager(TraceManager);
useownfile:=false;