* Character range types

git-svn-id: trunk@34674 -

packages/fcl-passrc/src/pparser.pp

@@ -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);

packages/fcl-passrc/tests/tctypeparser.pas

@@ -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');

packages/fcl-passrc/tests/testpassrc.lpi

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