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

* heaptrc output to heap.log file

Browse Source
This commit is contained in:
pierre 1999-05-17 15:09:28 +00:00
parent 75fab3d80b
commit 6dac09b0e0
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ppheap.pas
View File

@ -52,7 +52,10 @@ unit ppheap;
procedure pp_heap_init;
begin
if not pp_heap_inited then
SetExtraInfo(12,ppextra_info);
begin
setheaptraceoutput('heap.log');
SetExtraInfo(12,ppextra_info);
end;
pp_heap_inited:=true;
end;
@ -62,7 +65,10 @@ unit ppheap;
{
$Log$
Revision 1.5 1999-01-26 11:32:13 pierre
Revision 1.6 1999-05-17 15:09:28 pierre
* heaptrc output to heap.log file
Revision 1.5 1999/01/26 11:32:13 pierre
* ppheap init code can be called before any getmem
}