Przeglądaj źródła

-gc or {$CHECKPOINTER ON} requires heaptrc unit loading even for units

git-svn-id: trunk@34261 -
pierre 9 lat temu
rodzic
commit
3a9f2f55f4
1 zmienionych plików z 3 dodań i 1 usunięć
  1. 3 1
      compiler/pmodules.pas

+ 3 - 1
compiler/pmodules.pas

@@ -349,7 +349,9 @@ implementation
                AddUnit('fpextres')
                AddUnit('fpextres')
              else
              else
                AddUnit('fpintres');
                AddUnit('fpintres');
-         end;
+         end
+        else if (cs_checkpointer in current_settings.localswitches) then
+          AddUnit('heaptrc');
         { Objpas unit? }
         { Objpas unit? }
         if m_objpas in current_settings.modeswitches then
         if m_objpas in current_settings.modeswitches then
           AddUnit('objpas');
           AddUnit('objpas');