paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 10:20:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@35197 -
This commit is contained in:
Károly Balogh 2016-12-26 22:30:05 +00:00
parent 3aecf60dff
commit a4eb61cffb
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/atari/gemdos.inc
View File

@ -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;

2
rtl/atari/sysfile.inc
View File

@ -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);