paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 14:10:32 +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; error_in_heap := false;
inside_trace_getmem := false; inside_trace_getmem := false;
EntryMemUsed := SysGetFPCHeapStatus.CurrHeapUsed; EntryMemUsed := SysGetFPCHeapStatus.CurrHeapUsed;
if main_relo_todolist <> nil then
initcriticalsection(heap_free_todo.lock);
end; end;
procedure TraceRelocateHeap; procedure TraceRelocateHeap;
begin begin
main_relo_todolist := @heap_free_todo; main_relo_todolist := @heap_free_todo;
initcriticalsection(main_relo_todolist^.lock);
end; end;
procedure TraceExitThread; procedure TraceExitThread;
begin begin
finish_heap_free_todo_list; finish_heap_free_todo_list;
if main_relo_todolist <> nil then
donecriticalsection(heap_free_todo.lock);
if not error_in_heap then if not error_in_heap then
Dumpheap; Dumpheap;
end; end;
@ -1195,6 +1200,7 @@ procedure TraceInit;
begin begin
MakeCRC32Tbl; MakeCRC32Tbl;
main_orig_todolist := @heap_free_todo; main_orig_todolist := @heap_free_todo;
main_relo_todolist := nil;
TraceInitThread; TraceInitThread;
SetMemoryManager(TraceManager); SetMemoryManager(TraceManager);
useownfile:=false; useownfile:=false;