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

atari: return a valid filehandle in do_open(). this code accidentally worked before with -O2, because the way the reg uses overlapped, but failed with -O-...

Browse Source 
git-svn-id: trunk@35227 -
This commit is contained in:
Károly Balogh 2017-01-04 04:53:41 +00:00
parent 14c365e7b5
commit f69bfe0ee4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/atari/sysfile.inc
View File

@ -173,7 +173,6 @@ procedure do_open(var f;p:pchar;flags:longint; pchangeable: boolean);
} }
var var
oldp : pchar; oldp : pchar;
handle : longint;
dosResult: longint; dosResult: longint;
begin begin
{ close first if opened } { close first if opened }
@ -234,7 +233,7 @@ begin
exit; exit;
end end
else else
filerec(f).handle:=handle; filerec(f).handle:=word(dosResult);
{ append mode } { append mode }
if ((Flags and $100)<>0) and if ((Flags and $100)<>0) and