diff options
| author | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-04-10 01:26:30 +0000 |
|---|---|---|
| committer | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-04-10 01:26:30 +0000 |
| commit | 5f14834aa01505c1d3f04077b524b11842901b06 (patch) | |
| tree | 33b5686a7372d3bbaff599c319077a38aa2624eb /rtl/win | |
| parent | 7a3bc87301603123aafbb124719fe934a1d3e5bc (diff) | |
| download | fpc-5f14834aa01505c1d3f04077b524b11842901b06.tar.gz | |
* GetStdHandle returns a THandle (use of longint was not 64-bit safe)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@33460 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/win')
| -rw-r--r-- | rtl/win/syswin.inc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rtl/win/syswin.inc b/rtl/win/syswin.inc index 1d2353972c..9720c4c16f 100644 --- a/rtl/win/syswin.inc +++ b/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); |