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

initialize result before passing it to FindFile()

Browse Source 
git-svn-id: trunk@40217 -
This commit is contained in:
Károly Balogh 2018-11-04 18:03:00 +00:00
parent 4682ac269d
commit 12a22b593d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/systems/t_bsd.pas
View File

@ -373,14 +373,14 @@ Function TLinkerBSD.GetDarwinPrtobjName(isdll: boolean): TCmdStr;
var
startupfile: TCmdStr;
begin
result:='';
startupfile:=GetDarwinCrt1ObjName(isdll);
if startupfile<>'' then
begin
if not librarysearchpath.FindFile(startupfile,false,result) then
result:='/usr/lib/'+startupfile
end
else
result:='';
result:=maybequoted(result);
end;