From da1312698b9f05bf26fdc7ab73aed647849b06a8 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Thu, 21 Nov 2019 21:44:36 +0000 Subject: [PATCH] * correctly check for the system unit git-svn-id: trunk@43540 - --- compiler/ncgld.pas | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/compiler/ncgld.pas b/compiler/ncgld.pas index ffd8dfdcf6..cf6ec014a7 100644 --- a/compiler/ncgld.pas +++ b/compiler/ncgld.pas @@ -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