|
@@ -54,7 +54,11 @@ unit ppheap;
|
|
|
if not pp_heap_inited then
|
|
if not pp_heap_inited then
|
|
|
begin
|
|
begin
|
|
|
setheaptraceoutput('heap.log');
|
|
setheaptraceoutput('heap.log');
|
|
|
|
|
+{$ifndef TP}
|
|
|
|
|
+ SetExtraInfo(12,@ppextra_info);
|
|
|
|
|
+{$else TP}
|
|
|
SetExtraInfo(12,ppextra_info);
|
|
SetExtraInfo(12,ppextra_info);
|
|
|
|
|
+{$endif TP}
|
|
|
end;
|
|
end;
|
|
|
pp_heap_inited:=true;
|
|
pp_heap_inited:=true;
|
|
|
end;
|
|
end;
|
|
@@ -65,7 +69,10 @@ unit ppheap;
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.6 1999-05-17 15:09:28 pierre
|
|
|
|
|
|
|
+ Revision 1.7 1999-06-08 15:26:49 pierre
|
|
|
|
|
+ * fix to get it self compiled
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.6 1999/05/17 15:09:28 pierre
|
|
|
* heaptrc output to heap.log file
|
|
* heaptrc output to heap.log file
|
|
|
|
|
|
|
|
Revision 1.5 1999/01/26 11:32:13 pierre
|
|
Revision 1.5 1999/01/26 11:32:13 pierre
|
pierre