paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* correctly check for the system unit

Browse Source 
git-svn-id: trunk@43540 -
This commit is contained in:
svenbarth 2019-11-21 21:44:36 +00:00
parent 6151f7af29
commit da1312698b
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ncgld.pas
View File

@ -307,15 +307,14 @@ implementation
internalerror(2012120901);
{ FPC_THREADVAR_RELOCATE is nil? }
issystemunit:=not current_module.is_unit or
(
assigned(current_module.globalsymtable) and
(current_module.globalsymtable=systemunit)
) or
(
not assigned(current_module.globalsymtable) and
(current_module.localsymtable=systemunit)
);
issystemunit:=(
assigned(current_module.globalsymtable) and
(current_module.globalsymtable=systemunit)
) or
(
not assigned(current_module.globalsymtable) and
(current_module.localsymtable=systemunit)
);
indirect:=(tf_supports_packages in target_info.flags) and
(target_info.system in systems_indirect_var_imports) and
(cs_imported_data in localswitches) and