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

GdbmiDebugger, Test: minor fixes

Browse Source 
git-svn-id: trunk@64957 -
This commit is contained in:
martin 2021-04-10 23:48:02 +00:00
parent 474161d379
commit 3bfe6e5a2c
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazdebuggergdbmi/test/testexception.pas
View File

@ -714,6 +714,7 @@ begin
Src := GetCommonSourceFor(AppDir + 'ExceptTestPrg.pas');
TestCompile(Src, ExeName);
FGotExceptCount := 0;
dbg := StartGDB(AppDir, ExeName);
try
dbg.Exceptions.Add('MyExceptionIgnore').Enabled := False;

9
components/lazdebuggergdbmi/test/testwatches.pas
View File

@ -1778,6 +1778,7 @@ begin
end;
dbg := StartGDB(AppDir, TestExeName);
try
try
FWatches := Watches.Watches;
@ -1878,9 +1879,11 @@ begin
exit;
end;
end;
dbg.Done;
CleanGdb;
dbg.Free;
finally
dbg.Done;
CleanGdb;
dbg.Free;
end;
end;
procedure TTestWatches.TestWatches;