From cb5f540eb9a66760a5fb2ff2207092b85a83770f Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 30 Aug 2016 15:51:56 +0000
Subject: [PATCH]  Fix typo in last commit: to disable TraceManager, call
 SetMemoryManager with saved PrevMemoryManager variable

git-svn-id: trunk@34399 -
---
 rtl/inc/heaptrc.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/heaptrc.pp b/rtl/inc/heaptrc.pp
index 8b559fc517..3e5482d92a 100644
--- a/rtl/inc/heaptrc.pp
+++ b/rtl/inc/heaptrc.pp
@@ -1478,7 +1478,7 @@ begin
        exit;
     end;
   { Disable heaptrc memory manager to avoid problems }
-  GetMemoryManager(PrevMemoryManager);
+  SetMemoryManager(PrevMemoryManager);
   move_heap_info(@orphaned_info, @heap_info);
   dumpheap;
   if heap_info.error_in_heap and (exitcode=0) then