paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:31:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* THREADVARLIST is now aligned

Browse Source
This commit is contained in:
florian 2004-11-05 20:04:49 +00:00
parent 529ffe1d57
commit fa2f619598
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pmodules.pas
View File

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