* Added support for bitpacked

git-svn-id: trunk@10023 -

packages/fcl-passrc/src/pparser.pp

@@ -357,7 +357,7 @@ begin
   Result := nil;         // !!!: Remove in the future
   HadPackedModifier := False;     { Assume not present }
   NextToken;
-  if CurToken = tkPacked then     { If PACKED modifier }
+  if CurToken in [tkPacked,tkbitpacked] then     { If PACKED modifier }
      begin                        { Handle PACKED modifier for all situations }
      NextToken;                   { Move to next token for rest of parse }
      if CurToken in [tkArray, tkRecord, tkObject, tkClass] then  { If allowed }
@@ -943,7 +943,7 @@ begin
   ExpectToken(tkEqual);
   NextToken;
   HadPackedModifier := False;     { Assume not present }
-  if CurToken = tkPacked then     { If PACKED modifier }
+  if CurToken in [tkPacked,tkbitpacked] then     { If PACKED modifier }
      begin                        { Handle PACKED modifier for all situations }
      NextToken;                   { Move to next token for rest of parse }
      if CurToken in [tkArray, tkRecord, tkObject, tkClass] then  { If allowed }

packages/fcl-passrc/src/pscanner.pp

@@ -74,6 +74,7 @@ type
     tkas,
     tkasm,
     tkbegin,
+    tkbitpacked,
     tkcase,
     tkclass,
     tkconst,
@@ -260,6 +261,7 @@ const
     'as',
     'asm',
     'begin',
+    'bitpacked',
     'case',
     'class',
     'const',