From 3a9f2f55f47eedaf810f206bb168ab0846b8a97e Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 10 Aug 2016 09:44:01 +0000
Subject: [PATCH] -gc or {$CHECKPOINTER ON} requires heaptrc unit loading even
for units
git-svn-id: trunk@34261 -
---
compiler/pmodules.pas | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index 76da696b45..0d6fbbdd93 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -349,7 +349,9 @@ implementation
AddUnit('fpextres')
else
AddUnit('fpintres');
- end;
+ end
+ else if (cs_checkpointer in current_settings.localswitches) then
+ AddUnit('heaptrc');
{ Objpas unit? }
if m_objpas in current_settings.modeswitches then
AddUnit('objpas');