From a4eb61cffb8996be467e63b8f14db405461079fa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?K=C3=A1roly=20Balogh?= Date: Mon, 26 Dec 2016 22:30:05 +0000 Subject: [PATCH] atari: fixed file rename, tio test passes now on TOS git-svn-id: trunk@35197 - --- rtl/atari/gemdos.inc | 2 +- rtl/atari/sysfile.inc | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/rtl/atari/gemdos.inc b/rtl/atari/gemdos.inc index 13aea2b60b..d685041da9 100644 --- a/rtl/atari/gemdos.inc +++ b/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; diff --git a/rtl/atari/sysfile.inc b/rtl/atari/sysfile.inc index 7c2f57b906..9426681fb8 100644 --- a/rtl/atari/sysfile.inc +++ b/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);