Sfoglia il codice sorgente

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

git-svn-id: trunk@33460 -
Tomas Hajny 9 anni fa
parent
commit
92d045c483
1 ha cambiato i file con 3 aggiunte e 3 eliminazioni
  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);