paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 08:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* no support yet for packed records which need to be initialized

Browse Source 
git-svn-id: trunk@4499 -
This commit is contained in:
Jonas Maebe 2006-08-24 10:02:19 +00:00
parent 91bb1aa1ff
commit 2b3250aac0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ptype.pas
View File

@ -317,6 +317,9 @@ implementation
recst.addalignmentpadding; recst.addalignmentpadding;
{ restore symtable stack } { restore symtable stack }
symtablestack.pop(recst); symtablestack.pop(recst);
if trecorddef(record_dec).is_packed and
record_dec.needs_inittable then
Message(type_e_no_packed_inittable);
end; end;