paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 03:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

git-svn-id: trunk@45286 -

Browse Source
This commit is contained in:
joost 2014-06-01 16:28:56 +00:00
parent b7f27e1bad
commit 0275eec89b
4 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpdebug/app/fpd/fpd.lpi
View File

@ -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"/>

2
components/fpdebug/app/fpd/fpdcommand.pas
View File

@ -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

4
components/fpdebug/fpdbginfo.pas
View File

@ -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;

2
components/fpdebug/fppascalbuilder.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, DbgIntfBaseTypes, DbgIntfDebuggerBase, FpDbgInfo, FpdMemoryTools,
FpErrorMessages, LazLoggerBase, LCLIntf;
FpErrorMessages, LazLoggerBase;
type
TTypeNameFlag = (