diff --git a/components/fpdebug/app/fpd/fpd.lpi b/components/fpdebug/app/fpd/fpd.lpi
index f95709ba06..8e3e2e3979 100644
--- a/components/fpdebug/app/fpd/fpd.lpi
+++ b/components/fpdebug/app/fpd/fpd.lpi
@@ -31,15 +31,13 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
+        <CommandLineParams Value="c:\tmp\lazdebugtest\project1.exe"/>
       </local>
     </RunParams>
-    <RequiredPackages Count="2">
+    <RequiredPackages Count="1">
       <Item1>
         <PackageName Value="fpdebug"/>
       </Item1>
-      <Item2>
-        <PackageName Value="LCLBase"/>
-      </Item2>
     </RequiredPackages>
     <Units Count="2">
       <Unit0>
@@ -63,6 +61,10 @@
       <IncludeFiles Value="$(ProjOutDir)"/>
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
+    <CodeGeneration>
+      <TargetCPU Value="x86_64"/>
+      <TargetOS Value="win64"/>
+    </CodeGeneration>
     <Linking>
       <Options>
         <PassLinkerOptions Value="True"/>
diff --git a/components/fpdebug/app/fpd/fpdcommand.pas b/components/fpdebug/app/fpd/fpdcommand.pas
index 40ddd72b31..cc6aab02ee 100644
--- a/components/fpdebug/app/fpd/fpdcommand.pas
+++ b/components/fpdebug/app/fpd/fpdcommand.pas
@@ -661,7 +661,7 @@ begin
   end;
 
   WriteLN('Callstack:');
-  ACallStack := GController.CurrentProcess.MainThread.CreateCallStackEntryList;
+  //ACallStack := GController.CurrentProcess.MainThread.CreateCallStackEntryList;
   try
     for i := 0 to ACallStack.Count-1 do
     begin
diff --git a/components/fpdebug/fpdbginfo.pas b/components/fpdebug/fpdbginfo.pas
index 0c5726982f..dccd01cbb4 100644
--- a/components/fpdebug/fpdbginfo.pas
+++ b/components/fpdebug/fpdbginfo.pas
@@ -211,8 +211,8 @@ type
     property Member[AIndex: Int64]: TFpDbgValue read GetMember;
     property MemberByName[AIndex: String]: TFpDbgValue read GetMemberByName; // Includes inheritance
     //  For Arrays (TODO pointers) only, the values stored in the array
-    property MemberCountEx[AIndex: Array of Int64]: Integer read GetMemberCountEx;
-    property MemberEx[AIndex: Array of Int64]: TFpDbgValue read GetMemberEx;
+    //property MemberCountEx[AIndex: Array of Int64]: Integer read GetMemberCountEx;
+    //property MemberEx[AIndex: Array of Int64]: TFpDbgValue read GetMemberEx;
     property IndexTypeCount: Integer read GetIndexTypeCount;
     property IndexType[AIndex: Integer]: TFpDbgSymbol read GetIndexType;
 
diff --git a/components/fpdebug/fppascalbuilder.pas b/components/fpdebug/fppascalbuilder.pas
index 05e05263d0..00bebd14b0 100644
--- a/components/fpdebug/fppascalbuilder.pas
+++ b/components/fpdebug/fppascalbuilder.pas
@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, DbgIntfBaseTypes, DbgIntfDebuggerBase, FpDbgInfo, FpdMemoryTools,
-  FpErrorMessages, LazLoggerBase, LCLIntf;
+  FpErrorMessages, LazLoggerBase;
 
 type
   TTypeNameFlag = (