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

* Fixed incorrect condition (a linked list always has at least one dummy element) which was causing every unit to have a threadvar table, regardless of actual presence of threadvars. For units without code, this was causing creation of .o files which aren't necessary otherwise.

Browse Source 
git-svn-id: trunk@23201 -
This commit is contained in:
sergei 2012-12-21 14:13:30 +00:00
parent 30f96442ca
commit 1116bc3542
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ngenutil.pas
View File

@ -705,7 +705,7 @@ implementation
if assigned(current_module.globalsymtable) then
current_module.globalsymtable.SymList.ForEachCall(@AddToThreadvarList,ltvTable);
current_module.localsymtable.SymList.ForEachCall(@AddToThreadvarList,ltvTable);
if ltvTable.first<>nil then
if not ltvTable.Empty then
begin
s:=make_mangledname('THREADVARLIST',current_module.localsymtable,'');
{ end of the list marker }