paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1267,6 +1267,9 @@ begin
Try Try
Temp:='record'; Temp:='record';
If IsPacked then If IsPacked then
if IsBitPacked then
Temp:='bitpacked '+Temp
else
Temp:='packed '+Temp; Temp:='packed '+Temp;
If Full then If Full then
Temp:=Name+' = '+Temp; Temp:=Name+' = '+Temp;