Explorar o código

* avoid trailing spaces in solaris ld call

git-svn-id: trunk@14281 -
pierre %!s(int64=15) %!d(string=hai) anos
pai
achega
2354c0d43a
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      compiler/systems/t_sunos.pas

+ 2 - 1
compiler/systems/t_sunos.pas

@@ -507,7 +507,8 @@ begin
       while not linkres.data.Empty do
         begin
           s:=linkres.data.GetFirst;
-          linkstr:=linkstr+s+' ';
+	  if s<>'' then
+            linkstr:=linkstr+' '+s;
         end;
       linkres.free;
       Replace(cmdstr,'$RESDATA',linkstr);