paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 01:46:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix lock release in heap trace

Browse Source 
git-svn-id: trunk@7782 -
This commit is contained in:
micha 2007-06-23 09:35:47 +00:00
parent 30c6b37c8d
commit a70f5bb51e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/heaptrc.pp
View File

@ -648,6 +648,7 @@ function TraceFreeMemSize(p:pointer;size:ptrint):ptrint;
var
loc_info: pheap_info;
pp: pheap_mem_info;
release_lock: boolean;
begin
if p=nil then
begin
@ -656,11 +657,13 @@ begin
end;
loc_info:=@heap_info;
pp:=pheap_mem_info(p-sizeof(theap_mem_info));
release_lock:=false;
if @loc_info^.heap_free_todo <> pp^.todolist then
begin
if pp^.todolist = main_orig_todolist then
pp^.todolist := main_relo_todolist;
entercriticalsection(todo_lock);
release_lock:=true;
if pp^.todolist = @orphaned_info.heap_free_todo then
begin
loc_info := @orphaned_info;
@ -674,7 +677,7 @@ begin
exit(pp^.size);
end;
end;
TraceFreeMemSize:=InternalFreeMemSize(loc_info,p,pp,size,loc_info = @orphaned_info);
TraceFreeMemSize:=InternalFreeMemSize(loc_info,p,pp,size,release_lock);
end;