* 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

@@ -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;
 

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;
 

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;