From 51996d628079dbbf5f6aa74d55674a1ba1bad2d3 Mon Sep 17 00:00:00 2001
From: marcus <marcus@idefix.freepascal.org>
Date: Sat, 26 Jun 2021 08:46:38 +0000
Subject: [PATCH] Amiga video unit: fixed not initialized TInputEvent field,
 2nd try, now the deadkeys actually work as they should

git-svn-id: trunk@49562 -
---
 packages/rtl-console/src/amicommon/keyboard.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl-console/src/amicommon/keyboard.pp b/packages/rtl-console/src/amicommon/keyboard.pp
index 65031e36ae..d6c1c4c6e8 100644
--- a/packages/rtl-console/src/amicommon/keyboard.pp
+++ b/packages/rtl-console/src/amicommon/keyboard.pp
@@ -341,7 +341,7 @@ begin
           ie.ie_Code := ICode;
           ie.ie_Qualifier := IQual;
           ie.ie_NextEvent := nil;
-          ie.ie_position.ie_addr := IAddr;
+          ie.ie_position.ie_addr := PPointer(IAddr)^;
           Buff[0] := #0;
           Ret := MapRawKey(@ie, @Buff[0], 1, nil);
           KeyCode := Ord(Buff[0]);