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

* fixed crash in tracereallocmem statictics

Browse Source
This commit is contained in:
peter 2005-04-04 15:16:26 +00:00
parent e6d7b34a55
commit aef9ac69a2
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/inc/heaptrc.pp
View File

@ -590,6 +590,7 @@ var
bp : pointer;
pl : pdword;
pp : pheap_mem_info;
oldsize,
oldextrasize,
oldexactsize : ptrint;
old_fill_extra_info_proc : tfillextrainfoproc;
@ -627,6 +628,7 @@ begin
exit;
end;
{ save info }
oldsize:=pp^.size;
oldextrasize:=pp^.extra_info_size;
oldexactsize:=pp^.exact_info_size;
if pp^.extra_info_size>0 then
@ -661,12 +663,6 @@ begin
traceReAllocMem := newp;
exit;
end;
{ adjust like a freemem and then a getmem, so you get correct
results in the summary display }
inc(freemem_size,pp^.size);
inc(freemem8_size,((pp^.size+7) div 8)*8);
inc(getmem_size,size);
inc(getmem8_size,((size+7) div 8)*8);
{ Recreate the info block }
pp^.sig:=$DEADBEEF;
pp^.size:=size;
@ -690,6 +686,12 @@ begin
pl:=pointer(pp)+allocsize-pp^.extra_info_size-sizeof(ptrint);
pl^:=$DEADBEEF;
end;
{ adjust like a freemem and then a getmem, so you get correct
results in the summary display }
inc(freemem_size,oldsize);
inc(freemem8_size,((oldsize+7) div 8)*8);
inc(getmem_size,size);
inc(getmem8_size,((size+7) div 8)*8);
{ generate new backtrace }
bp:=get_caller_frame(get_frame);
for i:=1 to tracesize do
@ -1195,7 +1197,10 @@ finalization
end.
{
$Log$
Revision 1.43 2005-03-25 22:53:39 jonas
Revision 1.44 2005-04-04 15:16:26 peter
* fixed crash in tracereallocmem statictics
Revision 1.43 2005/03/25 22:53:39 jonas
* fixed several warnings and notes about unused variables (mainly) or
uninitialised use of variables/function results (a few)