diff --git a/tests/test/units/sysutils/tfile2.pp b/tests/test/units/sysutils/tfile2.pp index 1e2e978f52..26c1dfe416 100644 --- a/tests/test/units/sysutils/tfile2.pp +++ b/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+}