From fa2f619598e9ea19ad241e5a3866e3264336d65a Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 5 Nov 2004 20:04:49 +0000
Subject: [PATCH]   * THREADVARLIST is now aligned

---
 compiler/pmodules.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index bc98abe902..d1ac650109 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -257,7 +257,8 @@ implementation
           begin
             s:=make_mangledname('THREADVARLIST',current_module.localsymtable,'');
             { add begin and end of the list }
-            ltvTable.insert(tai_symbol.Createname_global(s,AT_DATA,0));
+            ltvTable.insert(tai_symbol.Createname_global(s,AT_DATA,0));            
+            ltvTable.insert(Tai_align.Create(const_align(32)));
             ltvTable.concat(tai_const.create_sym(nil));  { end of list marker }
             ltvTable.concat(tai_symbol_end.createname(s));
             maybe_new_object_file(dataSegment);
@@ -1519,7 +1520,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.171  2004-11-04 23:59:13  peter
+  Revision 1.172  2004-11-05 20:04:49  florian
+    * THREADVARLIST is now aligned
+
+  Revision 1.171  2004/11/04 23:59:13  peter
   use filepos of main when generating the module stabs
 
   Revision 1.170  2004/11/04 17:09:54  peter