From 5d7d828c63d6a302620ce4fa1306ba84f4b53333 Mon Sep 17 00:00:00 2001
From: Sergey Larin <sergy.larin@gmail.com>
Date: Thu, 7 Jan 2021 12:09:04 +0300
Subject: [PATCH] FpDebug: Support for the 4th argument when calling the
 function (Win64) Related to a32ac8e665c437da4eb2a7d1cde295aff6a2bc1b

---
 components/fpdebug/fpdbgwinclasses.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/components/fpdebug/fpdbgwinclasses.pas b/components/fpdebug/fpdbgwinclasses.pas
index d5e2f2d5e2..601f5647f9 100644
--- a/components/fpdebug/fpdbgwinclasses.pas
+++ b/components/fpdebug/fpdbgwinclasses.pas
@@ -576,12 +576,17 @@ begin
         0: Result := RegisterLoc(0); // EAX
         1: Result := RegisterLoc(2); // EDX
         2: Result := RegisterLoc(1); // ECX
+      else
+        Result := UnInitializedLoc;
       end;
     dm64: case AParamIdx of
        -1: Result := RegisterLoc(0); // RAX
         0: Result := RegisterLoc(2); // RCX
         1: Result := RegisterLoc(1); // RDX
         2: Result := RegisterLoc(8); // R8
+        3: Result := RegisterLoc(9); // R9
+      else
+        Result := UnInitializedLoc;
       end;
   end;
 end;