Browse Source

* 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: trunk@11874 -

Jonas Maebe 17 years ago
parent
commit
8adde04a0b
1 changed files with 5 additions and 1 deletions
  1. 5 1
      compiler/link.pas

+ 5 - 1
compiler/link.pas

@@ -376,7 +376,11 @@ Implementation
                     { if smart not avail then try static linking }
                     { if smart not avail then try static linking }
                     if (flags and uf_static_linked)<>0 then
                     if (flags and uf_static_linked)<>0 then
                      begin
                      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;
                        mask:=mask or link_static;
                      end
                      end
                     else
                     else