Merged revisions 1557 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

r1557 (jonas)
  * fixed fpdup2() for non-text files

git-svn-id: branches/fixes_2_0@1558 -

rtl/unix/bunxovl.inc

@@ -278,8 +278,12 @@ Function FpDup2(var oldfile,newfile:file):cint;
 {
   Copies the filedescriptor oldfile to newfile
 }
+var
+  tmphandle : word;
 begin
+  tmphandle := filerec(newfile).handle;
   filerec(newfile):=filerec(oldfile);
+  filerec(newfile).handle := tmphandle;
   fpDup2:=fpDup2(filerec(oldfile).handle,filerec(newfile).handle);
 end;