* More range type parsing errors

git-svn-id: trunk@34675 -

packages/fcl-passrc/src/pparser.pp

@@ -1057,7 +1057,7 @@ begin
       else
         ParseExcSyntaxError;
       end
-    else if CurToken=tkDotDot then // Type A = A..B;
+    else if (CurToken in [tkBraceOpen,tkDotDot]) then // Type A = B..C;
       K:=stkRange
     else
       ParseExcTokenError(';');

packages/fcl-passrc/tests/tctypeparser.pas

@@ -3099,6 +3099,8 @@ end;
 procedure TTestTypeParser.TestRangeLowHigh;
 
 begin
+   TShortCut = Low(Word)..High(Word);
+
   DoParseRangeSet('low(TRange)..high(TRange)','');
 end;