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

debugger: next time show more informative exception about duplicate name

Browse Source 
git-svn-id: trunk@18100 -
This commit is contained in:
paul 2009-01-04 10:01:33 +00:00
parent d9c8834b72
commit 3df9f2143a
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

@ -3792,7 +3792,7 @@ begin
if FName = AValue then exit;
if TBaseExceptions(GetOwner).Find(AValue) <> nil
then raise EDBGExceptions.Create('Duplicate name');
then raise EDBGExceptions.Create('Duplicate name: ' + AValue);
FName := AValue;
Changed;