paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 19:50:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Report correct position when encountering identifier

Browse Source 
git-svn-id: trunk@34535 -
This commit is contained in:
michael 2016-09-17 08:18:10 +00:00
parent 386b7ac154
commit a80e8f41c4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-json/src/jsonscanner.pp
View File

@ -208,7 +208,7 @@ var
TokenStart, CurPos: PChar;
it : TJSONToken;
I : Integer;
OldLength, SectionLength, Index: Integer;
OldLength, SectionLength, Index, tstart,tcol: Integer;
C : char;
S : String;
IsStar,EOC: Boolean;
@ -433,6 +433,8 @@ begin
end;
'a'..'z','A'..'Z','_':
begin
tstart:=CurRow;
Tcol:=CurColumn;
TokenStart := TokenStr;
repeat
Inc(TokenStr);
@ -448,7 +450,7 @@ begin
exit;
end;
if (joStrict in Options) then
Error(SErrInvalidCharacter, [CurRow,CurColumn,TokenStr[0]])
Error(SErrInvalidCharacter, [tStart,tcol,TokenStart[0]])
else
Result:=tkIdentifier;
end;