Преглед на файлове

* avoid trailing spaces in solaris ld call

git-svn-id: trunk@14281 -
pierre преди 16 години
родител
ревизия
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
         begin
           s:=linkres.data.GetFirst;
-          linkstr:=linkstr+s+' ';
+	  if s<>'' then
+            linkstr:=linkstr+' '+s;
         end;
       linkres.free;
       Replace(cmdstr,'$RESDATA',linkstr);