Преглед на файлове

* added THandle() typecast around feInvalidHandle value (-1)
for OS'es where THandle is an unsigned type

git-svn-id: trunk@6322 -

Jonas Maebe преди 18 години
родител
ревизия
ccbee142bc
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      rtl/objpas/sysutils/filutilh.inc

+ 1 - 1
rtl/objpas/sysutils/filutilh.inc

@@ -69,7 +69,7 @@ Const
   fsFromEnd       = 2;
 
   { File errors }
-  feInvalidHandle : THandle = -1;  //return value on FileOpen error
+  feInvalidHandle : THandle = THandle(-1);  //return value on FileOpen error
 
 Function FileOpen (Const FileName : string; Mode : Integer) : THandle;
 Function FileCreate (Const FileName : String) : THandle;