paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* merged

Browse Source
This commit is contained in:
peter 1999-07-10 10:33:50 +00:00
parent 02576a8279
commit 16a296c90a
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/heaptrc.pp
View File

@ -677,8 +677,6 @@ const
Getmem : TraceGetMem; Getmem : TraceGetMem;
Freemem : TraceFreeMem Freemem : TraceFreeMem
); );
var
SaveExit : pointer;
procedure TraceExit; procedure TraceExit;
begin begin
@ -752,18 +750,24 @@ Initialization
{$endif EXTRA} {$endif EXTRA}
Heap_at_init:=HeapPtr; Heap_at_init:=HeapPtr;
finalization finalization
TraceExit; TraceExit;
end. end.
{ {
$Log$ $Log$
Revision 1.18 1999-07-09 10:38:10 michael Revision 1.19 1999-07-10 10:33:50 peter
* merged
Revision 1.18 1999/07/09 10:38:10 michael
+ + heaptrc now uses finalize instead of exitproc + + heaptrc now uses finalize instead of exitproc
Revision 1.17 1999/07/05 20:22:08 peter Revision 1.17 1999/07/05 20:22:08 peter
* merged * merged
Revision 1.16.2.1 1999/07/05 20:12:27 peter Revision 1.16.2.3 1999/07/10 10:31:56 peter
* removed warning * removed unused var
Revision 1.16.2.2 1999/07/09 10:44:23 michael
+ Merged finalize
Revision 1.16 1999/05/23 00:07:17 pierre Revision 1.16 1999/05/23 00:07:17 pierre
* support for heap allocated before TraceGetMem is used in * support for heap allocated before TraceGetMem is used in