* Fix [EnforceRange] long

packages/webidl/src/webidlparser.pp

@@ -1353,7 +1353,7 @@ Const
   LegacyDOMString = 'LegacyNullToEmptyString';
 
 Var
-  isNull , ok: Boolean;
+  isNull,isUnsigned, ok: Boolean;
   typeName: UTF8String;
   Allowed : TIDLTokens;
   tk : TIDLToken;
@@ -1375,10 +1375,15 @@ begin
         begin
         // special: [EnforceRange] unsigned long
         ExpectToken(tkSquaredBraceClose);
-        ExpectToken(tkunsigned);
-        ExpectToken(tklong);
+        tk:=GetToken;
+        isUnsigned:=(tk=tkUnsigned);
+        if IsUnSigned then
+          tk:=GetToken;
+        CheckCurrentToken(tkLong);
         Result:=TIDLTypeDefDefinition(AddDefinition(aParent,TIDLTypeDefDefinition,''));
-        Result.TypeName:='unsigned long';
+        Result.TypeName:='long';
+        if IsUnsigned then
+          Result.Name:='unsigned '+Result.Name;
         Result.Attributes.Add(EnforceRange);
         end;
       LegacyDOMString:

packages/webidl/tests/tcidlparser.pp

@@ -67,6 +67,7 @@ Type
     Procedure TestSimpleInt;
     procedure TestSimpleIntNull;
     Procedure TestSimpleLongint;
+    Procedure TestSimpleAttrLong;
     procedure TestSimpleLongintNull;
     Procedure TestSimpleLongLongint;
     Procedure TestSimpleLongLongintNull;
@@ -1073,6 +1074,11 @@ begin
   TestTypeDef('long A','A','long');
 end;
 
+procedure TTestTypeDefParser.TestSimpleAttrLong;
+begin
+  TestTypeDef('typedef [EnforceRange] long A','A','long')
+end;
+
 procedure TTestTypeDefParser.TestSimpleLongintNull;
 begin
   AssertTrue('AllowNull',TestTypeDef('long ? A','A','long').AllowNull);