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

FpDebug (pure): Fix for format-parameters in error-message

Browse Source 
git-svn-id: trunk@45775 -
This commit is contained in:
joost 2014-07-04 19:13:35 +00:00
parent f38e91869e
commit 0fac0512c8
4 changed files with 7 additions and 17 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,6 +31,8 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="~\tmp\LazDebugTest\project1"/>
<LaunchingApplication PathPlusParams="\usr\bin\gnome-terminal -e $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
@ -38,16 +40,11 @@
<PackageName Value="fpdebug"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Units Count="1">
<Unit0>
<Filename Value="fpd.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="..\dbgclasses.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="dbgclasses"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
@ -62,16 +59,9 @@
</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

2
components/fpdebug/fpdbgclasses.pp
View File

@ -1225,7 +1225,7 @@ begin
if not FProcess.WriteData(FLocation, 1, FOrgValue)
then begin
Log('Unable to reset breakpoint at $%p', [FLocation]);
Log('Unable to reset breakpoint at %s', [FormatAddress(FLocation)]);
Exit;
end;
end;

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;