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

Fix Binary Format optional object read failing.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4268 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-08-13 15:14:26 +00:00
parent 4f741ca06d
commit 9a060b2d23
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
wst/trunk/base_binary_formatter.pas
View File

@ -1459,11 +1459,12 @@ var
begin begin
stk := StackTop(); stk := StackTop();
locNode := stk.Find(AScopeName); locNode := stk.Find(AScopeName);
if not Assigned(locNode) then begin if (locNode <> nil) then begin
Error(SERR_ScopeNotFound,[AScopeName]);
end;
PushStack(locNode,stObject); PushStack(locNode,stObject);
Result := StackTop().GetItemCount(); Result := StackTop().GetItemCount();
end else begin
Result := -1;
end;
end; end;
function TBaseBinaryFormatter.BeginArrayRead( function TBaseBinaryFormatter.BeginArrayRead(