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

* GetDeclaration reflects bitpacked

Browse Source 
git-svn-id: trunk@10026 -
This commit is contained in:
michael 2008-01-27 10:40:41 +00:00
parent 4b72eae793
commit 2197401e66
1 changed files with 4 additions and 1 deletions

5
packages/fcl-passrc/src/pastree.pp
View File

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