From 7489b6629f90fb72ca052f8868739423e622dbb9 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 14 Oct 2002 19:44:43 +0000
Subject: [PATCH]   * threadvars need 4 bytes extra for storing the threadvar
 index

---
 compiler/symtable.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/compiler/symtable.pas b/compiler/symtable.pas
index 9830ef770c..0c09eaa911 100644
--- a/compiler/symtable.pas
+++ b/compiler/symtable.pas
@@ -1480,10 +1480,9 @@ implementation
          internalerror(200208252);
         storefilepos:=aktfilepos;
         aktfilepos:=tsym(sym).fileinfo;
+        l:=tvarsym(sym).getvaluesize;
         if (vo_is_thread_var in tvarsym(sym).varoptions) then
-          l:=pointer_size
-        else
-          l:=tvarsym(sym).getvaluesize;
+          inc(l,pointer_size);
         varalign:=size_2_align(l);
         varalign:=used_align(varalign,aktalignment.varalignmin,aktalignment.varalignmax);
         tvarsym(sym).address:=align(datasize,varalign);
@@ -2321,7 +2320,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.74  2002-10-06 19:41:31  peter
+  Revision 1.75  2002-10-14 19:44:43  peter
+    * threadvars need 4 bytes extra for storing the threadvar index
+
+  Revision 1.74  2002/10/06 19:41:31  peter
     * Add finalization of typed consts
     * Finalization of globals in the main program