Browse Source

* GetStdHandle returns a THandle (use of longint was not 64-bit safe)

git-svn-id: trunk@33460 -
Tomas Hajny 9 years ago
parent
commit
92d045c483
1 changed files with 3 additions and 3 deletions
  1. 3 3
      rtl/win/syswin.inc

+ 3 - 3
rtl/win/syswin.inc

@@ -502,11 +502,11 @@ begin
     not for DLL entry code, as the standard handles might
     have been redirected }
   if StdInputHandle=0 then
-    StdInputHandle:=longint(GetStdHandle(cardinal(STD_INPUT_HANDLE)));
+    StdInputHandle:=THandle(GetStdHandle(cardinal(STD_INPUT_HANDLE)));
   if StdOutputHandle=0 then
-    StdOutputHandle:=longint(GetStdHandle(cardinal(STD_OUTPUT_HANDLE)));
+    StdOutputHandle:=THandle(GetStdHandle(cardinal(STD_OUTPUT_HANDLE)));
   if StdErrorHandle=0 then
-    StdErrorHandle:=longint(GetStdHandle(cardinal(STD_ERROR_HANDLE)));
+    StdErrorHandle:=THandle(GetStdHandle(cardinal(STD_ERROR_HANDLE)));
   if not IsConsole then
    begin
      AssignError(stderr);