Browse Source

* avoid trailing spaces in solaris ld call

git-svn-id: trunk@14281 -
pierre 15 years ago
parent
commit
2354c0d43a
1 changed files with 2 additions and 1 deletions
  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);