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

* Patch from Luxa Olivetti to fix memleak, fix issue #39941

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-10-09 12:27:51 +02:00
parent 336d531687
commit 438f21c0d6
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-web/src/jsonrpc/fpjsonrpc.pp
View File

@ -1103,9 +1103,9 @@ begin
H:=FindHandler(AClassName,AMethodName,AContext,FreeObject); H:=FindHandler(AClassName,AMethodName,AContext,FreeObject);
If (H=Nil) then If (H=Nil) then
if (AClassName='') then if (AClassName='') then
Exit(CreateJSON2Error(SErrInvalidMethodName,[AMethodName],EJSONRPCMethodNotFound,ID.Clone,transactionProperty)) Exit(CreateJSON2Error(SErrInvalidMethodName,[AMethodName],EJSONRPCMethodNotFound,ID,transactionProperty))
else else
Exit(CreateJSON2Error(SErrInvalidClassMethodName,[AClassName,AMethodName],EJSONRPCMethodNotFound,ID.Clone,transactionProperty)); Exit(CreateJSON2Error(SErrInvalidClassMethodName,[AClassName,AMethodName],EJSONRPCMethodNotFound,ID,transactionProperty));
try try
If Assigned(FOndispatchRequest) then If Assigned(FOndispatchRequest) then
FOndispatchRequest(Self,AClassName,AMethodName,Params); FOndispatchRequest(Self,AClassName,AMethodName,Params);