mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 18:29:27 +02:00
+ Normal characters get written to the wrong buffer
git-svn-id: trunk@4747 -
This commit is contained in:
parent
0445dc039e
commit
c863a91be9
@ -784,7 +784,7 @@ Begin
|
||||
end;
|
||||
else begin
|
||||
if f.bufpos<f.bufsize-2 then begin
|
||||
f.buffer[f.bufpos]:=ch;
|
||||
f.bufptr^[f.bufpos]:=ch;
|
||||
inc(f.bufpos);
|
||||
WriteChar(ch);
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user