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

* Avoid index out of bounds error

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-23 08:53:09 +01:00
parent 3cf7890352
commit ddf0774575
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -855,12 +855,17 @@ begin
begin begin
Def:=ParamDefs[i]; Def:=ParamDefs[i];
if I>=ParamArray.Count then if I>=ParamArray.Count then
begin
if ParamDefs[i].Required then if ParamDefs[i].Required then
JSONRPCParamError(SErrParamsRequiredParamNotFound,[def.Name]); JSONRPCParamError(SErrParamsRequiredParamNotFound,[def.Name]);
Param:=ParamArray[i]; end
// jtUnkown accepts all data types else
if (def.DataType<>jtUnknown) and not (Param.JSONType=def.DataType) then begin
JSONRPCParamError(SErrParamsDataTypeMismatch,[def.Name,JSONTypeName(def.DataType),JSONTypeName(Param.JSONType)]); Param:=ParamArray[i];
// jtUnkown accepts all data types
if (def.DataType<>jtUnknown) and not (Param.JSONType=def.DataType) then
JSONRPCParamError(SErrParamsDataTypeMismatch,[def.Name,JSONTypeName(def.DataType),JSONTypeName(Param.JSONType)]);
end;
end; end;
end; end;