From 9608c4eabe329844d2eb4a84a341bf7430decb5e Mon Sep 17 00:00:00 2001 From: sergei Date: Thu, 2 Jun 2011 10:49:28 +0000 Subject: [PATCH] * Interface wrappers must be global when linking smart, Mantis #19462. Other targets already have this condition in place. git-svn-id: trunk@17631 - --- compiler/mips/cgcpu.pas | 2 +- compiler/sparc/cgcpu.pas | 2 +- compiler/x86_64/cgcpu.pas | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/mips/cgcpu.pas b/compiler/mips/cgcpu.pas index f156237034..a145800cab 100644 --- a/compiler/mips/cgcpu.pas +++ b/compiler/mips/cgcpu.pas @@ -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; diff --git a/compiler/sparc/cgcpu.pas b/compiler/sparc/cgcpu.pas index c7236b4319..ac90f2328b 100644 --- a/compiler/sparc/cgcpu.pas +++ b/compiler/sparc/cgcpu.pas @@ -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; diff --git a/compiler/x86_64/cgcpu.pas b/compiler/x86_64/cgcpu.pas index 8a2ad9ca45..c7406afea5 100644 --- a/compiler/x86_64/cgcpu.pas +++ b/compiler/x86_64/cgcpu.pas @@ -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;