Fcl-json: use inline
Original Reporter info from Mantis: Alextp
-
Reporter name: CudaText man
Original Reporter info from Mantis: Alextp
- Reporter name: CudaText man
Description:
It is good to use in funcs "inline", see below
Additional information:
//jsonscanner.pp
function TJSONScanner.FetchToken: TJSONToken;
begin
Result:=DoFetchToken;
end;
function TJSONScanner.GetCurColumn: Integer;
begin
Result := TokenStr - PChar(CurLine);
end;
//jsonparser.pp
function TJSONParser.CurrentToken: TJSONToken;
begin
Result:=FScanner.CurToken;
end;
Mantis conversion info:
- Mantis ID: 30906
- Version: 3.1.1
- Fixed in version: 3.0.2
- Fixed in revision: 34869 (#65469ebd)
- Target version: 3.2.0