paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-12 21:58:19 +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

8
compiler/ppheap.pas
View File

@ -52,7 +52,10 @@ unit ppheap;
procedure pp_heap_init; procedure pp_heap_init;
begin begin
if not pp_heap_inited then if not pp_heap_inited then
begin
setheaptraceoutput('heap.log');
SetExtraInfo(12,ppextra_info); SetExtraInfo(12,ppextra_info);
end;
pp_heap_inited:=true; pp_heap_inited:=true;
end; end;
@ -62,7 +65,10 @@ unit ppheap;
{ {
$Log$ $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 * ppheap init code can be called before any getmem
} }