paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 07:29:25 +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 case target_info.system of
system_powerpc_darwin: system_powerpc_darwin:
begin begin
if (vo_is_dll_var in tglobalvarsym(symtableentry).varoptions) and if (vo_is_dll_var in tglobalvarsym(symtableentry).varoptions) or
(tglobalvarsym(symtableentry).owner.symtabletype in [staticsymtable,globalsymtable]) and ((tglobalvarsym(symtableentry).owner.symtabletype in [staticsymtable,globalsymtable]) and
not(tglobalvarsym(symtableentry).owner.iscurrentunit) then not(tglobalvarsym(symtableentry).owner.iscurrentunit)) then
begin begin
l:=objectlibrary.getasmsymbol('L'+tglobalvarsym(symtableentry).mangledname+'$non_lazy_ptr'); l:=objectlibrary.getasmsymbol('L'+tglobalvarsym(symtableentry).mangledname+'$non_lazy_ptr');
if not(assigned(l)) then if not(assigned(l)) then
@ -125,7 +125,10 @@ begin
end. end.
{ {
$Log$ $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 * remove copy_value_on_stack and a_param_copy_ref
Revision 1.6 2005/01/19 22:19:41 peter Revision 1.6 2005/01/19 22:19:41 peter