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

* Do not call parsing if JSON is empty (e.g. return 204 with empty body)

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-25 14:42:29 +01:00
parent e15f731a9b
commit 8d24a28c56
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-jsonschema/src/fpjson.schema.codegen.pp
View File

@ -742,6 +742,10 @@ begin
Addln('begin'); Addln('begin');
indent; indent;
Addln('Result := Default(%s);', [aType.PascalName]); Addln('Result := Default(%s);', [aType.PascalName]);
Addln('if (aJSON='''') then');
indent;
Addln('exit;');
undent;
if DelphiCode then if DelphiCode then
Addln('lObj := TJSONObject.ParseJSONValue(aJSON,True,True) as TJSONObject;') Addln('lObj := TJSONObject.ParseJSONValue(aJSON,True,True) as TJSONObject;')
else else