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

* Fix parsing of type with attributes

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-04-05 18:51:41 +02:00
parent afa3cc5439
commit 760484c7a4
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1466,10 +1466,12 @@ Var
isClamp, haveID,isNull,isUnsigned, isDoubleLong, ok: Boolean;
typeName: UTF8String;
Allowed : TIDLTokens;
Attrs : TExtAttributeList;
tk : TIDLToken;
begin
Result:=Nil;
Attrs:=nil;
ok:=false;
try
isNull:=False;
@ -1481,8 +1483,8 @@ begin
isClamp:=False;
if tk=tkSquaredBraceOpen then
begin
Result:=TIDLTypeDefDefinition(AddDefinition(aParent,TIDLTypeDefDefinition,''));
ParseExtAttributes(Result.Attributes,tkSquaredBraceClose,False);
Attrs:=TExtAttributeList.Create;
ParseExtAttributes(Attrs,tkSquaredBraceClose,False);
tk:=GetToken;
end;
if AllowExtraTypes then
@ -1519,10 +1521,16 @@ begin
isNull:=True;
end;
Result.AllowNull:=isNull;
if Assigned(Attrs) then
Result.Attributes:=Attrs;
Attrs:=nil;
ok:=true;
finally
if not ok then
begin
MaybeFree(Result,aParent);
Attrs.Free;
end;
end;
end;