소스 검색

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

git-svn-id: trunk@34384 -
pierre 9 년 전
부모
커밋
1612138071
1개의 변경된 파일6개의 추가작업 그리고 0개의 파일을 삭제
  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;