paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 20:57:17 +01: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 begin
FileFunc(f.InOutFunc)(f); FileFunc(f.InOutFunc)(f);
If f.BufPos>=f.BufEnd Then If f.BufPos>=f.BufEnd Then
c:=#26; begin
end c:=#26;
else exit;
begin end;
c:=f.Bufptr^[f.BufPos];
Inc(f.BufPos);
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']; 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$ $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 + open strings, $P switch support
Revision 1.34 1998/11/16 12:21:48 peter Revision 1.34 1998/11/16 12:21:48 peter