소스 검색

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