paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:29:31 +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

2
compiler/systems/t_sunos.pas
View File

@ -494,6 +494,7 @@ var
StaticStr, RedirectStr, StaticStr, RedirectStr,
StripStr : string[40]; StripStr : string[40];
begin begin
success:=false;
if not(cs_link_nolink in current_settings.globalswitches) then if not(cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.exefilename); Message1(exec_i_linking,current_module.exefilename);
@ -604,6 +605,7 @@ var
cmdstr : TCmdStr; cmdstr : TCmdStr;
need_quotes, success : boolean; need_quotes, success : boolean;
begin begin
success:=false;
MakeSharedLibrary:=false; MakeSharedLibrary:=false;
if not(cs_link_nolink in current_settings.globalswitches) then if not(cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.sharedlibfilename); Message1(exec_i_linking,current_module.sharedlibfilename);