From 6f2b027e511472be397dde845f1703f8f44afe14 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 19 Aug 2019 20:23:31 +0000
Subject: [PATCH]  Avoid range check error for functions returning THandle type
 by using unusedhandle system constant

git-svn-id: trunk@42742 -
---
 rtl/msdos/sysutils.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/msdos/sysutils.pp b/rtl/msdos/sysutils.pp
index b4b323bcb6..da4e92642e 100644
--- a/rtl/msdos/sysutils.pp
+++ b/rtl/msdos/sysutils.pp
@@ -135,7 +135,7 @@ var
 Begin
   e := OpenFile(FileName, result, Mode, faOpen);
   if e <> 0 then
-    result := -1;
+    result := unusedhandle;
 end;
 
 
@@ -145,7 +145,7 @@ var
 begin
   e := OpenFile(FileName, result, ofReadWrite, faCreate or faOpenReplace);
   if e <> 0 then
-    result := -1;
+    result := unusedhandle;
 end;