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

FpDebug: Revert of accidentally committed files in r45775 #0fac0512c8

Browse Source 
git-svn-id: trunk@45776 -
This commit is contained in:
joost 2014-07-04 19:20:17 +00:00
parent 0fac0512c8
commit 91d19d2124
3 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,8 +31,6 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="~\tmp\LazDebugTest\project1"/>
<LaunchingApplication PathPlusParams="\usr\bin\gnome-terminal -e $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
@ -40,11 +38,16 @@
<PackageName Value="fpdebug"/>
</Item1>
</RequiredPackages>
<Units Count="1">
<Units Count="2">
<Unit0>
<Filename Value="fpd.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="..\dbgclasses.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="dbgclasses"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
@ -59,9 +62,16 @@
</SearchPaths>
<Linking>
<Options>
<PassLinkerOptions Value="True"/>
<LinkerOptions Value="-sectcreate __TEXT __info_plist Info.plist"/>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">

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

@ -692,7 +692,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;