paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 14:17:23 +01: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'); Src := GetCommonSourceFor(AppDir + 'ExceptTestPrg.pas');
TestCompile(Src, ExeName); TestCompile(Src, ExeName);
FGotExceptCount := 0;
dbg := StartGDB(AppDir, ExeName); dbg := StartGDB(AppDir, ExeName);
try try
dbg.Exceptions.Add('MyExceptionIgnore').Enabled := False; dbg.Exceptions.Add('MyExceptionIgnore').Enabled := False;

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

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