|
|
@@ -677,8 +677,6 @@ const
|
|
|
Getmem : TraceGetMem;
|
|
|
Freemem : TraceFreeMem
|
|
|
);
|
|
|
-var
|
|
|
- SaveExit : pointer;
|
|
|
|
|
|
procedure TraceExit;
|
|
|
begin
|
|
|
@@ -752,11 +750,14 @@ Initialization
|
|
|
{$endif EXTRA}
|
|
|
Heap_at_init:=HeapPtr;
|
|
|
finalization
|
|
|
- TraceExit;
|
|
|
+ TraceExit;
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.16.2.2 1999-07-09 10:44:23 michael
|
|
|
+ Revision 1.16.2.3 1999-07-10 10:31:56 peter
|
|
|
+ * removed unused var
|
|
|
+
|
|
|
+ Revision 1.16.2.2 1999/07/09 10:44:23 michael
|
|
|
+ Merged finalize
|
|
|
|
|
|
Revision 1.18 1999/07/09 10:38:10 michael
|
peter