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

* threadvars need 4 bytes extra for storing the threadvar index

Browse Source
This commit is contained in:
peter 2002-10-14 19:44:43 +00:00
parent fe277e4c87
commit 7489b6629f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symtable.pas
View File

@ -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