From 2e91bcf821a881be53342f98d98eff823556a46c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 26 Oct 2004 15:02:33 +0000
Subject: [PATCH]   * align arraydef rtti

---
 compiler/symdef.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 9988db9425..80adb9f4c0 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -2975,6 +2975,9 @@ implementation
          else
            rttiList.concat(Tai_const.Create_8bit(tkarray));
          write_rtti_name;
+{$ifdef cpurequiresproperalignment}
+         rttilist.concat(Tai_align.Create(sizeof(TConstPtrUInt)));
+{$endif cpurequiresproperalignment}
          { size of elements }
          rttiList.concat(Tai_const.Create_32bit(elesize));
          { count of elements, prevent overflow for 0..maxlongint }
@@ -6197,7 +6200,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.259  2004-10-15 09:14:17  mazen
+  Revision 1.260  2004-10-26 15:02:33  peter
+    * align arraydef rtti
+
+  Revision 1.259  2004/10/15 09:14:17  mazen
   - remove $IFDEF DELPHI and related code
   - remove $IFDEF FPCPROCVAR and related code