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

* reset bufpos,bufend in opentext like tp7

Browse Source
This commit is contained in:
peter 1998-08-26 15:33:28 +00:00
parent 5dce7ad29a
commit 23225bea44
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/text.inc
View File

@ -135,6 +135,8 @@ Begin
End; End;
End; End;
TextRec(t).mode:=word(mode); TextRec(t).mode:=word(mode);
TextRec(t).bufpos:=0;
TextRec(t).bufend:=0;
FileFunc(TextRec(t).OpenFunc)(TextRec(t)) FileFunc(TextRec(t).OpenFunc)(TextRec(t))
End; End;
@ -1200,7 +1202,10 @@ end;
{ {
$Log$ $Log$
Revision 1.22 1998-08-26 11:23:25 pierre Revision 1.23 1998-08-26 15:33:28 peter
* reset bufpos,bufend in opentext like tp7
Revision 1.22 1998/08/26 11:23:25 pierre
* close did not reset the bufpos and bufend fields * close did not reset the bufpos and bufend fields
led to problems when using the same file several times led to problems when using the same file several times