paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

atari: fixed file opening, we can now read text files at least on this platform

Browse Source 
git-svn-id: trunk@34696 -
This commit is contained in:
Károly Balogh 2016-10-09 13:23:59 +00:00
parent 5efb32285a
commit 63166555a2
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/atari/sysfile.inc
View File

@ -222,13 +222,19 @@ begin
if (flags and $1000)<>0 then if (flags and $1000)<>0 then
dosResult:=gemdos_fcreate(p,0) dosResult:=gemdos_fcreate(p,0)
else else
dosResult:=gemdos_fopen(p,filerec(f).mode); dosResult:=gemdos_fopen(p,flags and 3);
if oldp<>p then if oldp<>p then
freemem(p); freemem(p);
if dosResult < 0 then if dosResult < 0 then
Error2InOutRes(dosResult); begin
Error2InOutRes(dosResult);
filerec(f).mode:=fmClosed;
exit;
end
else
filerec(f).handle:=handle;
{ append mode } { append mode }
if ((Flags and $100)<>0) and if ((Flags and $100)<>0) and