From 9f22623459866915d8769bd2e6cd9c8a75357c6e Mon Sep 17 00:00:00 2001
From: Marcus Sackrow <alb42@web.de>
Date: Sun, 13 Feb 2022 00:02:25 +0100
Subject: [PATCH] Amiga: Fix for unable to type in FV applications for
 Amiga-systems

---
 packages/fv/src/drivers.inc                    | 2 --
 packages/rtl-console/src/amicommon/keyboard.pp | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/packages/fv/src/drivers.inc b/packages/fv/src/drivers.inc
index 5a8fa1deab..d6feb12aff 100644
--- a/packages/fv/src/drivers.inc
+++ b/packages/fv/src/drivers.inc
@@ -1289,10 +1289,8 @@ begin
        end;
      Event.What:=evKeyDown;
      Event.KeyCode:=keycode;
-{$ifdef ENDIAN_LITTLE}
      Event.CharCode:=chr(keycode and $ff);
      Event.ScanCode:=keycode shr 8;
-{$endif ENDIAN_LITTLE}
      Event.UnicodeChar:=key.UnicodeChar;
      Event.KeyShift:=ConvertEnhancedToLegacyShiftState(key.ShiftState);
    end
diff --git a/packages/rtl-console/src/amicommon/keyboard.pp b/packages/rtl-console/src/amicommon/keyboard.pp
index ae11ef392d..5e0facab90 100644
--- a/packages/rtl-console/src/amicommon/keyboard.pp
+++ b/packages/rtl-console/src/amicommon/keyboard.pp
@@ -470,7 +470,7 @@ begin
           KeyCode := Ord(Buff[0]);
           KeySet^.KeyCode := Ord(Buff[0]);         // if maprawkey does not work it still is 0
           KeySet^.ShiftState := LastShiftState;    // shift state set before the case
-          KeySet^.Flags := 0;
+          KeySet^.Flags := kbPhys;
           if keyup then                            // we do not need key up events up to now
           begin
             KeySet^.Flags := KeySet^.Flags or kbReleased; // kbReleased does work but make strange effects