paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-19 18:11:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed missing var

Browse Source
This commit is contained in:
peter 1999-09-10 17:13:41 +00:00
parent 9ef54daf28
commit 12e807b5bc
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/heaptrc.pp
View File

@ -388,6 +388,9 @@ procedure TraceFreeMem(var p:pointer;size:longint);
var i,bp, ppsize : longint;
pp : pheap_mem_info;
{$ifdef EXTRA}
pp2 : pheap_mem_info;
{$endif}
begin
inc(freemem_size,size);
inc(freemem8_size,((size+7) div 8)*8);
@ -758,7 +761,10 @@ finalization
end.
{
$Log$
Revision 1.22 1999-09-08 16:14:41 peter
Revision 1.23 1999-09-10 17:13:41 peter
* fixed missing var
Revision 1.22 1999/09/08 16:14:41 peter
* pointer fixes
Revision 1.21 1999/08/18 12:03:16 peter