فهرست منبع

* 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;