paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 18:18:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #37592, improved error message readability

Browse Source 
git-svn-id: trunk@46753 -
This commit is contained in:
michael 2020-09-02 21:37:44 +00:00
parent 1e38369d06
commit 3722c820c9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-json/src/jsonreader.pp
View File

@ -175,9 +175,10 @@ Resourcestring
SErrExpectedColon = 'Expected colon (:), got token "%s".';
//SErrEmptyElement = 'Empty element encountered.';
SErrExpectedElementName = 'Expected element name, got token "%s"';
SExpectedCommaorBraceClose = 'Expected , or ], got token "%s".';
SExpectedCommaorBraceClose = 'Expected comma (,) or square bracket (]), got token "%s".';
SErrInvalidNumber = 'Number is not an integer or real number: %s';
SErrNoScanner = 'No scanner. No source specified ?';
SErrorAt = 'Error at line %d, Pos %d: ';
{ TBaseJSONReader }
@ -408,7 +409,7 @@ Var
begin
S:=Format(Msg,[CurrentTokenString]);
S:=Format('Error at line %d, Pos %d:',[FScanner.CurRow,FSCanner.CurColumn])+S;
S:=Format(SErrorAt,[FScanner.CurRow,FSCanner.CurColumn])+S;
Raise EJSONParser.Create(S);
end;