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

* Interface wrappers must be global when linking smart, Mantis #19462. Other targets already have this condition in place.

Browse Source 
git-svn-id: trunk@17631 -
This commit is contained in:
sergei 2011-06-02 10:49:28 +00:00
parent ed2fda6927
commit 9608c4eabe
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/mips/cgcpu.pas
View File

@ -1667,7 +1667,7 @@ begin
Internalerror(200109191);
make_global := False;
if (not current_module.is_unit) or
if (not current_module.is_unit) or create_smartlink or
(procdef.owner.defowner.owner.symtabletype = globalsymtable) then
make_global := True;

2
compiler/sparc/cgcpu.pas
View File

@ -1363,7 +1363,7 @@ implementation
Internalerror(200109191);
make_global:=false;
if (not current_module.is_unit) or
if (not current_module.is_unit) or create_smartlink or
(procdef.owner.defowner.owner.symtabletype=globalsymtable) then
make_global:=true;

2
compiler/x86_64/cgcpu.pas
View File

@ -161,7 +161,7 @@ unit cgcpu;
Internalerror(200109191);
make_global:=false;
if (not current_module.is_unit) or
if (not current_module.is_unit) or create_smartlink or
(procdef.owner.defowner.owner.symtabletype=globalsymtable) then
make_global:=true;