Forráskód Böngészése

Use $checkpointer off to avoid calls to CheckPointer function if -gc option is used

git-svn-id: trunk@34384 -
pierre 9 éve
szülő
commit
1612138071
1 módosított fájl, 6 hozzáadás és 0 törlés
  1. 6 0
      rtl/inc/exeinfo.pp

+ 6 - 0
rtl/inc/exeinfo.pp

@@ -17,6 +17,12 @@
   dependent on objpas unit.
 }
 
+{ Disable checks of pointers explictly,
+  as we are dealing here with special pointer that
+  might be seen as invalid by heaptrc unit CheckPointer function }
+
+{$checkpointer off}
+
 {$mode objfpc}
 
 unit exeinfo;