paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-21 14:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 907 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@908 -
This commit is contained in:
Jonas Maebe 2005-08-21 16:55:55 +00:00
parent fc11cc9aa7
commit 46b66f3c1e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/powerpc/nppcld.pas
View File

@ -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