pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

json serializer: do not raise exception when a scope is not found, while reading.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4508 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2016-02-16 12:54:54 +00:00
parent d9dd29c0fc
commit f7ec2ce337
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
wst/trunk/base_json_formatter.pas
View File

@ -942,7 +942,8 @@ begin
stk := StackTop(); stk := StackTop();
locNode := stk.FindNode(AScopeName); locNode := stk.FindNode(AScopeName);
if not Assigned(locNode) then begin if not Assigned(locNode) then begin
Error(SERR_ScopeNotFound,[AScopeName]); Result := -1;
exit;
end; end;
case locNode.JSONType() of case locNode.JSONType() of
jtObject : PushStack(locNode,stObject); jtObject : PushStack(locNode,stObject);