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

* when creating pic code, every procedure must be declared being global

Browse Source 
git-svn-id: trunk@1733 -
This commit is contained in:
florian 2005-11-13 18:08:49 +00:00
parent 7ab72f43b3
commit ca921976f6
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/psub.pas
View File

@ -1173,7 +1173,12 @@ implementation
if (not current_module.in_interface) then
include(pdflags,pd_implemen);
if (not current_module.is_unit) or
maybe_smartlink_symbol then
maybe_smartlink_symbol or
{
taking addresses of static procedures goes wrong
if they aren't global when pic is used (FK)
}
(cs_create_pic in aktmoduleswitches) then
include(pd.procoptions,po_global);
pd.forwarddef:=false;
end;