paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +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); internalerror(2004010306);
mangledstring := hp2.func^; mangledstring := hp2.func^;
{$ifdef powerpc} {$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 begin
importsSection.concat(Tai_section.Create(sec_code)); importsSection.concat(Tai_section.Create(sec_code));
importsSection.concat(Tai_symbol.createname_global(mangledstring,AT_FUNCTION,0)); importsSection.concat(Tai_symbol.createname_global(mangledstring,AT_FUNCTION,0));
@ -731,7 +734,11 @@ initialization
end. end.
{ {
$Log$ $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 * fixed importing of variables from shared libraries, but disabled
PIC support for now. You have to save/restore r31 when you us it! :) PIC support for now. You have to save/restore r31 when you us it! :)
Also, it's not necessary to support the imported variables Also, it's not necessary to support the imported variables