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

* when error when opening a file, then reset the mode to fmclosed

Browse Source
This commit is contained in:
peter 1999-02-17 10:13:29 +00:00
parent 1b411c29f9
commit a868c2a6cc
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/inc/text.inc
View File

@ -134,7 +134,10 @@ Begin
TextRec(t).mode:=mode; TextRec(t).mode:=mode;
TextRec(t).bufpos:=0; TextRec(t).bufpos:=0;
TextRec(t).bufend:=0; TextRec(t).bufend:=0;
FileFunc(TextRec(t).OpenFunc)(TextRec(t)) FileFunc(TextRec(t).OpenFunc)(TextRec(t));
{ reset the mode to closed when an error has occured }
if InOutRes<>0 then
TextRec(t).mode:=fmClosed;
End; End;
@ -1198,7 +1201,10 @@ end;
{ {
$Log$ $Log$
Revision 1.38 1999-01-28 19:38:19 peter Revision 1.39 1999-02-17 10:13:29 peter
* when error when opening a file, then reset the mode to fmclosed
Revision 1.38 1999/01/28 19:38:19 peter
* fixed readln(ansistring) * fixed readln(ansistring)
Revision 1.37 1998/12/15 22:43:06 peter Revision 1.37 1998/12/15 22:43:06 peter