paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Partly revert of accidentally committed r45286 #0275eec89b. The part that hasn't been reverted is the removal of the dependency on LCLbase.

Browse Source 
git-svn-id: trunk@45287 -
This commit is contained in:
joost 2014-06-01 16:41:11 +00:00
parent 0275eec89b
commit d72d8c2db8
3 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,7 +31,6 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="c:\tmp\lazdebugtest\project1.exe"/>
</local>
</RunParams>
<RequiredPackages Count="1">
@ -61,10 +60,6 @@
<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;