Przeglądaj źródła

Merged revisions 907 via svnmerge from
/trunk

git-svn-id: branches/fixes_2_0@908 -

Jonas Maebe 20 lat temu
rodzic
commit
46b66f3c1e
1 zmienionych plików z 3 dodań i 1 usunięć
  1. 3 1
      compiler/powerpc/nppcld.pas

+ 3 - 1
compiler/powerpc/nppcld.pas

@@ -40,6 +40,7 @@ unit nppcld;
     uses
       verbose,
       systems,
+      globtype,globals,
       cpubase,
       cgutils,cgobj,
       aasmbase,aasmtai,
@@ -93,7 +94,8 @@ unit nppcld;
             begin
               if ([vo_is_dll_var,vo_is_external] * tglobalvarsym(symtableentry).varoptions <> []) or
                  ((tglobalvarsym(symtableentry).owner.symtabletype in [staticsymtable,globalsymtable]) and
-                  not(tglobalvarsym(symtableentry).owner.iscurrentunit)) then
+                  (not(tglobalvarsym(symtableentry).owner.iscurrentunit) or
+                   (cs_create_pic in aktmoduleswitches))) then
                 begin
                   l:=objectlibrary.getasmsymbol('L'+tglobalvarsym(symtableentry).mangledname+'$non_lazy_ptr');
                   if not(assigned(l)) then