From 27119cad3cbb6c563a9fb145eca62cafe9757fe3 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 20 Jun 2016 15:26:50 +0000
Subject: [PATCH]  Disable range checks explicitly as THandle is unsigned at
 least for win32 OS

git-svn-id: trunk@34009 -
---
 tests/test/units/sysutils/tfile2.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

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+}