paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug introduced in revision 1.6

Browse Source
This commit is contained in:
Jonas Maebe 2005-01-24 18:13:46 +00:00
parent 2f38fbd7c2
commit 28ea4a8fd4
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/powerpc/nppcld.pas
View File

@ -92,9 +92,9 @@ unit nppcld;
case target_info.system of
system_powerpc_darwin:
begin
if (vo_is_dll_var in tglobalvarsym(symtableentry).varoptions) and
(tglobalvarsym(symtableentry).owner.symtabletype in [staticsymtable,globalsymtable]) and
not(tglobalvarsym(symtableentry).owner.iscurrentunit) then
if (vo_is_dll_var in tglobalvarsym(symtableentry).varoptions) or
((tglobalvarsym(symtableentry).owner.symtabletype in [staticsymtable,globalsymtable]) and
not(tglobalvarsym(symtableentry).owner.iscurrentunit)) then
begin
l:=objectlibrary.getasmsymbol('L'+tglobalvarsym(symtableentry).mangledname+'$non_lazy_ptr');
if not(assigned(l)) then
@ -125,7 +125,10 @@ begin
end.
{
$Log$
Revision 1.7 2005-01-20 17:47:01 peter
Revision 1.8 2005-01-24 18:13:46 jonas
* fixed bug introduced in revision 1.6
Revision 1.7 2005/01/20 17:47:01 peter
* remove copy_value_on_stack and a_param_copy_ref
Revision 1.6 2005/01/19 22:19:41 peter