* don't warn that a unit won't be smartlinked in case no .a file is

    available when smart linking happens using the plain object files
    (mantis #12316)


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11874 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 1 deletions

diff --git a/compiler/link.pas b/compiler/link.pas
index 3dc6b1d68f..0f2d611710 100644
--- a/compiler/link.pas
+++ b/compiler/link.pas
@@ -376,7 +376,11 @@ Implementation
                     { if smart not avail then try static linking }
                     if (flags and uf_static_linked)<>0 then
                      begin
-                       Message1(exec_t_unit_not_smart_linkable_switch_to_static,modulename^);
+                       { if not create_smartlink_library, then smart linking happens using the
+                         regular object files
+                       }
+                       if create_smartlink_library then
+                         Message1(exec_t_unit_not_smart_linkable_switch_to_static,modulename^);
                        mask:=mask or link_static;
                      end
                     else