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

* ensure success is initialized

Browse Source 
git-svn-id: trunk@29549 -
This commit is contained in:
florian 2015-01-25 15:16:11 +00:00
parent 53b06fa861
commit b98e13cd93
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/systems/t_sunos.pas
View File

@ -426,13 +426,13 @@ begin
{ Write staticlibraries }
if not StaticLibFiles.Empty then
begin
linkres.add('-(');
linkres.add('-(');
While not StaticLibFiles.Empty do
begin
S:=StaticLibFiles.GetFirst;
LinkRes.AddFileName(maybequoted(s))
end;
linkres.add('-)');
linkres.add('-)');
end;
{ Write sharedlibraries like -l<lib>, also add the needed dynamic linker
@ -494,6 +494,7 @@ var
StaticStr, RedirectStr,
StripStr : string[40];
begin
success:=false;
if not(cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.exefilename);
@ -604,6 +605,7 @@ var
cmdstr : TCmdStr;
need_quotes, success : boolean;
begin
success:=false;
MakeSharedLibrary:=false;
if not(cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.sharedlibfilename);
@ -627,7 +629,7 @@ begin
need_quotes:= (cs_link_nolink in current_settings.globalswitches) or
(RedirectStr<>'');
{ initname and fininame may contain $, which can be wrongly interpreted
in a link script, thus we surround them with single quotes
in a link script, thus we surround them with single quotes
in cs_link_nolink is in globalswitches }
if use_gnu_ld then
begin