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

* Character range types

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

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

@ -1279,7 +1279,7 @@ begin
Result := ParseRecordDecl(Parent,NamePos,TypeName,PM);
end;
end;
tkNumber,tkMinus:
tkNumber,tkMinus,tkChar:
begin
UngetToken;
Result:=ParseRangeType(Parent,NamePos,TypeName,Full);

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

@ -128,6 +128,7 @@ type
Procedure TestFileTypeDeprecated;
Procedure TestFileTypePlatform;
Procedure TestRangeType;
Procedure TestCharRangeType;
Procedure TestRangeTypeDeprecated;
Procedure TestRangeTypePlatform;
Procedure TestIdentifierRangeType;
@ -3022,6 +3023,11 @@ begin
DoTestRangeType('1','4','');
end;
procedure TTestTypeParser.TestCharRangeType;
begin
DoTestRangeType('#1','#4','');
end;
procedure TTestTypeParser.TestRangeTypeDeprecated;
begin
DoTestRangeType('1','4','deprecated');

2
packages/fcl-passrc/tests/testpassrc.lpi
View File

@ -30,7 +30,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="--suite=TTestStatementParser.TestTryExceptRaise"/>
<CommandLineParams Value="--suite=TTestTypeParser.TestCharRangeType"/>
</local>
</RunParams>
<RequiredPackages Count="1">