diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-06-30 15:33:40 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-06-30 15:33:40 +0000 |
| commit | 387f6938cfe989f88f72b2d2ce71117a1f373445 (patch) | |
| tree | b815fc8f413475bc6296026b1e2b94b833d51e9e /compiler/ngtcon.pas | |
| parent | 817e7760fab600e8b049976a6e8f30150b082ae2 (diff) | |
| download | fpc-387f6938cfe989f88f72b2d2ce71117a1f373445.tar.gz | |
* data for bitpacked arrays is part of an aggregate
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@34032 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/ngtcon.pas')
| -rw-r--r-- | compiler/ngtcon.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/ngtcon.pas b/compiler/ngtcon.pas index 8134746cd6..aadf81740d 100644 --- a/compiler/ngtcon.pas +++ b/compiler/ngtcon.pas @@ -414,6 +414,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis begin if not(def.elementdef.typ in [orddef,enumdef]) then internalerror(2007022010); + ftcb.maybe_begin_aggregate(def); { begin of the array } consume(_LKLAMMER); initbitpackval(bp,def.elepackedbitsize); @@ -434,6 +435,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis { flush final incomplete value if necessary } if (bp.curbitoffset <> 0) then flush_packed_value(bp); + ftcb.maybe_end_aggregate(def); consume(_RKLAMMER); end; |