diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-01-27 10:40:41 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-01-27 10:40:41 +0000 |
| commit | df532c5ea4bbedd2a43bee657ce9cea20820e04f (patch) | |
| tree | fb757d08e4cb0a7e6890e23b3ef1795aa1abe27a /packages | |
| parent | 94b40f544267ebf270c00bd8eb4bc17e9454d089 (diff) | |
| download | fpc-df532c5ea4bbedd2a43bee657ce9cea20820e04f.tar.gz | |
* GetDeclaration reflects bitpacked
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@10026 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages')
| -rw-r--r-- | packages/fcl-passrc/src/pastree.pp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/packages/fcl-passrc/src/pastree.pp b/packages/fcl-passrc/src/pastree.pp index 41658057ce..afbb970e49 100644 --- a/packages/fcl-passrc/src/pastree.pp +++ b/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); |