瀏覽代碼

* avoid trailing spaces in solaris ld call

git-svn-id: trunk@14281 -
pierre 15 年之前
父節點
當前提交
2354c0d43a
共有 1 個文件被更改,包括 2 次插入1 次删除
  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
       while not linkres.data.Empty do
         begin
         begin
           s:=linkres.data.GetFirst;
           s:=linkres.data.GetFirst;
-          linkstr:=linkstr+s+' ';
+	  if s<>'' then
+            linkstr:=linkstr+' '+s;
         end;
         end;
       linkres.free;
       linkres.free;
       Replace(cmdstr,'$RESDATA',linkstr);
       Replace(cmdstr,'$RESDATA',linkstr);