Pārlūkot izejas kodu

* correctly check for the system unit

git-svn-id: trunk@43540 -
svenbarth 5 gadi atpakaļ
vecāks
revīzija
da1312698b
1 mainītis faili ar 8 papildinājumiem un 9 dzēšanām
  1. 8 9
      compiler/ncgld.pas

+ 8 - 9
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