浏览代码

* fix range check error

carl 23 年之前
父节点
当前提交
0cfe673d5a
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      rtl/win32/dos.pp

+ 5 - 2
rtl/win32/dos.pp

@@ -397,7 +397,7 @@ begin
    end;
   Proc:=PI.hProcess;
   CloseHandle(PI.hThread);
-  if WaitForSingleObject(Proc, Infinite) <> $ffffffff then
+  if WaitForSingleObject(Proc, dword(Infinite)) <> $ffffffff then
     GetExitCodeProcess(Proc,l)
   else
     l:=-1;
@@ -1011,7 +1011,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.11  2001-11-23 01:35:09  carl
+  Revision 1.12  2002-05-16 19:32:57  carl
+  * fix range check error
+
+  Revision 1.11  2001/11/23 01:35:09  carl
   * Range check error fix
 
   Revision 1.10  2001/11/23 00:36:26  carl