From 2b4c68ecbe28370845a46ef4049b13561e8c8f42 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Thu, 27 Jun 2019 09:21:49 +0000
Subject: [PATCH]  * hInstance has 64 bits on Win64, avoid cutting it off when
 storing it into SysInstance

git-svn-id: trunk@42294 -
---
 rtl/win64/sysinit.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/win64/sysinit.pp b/rtl/win64/sysinit.pp
index c01b38d3ba..5d396beb8f 100644
--- a/rtl/win64/sysinit.pp
+++ b/rtl/win64/sysinit.pp
@@ -20,7 +20,7 @@ unit sysinit;
   implementation
 
    var
-      SysInstance : LongInt;
+      SysInstance : QWord;
       TlsKeyVar: DWord = $ffffffff;
 
       InitFinalTable : record end; external name 'INITFINAL';