paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 17:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bugfix of FileOpen, on error would not return zero

Browse Source
This commit is contained in:
carl 1998-07-13 12:31:40 +00:00
parent 27bbe627c1
commit 09451d2805
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/amiga/objinc.inc
View File

@ -77,6 +77,7 @@ var
oflags : longint; oflags : longint;
AHandle : THandle; AHandle : THandle;
begin begin
AHandle:=0;
{ On opening reset error code } { On opening reset error code }
DosStreamError := 0; DosStreamError := 0;
if Mode=stCreate then if Mode=stCreate then
@ -296,8 +297,8 @@ END;
{ {
$Log$ $Log$
Revision 1.2 1998-07-09 11:55:49 carl Revision 1.3 1998-07-13 12:31:40 carl
+ working revision * bugfix of FileOpen, on error would not return zero
} }