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

CreateJSON2ErrorResponse now clones ID parameter instead of consuming it (bug ID 35999)

Browse Source 
git-svn-id: trunk@42783 -
This commit is contained in:
michael 2019-08-24 09:34:41 +00:00
parent dc3b9b4ab0
commit 778ae03532
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-web/src/jsonrpc/fpjsonrpc.pp
View File

@ -412,7 +412,9 @@ function CreateJSON2ErrorResponse(Const AMessage : String; Const ACode : Integer
begin
If (ID=Nil) then
ID:=TJSONNull.Create;
ID:=TJSONNull.Create
else
ID:=ID.Clone;
Result:=TJSONErrorObject.Create(['jsonrpc','2.0','error',CreateJSONErrorObject(AMessage,ACode),idname,ID]);
end;
@ -420,7 +422,9 @@ function CreateJSON2ErrorResponse(Const AFormat : String; Args : Array of const;
begin
If (ID=Nil) then
ID:=TJSONNull.Create;
ID:=TJSONNull.Create
else
ID:=ID.Clone;
Result:=TJSONErrorObject.Create(['jsonrpc','2.0','error',CreateJSONErrorObject(Format(AFormat,Args),ACode),idname,ID]);
end;
@ -812,7 +816,7 @@ begin
begin
// No response, and a response was expected.
if (ID<>Nil) or not (jdoNotifications in Options) then
Result:=CreateJSON2Error(SErrNoResponse,[M],EJSONRPCInternalError,ID.Clone,transactionProperty);
Result:=CreateJSON2Error(SErrNoResponse,[M],EJSONRPCInternalError,ID,transactionProperty);
end
else
begin
@ -832,7 +836,7 @@ begin
If (Result<>Nil) then
FreeAndNil(Result);
If Assigned(ID) and not (ID is TJSONNull) then
Result:=CreateJSON2Error(E.Message,EJSONRPCInternalError,ID.Clone,transactionproperty)
Result:=CreateJSON2Error(E.Message,EJSONRPCInternalError,ID,transactionproperty)
else
Result:=CreateJSON2Error(E.Message,EJSONRPCInternalError,Nil,transactionproperty);
end;
@ -973,7 +977,7 @@ begin
O:=A.Objects[i];
J:=O.IndexOfName('id');
if (J<>-1) then
ID:=O.Items[J].Clone;
ID:=O.Items[J];
end;
TJSONArray(Result).Add(CreateJSON2ErrorResponse(SErrJSON2NotAllowed,EJSONRPCInvalidRequest,ID,transactionproperty));
end;