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

* warning instead of error when switching to static linking

Browse Source
This commit is contained in:
peter 1999-07-07 20:33:53 +00:00
parent 3843295ca6
commit 0dd9b0b7de
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/link.pas
View File

@ -165,7 +165,7 @@ begin
{ 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
Comment(V_Error,'unit '+modulename^+' can''t be smart linked, switching to static linking'); Comment(V_Warning,'unit '+modulename^+' can''t be smart linked, switching to static linking');
mask:=mask or link_static; mask:=mask or link_static;
end end
else else
@ -182,7 +182,7 @@ begin
{ if shared not avail then try static linking } { if shared not avail then try static linking }
if (flags and uf_static_linked)<>0 then if (flags and uf_static_linked)<>0 then
begin begin
Comment(V_Error,'unit '+modulename^+' can''t be shared linked, switching to static linking'); Comment(V_Warning,'unit '+modulename^+' can''t be shared linked, switching to static linking');
mask:=mask or link_static; mask:=mask or link_static;
end end
else else
@ -715,7 +715,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.59 1999-07-05 16:21:26 peter Revision 1.60 1999-07-07 20:33:53 peter
* warning instead of error when switching to static linking
Revision 1.59 1999/07/05 16:21:26 peter
* fixed linking for units without linking necessary * fixed linking for units without linking necessary
Revision 1.58 1999/07/03 00:29:51 peter Revision 1.58 1999/07/03 00:29:51 peter