paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 07:40:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix debugger test compilation.

Browse Source 
git-svn-id: trunk@64518 -
This commit is contained in:
juha 2021-02-10 15:35:10 +00:00
parent db9a7ce064
commit 657341c4df
3 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggergdbmi/test/TestGdbmi.lpr
View File

@ -8,9 +8,8 @@ uses
TestDisAss, TestException, Testwatches, TestBreakPoint,
TestEnvironment, TestArgV, LazLogger;
{$R *.res}
begin
Application.Title:='';
Application.Initialize;
Application.CreateForm(TGuiTestRunner, TestRunner);
Application.Run;

2
components/lazdebuggers/lazdebugtestbase/testcommonsources.pas
View File

@ -10,7 +10,7 @@ uses
LazFileUtils, LazUTF8,
TestOutputLogger;
{$R sources.rc}
{.$R sources.rc}
type

6
components/lazdebuggers/lazdebugtestbase/ttestwatchutilities.pas
View File

@ -372,14 +372,13 @@ type
function TStringArrayHelper.IndexOfFieldName(AName: String; ALength: Integer;
Sep: char): Integer;
var
i: Integer;
p: SizeInt;
begin
ALength := Min(ALength, Length(Self));
Result := 0;
while Result < ALength do begin
p := pos(Sep, Self[Result]);
if (p >= 0) and (CompareText(trim(Copy(Self[Result], 1, p-1)), AName) = 0 then
if (p >= 0) and (CompareText(trim(Copy(Self[Result], 1, p-1)), AName) = 0) then
exit;
inc(Result);
end;
@ -387,8 +386,7 @@ begin
Result := -1;
end;
function TStringArrayHelper.ValueOfFieldName(AnIndex: Integer; Sep: char
): String;
function TStringArrayHelper.ValueOfFieldName(AnIndex: Integer; Sep: char): String;
begin
Result := trim(copy(Self[AnIndex], pos(Sep, Self[AnIndex])+1, MaxInt));
end;