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

* fixed initialization bug in assign.

Browse Source
This commit is contained in:
michael 1998-04-04 17:06:17 +00:00
parent 941a4fe391
commit 055750c235
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/text.inc
View File

@ -69,6 +69,8 @@ Begin
TextRec(t).Handle:=UnusedHandle; TextRec(t).Handle:=UnusedHandle;
TextRec(t).mode:=fmClosed; TextRec(t).mode:=fmClosed;
TextRec(t).BufSize:=128; TextRec(t).BufSize:=128;
TextRec(t).Bufpos:=0;
TextRec(T).Bufend:=0;
TextRec(t).Bufptr:=@TextRec(t).Buffer; TextRec(t).Bufptr:=@TextRec(t).Buffer;
TextRec(t).OpenFunc:=@FileOpenFunc; TextRec(t).OpenFunc:=@FileOpenFunc;
Move(s[1],TextRec(t).Name,Length(s)); Move(s[1],TextRec(t).Name,Length(s));
@ -214,6 +216,7 @@ Begin
{No data in buffer ? Fill it } {No data in buffer ? Fill it }
If TR^.BufPos>=TR^.BufEnd Then If TR^.BufPos>=TR^.BufEnd Then
FileFunc(TR^.InOutFunc)(TR^); FileFunc(TR^.InOutFunc)(TR^);
Temp:=TR^.BufPos; Temp:=TR^.BufPos;
while (TR^.BufPos<TR^.BufEnd) Do while (TR^.BufPos<TR^.BufEnd) Do
Begin Begin
@ -903,7 +906,10 @@ End;
{ {
$Log$ $Log$
Revision 1.2 1998-03-26 14:41:22 michael Revision 1.3 1998-04-04 17:06:17 michael
* fixed initialization bug in assign.
Revision 1.2 1998/03/26 14:41:22 michael
+ Added comp support for val and read(ln) + Added comp support for val and read(ln)
Revision 1.1.1.1 1998/03/25 11:18:43 root Revision 1.1.1.1 1998/03/25 11:18:43 root