From 2b3250aac037ca548888afb1b43977bc551185e7 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 24 Aug 2006 10:02:19 +0000
Subject: [PATCH]   * no support yet for packed records which need to be
 initialized

git-svn-id: trunk@4499 -
---
 compiler/ptype.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/ptype.pas b/compiler/ptype.pas
index 90c10f2053..26bfecbe71 100644
--- a/compiler/ptype.pas
+++ b/compiler/ptype.pas
@@ -317,6 +317,9 @@ implementation
          recst.addalignmentpadding;
          { restore symtable stack }
          symtablestack.pop(recst);
+         if trecorddef(record_dec).is_packed and
+            record_dec.needs_inittable then
+           Message(type_e_no_packed_inittable);
       end;