浏览代码

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