paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 21:09:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Luiz Americo (bug ID 017238) Small speed improvement, corrected order of arguments

Browse Source 
git-svn-id: trunk@15879 -
This commit is contained in:
michael 2010-08-23 07:48:50 +00:00
parent 4144176f2f
commit 7a55db3397
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-json/src/fpjson.pp
View File

@ -1300,7 +1300,7 @@ begin
Flist:=TFPObjectList.Create(True); Flist:=TFPObjectList.Create(True);
end; end;
Function VarRecToJSON(Const Element : TVarRec; SourceType : String) : TJSONData; Function VarRecToJSON(Const Element : TVarRec; const SourceType : String) : TJSONData;
begin begin
Result:=Nil; Result:=Nil;
@ -1322,7 +1322,7 @@ begin
vtObject : if (VObject is TJSONData) then vtObject : if (VObject is TJSONData) then
Result:=TJSONData(VObject) Result:=TJSONData(VObject)
else else
Raise EJSON.CreateFmt(SErrNotJSONData,[SourceType,VObject.ClassName]); Raise EJSON.CreateFmt(SErrNotJSONData,[VObject.ClassName,SourceType]);
//vtVariant : //vtVariant :
else else
Raise EJSON.CreateFmt(SErrUnknownTypeInConstructor,[SourceType,VType]) Raise EJSON.CreateFmt(SErrUnknownTypeInConstructor,[SourceType,VType])