View Issue Details

IDProjectCategoryView StatusLast Update
0030906FPCPackagespublic2016-11-11 10:41
ReporterAlexey Tor.Assigned ToMichael Van Canneyt 
PrioritynormalSeverityminorReproducibilityN/A
Status resolvedResolutionfixed 
Product Version3.1.1Product Build 
Target Version3.2.0Fixed in Version3.0.2 
Summary0030906: Fcl-json: use inline
DescriptionIt 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;

TagsNo tags attached.
Fixed in Revision34869
FPCOldBugId
FPCTarget
Attached Files

Activities

Michael Van Canneyt

2016-11-11 10:41

administrator   ~0095752

Done as suggested

Issue History

Date Modified Username Field Change
2016-11-10 20:56 Alexey Tor. New Issue
2016-11-11 10:26 Michael Van Canneyt Assigned To => Michael Van Canneyt
2016-11-11 10:26 Michael Van Canneyt Status new => assigned
2016-11-11 10:41 Michael Van Canneyt Fixed in Revision => 34869
2016-11-11 10:41 Michael Van Canneyt Note Added: 0095752
2016-11-11 10:41 Michael Van Canneyt Status assigned => resolved
2016-11-11 10:41 Michael Van Canneyt Fixed in Version => 3.0.2
2016-11-11 10:41 Michael Van Canneyt Resolution open => fixed
2016-11-11 10:41 Michael Van Canneyt Target Version => 3.2.0