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

* imported procedures are always made global (in the sense of the

Browse Source 
assembler)
This commit is contained in:
florian 2004-03-29 21:19:33 +00:00
parent 5b337d75f7
commit 6959430b83
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/systems/t_bsd.pas
View File

@ -193,7 +193,10 @@ implementation
internalerror(2004010306);
mangledstring := hp2.func^;
{$ifdef powerpc}
if (po_public in hp2.procdef.procoptions) then
{ if (po_public in hp2.procdef.procoptions) or
(hp2.procdef.hasforward and
(po_public in hp2.procdef.forwarddef.procoptions)) then
}
begin
importsSection.concat(Tai_section.Create(sec_code));
importsSection.concat(Tai_symbol.createname_global(mangledstring,AT_FUNCTION,0));
@ -731,7 +734,11 @@ initialization
end.
{
$Log$
Revision 1.12 2004-03-05 22:17:11 jonas
Revision 1.13 2004-03-29 21:19:33 florian
* imported procedures are always made global (in the sense of the
assembler)
Revision 1.12 2004/03/05 22:17:11 jonas
* fixed importing of variables from shared libraries, but disabled
PIC support for now. You have to save/restore r31 when you us it! :)
Also, it's not necessary to support the imported variables