Quellcode durchsuchen

* avoid trailing spaces in solaris ld call

git-svn-id: trunk@14281 -
pierre vor 16 Jahren
Ursprung
Commit
2354c0d43a
1 geänderte Dateien mit 2 neuen und 1 gelöschten Zeilen
  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);