paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:30:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* More range type parsing errors

Browse Source 
git-svn-id: trunk@34675 -
This commit is contained in:
michael 2016-10-08 18:22:35 +00:00
parent 391966a414
commit 65ea20e9e0
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/src/pparser.pp
View File

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

2
packages/fcl-passrc/tests/tctypeparser.pas
View File

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