paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 22:19:18 +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> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<CommandLineParams Value="~\tmp\LazDebugTest\project1"/>
<LaunchingApplication PathPlusParams="\usr\bin\gnome-terminal -e $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
@ -38,16 +40,11 @@
<PackageName Value="fpdebug"/> <PackageName Value="fpdebug"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units Count="1">
<Unit0> <Unit0>
<Filename Value="fpd.lpr"/> <Filename Value="fpd.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit0> </Unit0>
<Unit1>
<Filename Value="..\dbgclasses.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="dbgclasses"/>
</Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -62,16 +59,9 @@
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Options> <Options>
<PassLinkerOptions Value="True"/>
<LinkerOptions Value="-sectcreate __TEXT __info_plist Info.plist"/> <LinkerOptions Value="-sectcreate __TEXT __info_plist Info.plist"/>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions Count="3">

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

@ -692,7 +692,7 @@ begin
end; end;
WriteLN('Callstack:'); WriteLN('Callstack:');
ACallStack := GController.CurrentProcess.MainThread.CreateCallStackEntryList; //ACallStack := GController.CurrentProcess.MainThread.CreateCallStackEntryList;
try try
for i := 0 to ACallStack.Count-1 do for i := 0 to ACallStack.Count-1 do
begin begin

2
components/fpdebug/fpdbgclasses.pp
View File

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

4
components/fpdebug/fpdbginfo.pas
View File

@ -211,8 +211,8 @@ type
property Member[AIndex: Int64]: TFpDbgValue read GetMember; property Member[AIndex: Int64]: TFpDbgValue read GetMember;
property MemberByName[AIndex: String]: TFpDbgValue read GetMemberByName; // Includes inheritance property MemberByName[AIndex: String]: TFpDbgValue read GetMemberByName; // Includes inheritance
// For Arrays (TODO pointers) only, the values stored in the array // For Arrays (TODO pointers) only, the values stored in the array
property MemberCountEx[AIndex: Array of Int64]: Integer read GetMemberCountEx; //property MemberCountEx[AIndex: Array of Int64]: Integer read GetMemberCountEx;
property MemberEx[AIndex: Array of Int64]: TFpDbgValue read GetMemberEx; //property MemberEx[AIndex: Array of Int64]: TFpDbgValue read GetMemberEx;
property IndexTypeCount: Integer read GetIndexTypeCount; property IndexTypeCount: Integer read GetIndexTypeCount;
property IndexType[AIndex: Integer]: TFpDbgSymbol read GetIndexType; property IndexType[AIndex: Integer]: TFpDbgSymbol read GetIndexType;