From 7e74e926bba5680b3e9f06616c5b9b3ed7c92f85 Mon Sep 17 00:00:00 2001 From: fredvs Date: Thu, 16 Apr 2020 01:12:28 +0200 Subject: [PATCH] Fixed in msesystypes.pas threadty declaration on Windows 64 bit if fpc >= 3.2.0. --- lib/common/kernel/msesystypes.pas | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/lib/common/kernel/msesystypes.pas b/lib/common/kernel/msesystypes.pas index b66637573..1ffabaae2 100644 --- a/lib/common/kernel/msesystypes.pas +++ b/lib/common/kernel/msesystypes.pas @@ -16,7 +16,17 @@ interface {$ifndef FPC} tlibhandle = thandle; {$endif} - threadty = ptruint; + + {$if defined(FPC) and (fpc_fullversion >= 030200)} + {$if defined(cpu64) and defined(mswindows)} + threadty = Longword; + {$else} + threadty = ptruint; + {$endif} + {$else} + threadty = ptruint; + {$endif} + procidty = ptrint; pprocidty = ^procidty; procidarty = array of procidty; //same item size as winidarty!