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

FPDebug: fix error msg

Browse Source 
git-svn-id: trunk@43246 -
This commit is contained in:
martin 2013-10-14 11:20:34 +00:00
parent 32a2a8e653
commit 35ea619dab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fppascalparser.pas
View File

@ -425,7 +425,7 @@ begin
'a'..'z',
'A'..'Z', '_': AddIdentifier;
else begin
SetError(Format('Unexpected char ''%0:s'' at pos %1:s', [CurPtr^, PosFromPChar(CurPtr)])); // error
SetError(Format('Unexpected char ''%0:s'' at pos %1:d', [CurPtr^, PosFromPChar(CurPtr)])); // error
break;
end;
end;