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

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

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

git-svn-id: trunk@11874 -
This commit is contained in:
Jonas Maebe 2008-10-10 14:11:00 +00:00
parent d41cb0c251
commit 8adde04a0b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/link.pas
View File

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