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

* fixed read(char) with empty buffer

Browse Source
This commit is contained in:
peter 1998-12-11 18:07:39 +00:00
parent d439e323fd
commit 39c8939bcc
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/inc/text.inc
View File

@ -806,14 +806,14 @@ Begin
begin
FileFunc(f.InOutFunc)(f);
If f.BufPos>=f.BufEnd Then
c:=#26;
end
else
begin
c:=f.Bufptr^[f.BufPos];
Inc(f.BufPos);
begin
c:=#26;
exit;
end;
end;
End;
c:=f.Bufptr^[f.BufPos];
inc(f.BufPos);
end;
Procedure Read_PChar(var f : TextRec;var s : PChar);[Public,Alias:{$ifdef FPCNAMES}'FPC_'+{$endif}'READ_TEXT_PCHAR_AS_POINTER'];
@ -1212,7 +1212,10 @@ end;
{
$Log$
Revision 1.35 1998-11-27 14:50:58 peter
Revision 1.36 1998-12-11 18:07:39 peter
* fixed read(char) with empty buffer
Revision 1.35 1998/11/27 14:50:58 peter
+ open strings, $P switch support
Revision 1.34 1998/11/16 12:21:48 peter