Pārlūkot izejas kodu

Disable range checks explicitly as THandle is unsigned at least for win32 OS

git-svn-id: trunk@34009 -
pierre 9 gadi atpakaļ
vecāks
revīzija
27119cad3c
1 mainītis faili ar 8 papildinājumiem un 0 dzēšanām
  1. 8 0
      tests/test/units/sysutils/tfile2.pp

+ 8 - 0
tests/test/units/sysutils/tfile2.pp

@@ -1,3 +1,11 @@
+{ THandle is unsigned at least for win32 OS,
+  this leads to range check errors when fileopen
+  returns invalid handle.
+  Explicitly disable range checks }
+
+{$R-}
+
+
 {$ifdef fpc}
 {$mode objfpc}
 {$h+}