* GetDeclaration reflects bitpacked

git-svn-id: trunk@10026 -

packages/fcl-passrc/src/pastree.pp

@@ -1267,7 +1267,10 @@ begin
   Try
     Temp:='record';
     If IsPacked then
-      Temp:='packed '+Temp;
+      if IsBitPacked then
+        Temp:='bitpacked '+Temp
+      else
+        Temp:='packed '+Temp;
     If Full then
       Temp:=Name+' = '+Temp;
     S.Add(Temp);