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

+ Flush on close only for output files cd ../inc

Browse Source
This commit is contained in:
michael 1998-08-17 22:42:17 +00:00
parent 95b2768bc1
commit 8a66987b6c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/text.inc
View File

@ -108,7 +108,8 @@ Begin
If (TextRec(t).mode<>fmClosed) Then If (TextRec(t).mode<>fmClosed) Then
Begin Begin
{ Write pending buffer } { Write pending buffer }
FileFunc(TextRec(t).InOutFunc)(TextRec(t)); If Textrec(t).Mode=fmoutput then
FileFunc(TextRec(t).InOutFunc)(TextRec(t));
TextRec(t).mode:=fmClosed; TextRec(t).mode:=fmClosed;
{ Only close functions not connected to stdout.} { Only close functions not connected to stdout.}
If ((TextRec(t).Handle<>StdInputHandle) or If ((TextRec(t).Handle<>StdInputHandle) or
@ -1196,7 +1197,10 @@ end;
{ {
$Log$ $Log$
Revision 1.20 1998-08-11 00:05:28 peter Revision 1.21 1998-08-17 22:42:17 michael
+ Flush on close only for output files cd ../inc
Revision 1.20 1998/08/11 00:05:28 peter
* $ifdef ver0_99_5 updates * $ifdef ver0_99_5 updates
Revision 1.19 1998/07/30 13:26:16 michael Revision 1.19 1998/07/30 13:26:16 michael