Przeglądaj źródła

initialize result before passing it to FindFile()

git-svn-id: trunk@40217 -
Károly Balogh 6 lat temu
rodzic
commit
12a22b593d
1 zmienionych plików z 2 dodań i 2 usunięć
  1. 2 2
      compiler/systems/t_bsd.pas

+ 2 - 2
compiler/systems/t_bsd.pas

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