paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 00:37:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: fixed assertion

Browse Source 
git-svn-id: trunk@30247 -
This commit is contained in:
martin 2011-04-08 18:25:52 +00:00
parent a3d3512da0
commit e5b4a1fe86
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/debugger.pp
View File

@ -3628,7 +3628,7 @@ end;
procedure TDBGWatch.SetSlave(const ASlave : TBaseWatch);
begin
Assert(FSlave = nil, 'TDBGWatch.SetSlave already has a slave');
Assert((FSlave = nil) or (ASlave = nil), 'TDBGWatch.SetSlave already has a slave');
FSlave := ASlave;
end;