atari: fixed file rename, tio test passes now on TOS

git-svn-id: trunk@35197 -

rtl/atari/gemdos.inc

@@ -121,4 +121,4 @@ procedure gemdos_pterm(returncode: smallint); syscall 1 76;
 function gemdos_fsfirst(filename: pchar; attr: smallint): longint; syscall 1 78;
 function gemdos_fsnext: smallint; syscall 1 79;
 
-function gemdos_frename(oldname: pchar; newname: pchar): longint; syscall 1 86;
+function gemdos_frename(zero: word; oldname: pchar; newname: pchar): longint; syscall 1 86;

rtl/atari/sysfile.inc

@@ -55,7 +55,7 @@ begin
   DoDirSeparators(p1,p1changeable);
   DoDirSeparators(p2,p2changeable);
 
-  dosResult:=gemdos_frename(p1,p2);
+  dosResult:=gemdos_frename(0,p1,p2);
   if dosResult < 0 then
     Error2InOutRes(dosResult);