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

webidl: parse enforcerange

Browse Source
This commit is contained in:
mattias 2022-07-25 18:03:01 +02:00
parent 35cae0bd3d
commit db6e1ef1cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1371,7 +1371,7 @@ begin
ExpectToken(tkunsigned); ExpectToken(tkunsigned);
ExpectToken(tklong); ExpectToken(tklong);
Result:=TIDLTypeDefDefinition(AddDefinition(aParent,TIDLTypeDefDefinition,'')); Result:=TIDLTypeDefDefinition(AddDefinition(aParent,TIDLTypeDefDefinition,''));
Result.TypeName:='unsinged long'; Result.TypeName:='unsigned long';
Result.Attributes.Add(EnforceRange); Result.Attributes.Add(EnforceRange);
end; end;
LegacyDOMString: LegacyDOMString: