paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 23:43:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

recuced update notifications

Browse Source 
git-svn-id: trunk@3089 -
This commit is contained in:
mattias 2002-08-18 08:57:34 +00:00
parent 98132a1c7e
commit 8598fe798a
1 changed files with 23 additions and 15 deletions

38
debugger/gdbmidebugger.pp
View File

@ -1162,21 +1162,26 @@ var
begin
if Debugger = nil then Exit;
if FBreakID<>0 then ReleaseBreakPoint;
TGDBMIDebugger(Debugger).ExecuteCommand('-break-insert %s:%d', [
ExtractFileName(Source), Line], True, ResultState, S, False);
ResultList := CreateMIValueList(S);
BkptList := CreateMIValueList(ResultList.Values['bkpt']);
FBreakID := StrToIntDef(BkptList.Values['number'], 0);
SetHitCount(StrToIntDef(BkptList.Values['times'], 0));
if FBreakID<>0 then
SetValid(vsValid)
else
SetValid(vsInvalid);
DoEnableChange;
ResultList.Free;
BkptList.Free;
BeginUpdate;
try
if FBreakID<>0 then ReleaseBreakPoint;
TGDBMIDebugger(Debugger).ExecuteCommand('-break-insert %s:%d', [
ExtractFileName(Source), Line], True, ResultState, S, False);
ResultList := CreateMIValueList(S);
BkptList := CreateMIValueList(ResultList.Values['bkpt']);
FBreakID := StrToIntDef(BkptList.Values['number'], 0);
SetHitCount(StrToIntDef(BkptList.Values['times'], 0));
if FBreakID<>0 then
SetValid(vsValid)
else
SetValid(vsInvalid);
DoEnableChange;
ResultList.Free;
BkptList.Free;
finally
EndUpdate;
end;
end;
procedure TGDBMIBreakPoint.ReleaseBreakPoint;
@ -1726,6 +1731,9 @@ end;
end.
{ =============================================================================
$Log$
Revision 1.16 2003/05/28 17:40:55 mattias
recuced update notifications
Revision 1.15 2003/05/28 08:46:24 mattias
break;points dialog now gets the items without debugger