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

* Dictionaries can be empty

Browse Source 
git-svn-id: trunk@41823 -
This commit is contained in:
michael 2019-04-03 10:21:36 +00:00
parent 478b918386
commit 1a5faf1cc3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/webidl/src/webidlparser.pp
View File

@ -1001,12 +1001,13 @@ begin
Result:=TIDLDictionaryDefinition(Context.Add(aParent,TIDLDictionaryDefinition,Name)); Result:=TIDLDictionaryDefinition(Context.Add(aParent,TIDLDictionaryDefinition,Name));
Result.ParentName:=ParentName; Result.ParentName:=ParentName;
GetToken; GetToken;
Repeat While (CurrentToken<>tkCurlyBraceClose) do
begin
ParseDictionaryMember(Result.Members); ParseDictionaryMember(Result.Members);
CheckCurrentTokens([tkSemicolon,tkCurlyBraceClose]); CheckCurrentTokens([tkSemicolon,tkCurlyBraceClose]);
if (CurrentToken=tkSemicolon) then if (CurrentToken=tkSemicolon) then
GetToken; GetToken;
Until (CurrentToken=tkCurlyBraceClose); end;
end; end;
function TWebIDLParser.ParseSequenceTypeDef(aParent : TIDLBaseObject): TIDLSequenceTypeDefDefinition; function TWebIDLParser.ParseSequenceTypeDef(aParent : TIDLBaseObject): TIDLSequenceTypeDefDefinition;