paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@33460 -
This commit is contained in:
Tomas Hajny 2016-04-10 01:26:30 +00:00
parent d58d71666d
commit 92d045c483
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win/syswin.inc
View File

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