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

* fix making string empty in readln when cursor is not at the end

Browse Source
This commit is contained in:
peter 2002-12-15 20:22:24 +00:00
parent 3f5541e996
commit 95ce19f3b2
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/go32v2/crt.pp
View File

@ -722,7 +722,10 @@ Begin
#8 : BackSpace; #8 : BackSpace;
^Y, ^Y,
#27 : begin #27 : begin
f.bufpos:=f.bufend; while f.bufpos<f.bufend do begin
WriteChar(f.bufptr^[f.bufpos]);
inc(f.bufpos);
end;
while f.bufend>0 do while f.bufend>0 do
BackSpace; BackSpace;
end; end;
@ -831,7 +834,10 @@ end.
{ {
$Log$ $Log$
Revision 1.7 2002-09-10 10:38:04 pierre Revision 1.8 2002-12-15 20:22:24 peter
* fix making string empty in readln when cursor is not at the end
Revision 1.7 2002/09/10 10:38:04 pierre
* merged from fixes: fix bug report 1974 * merged from fixes: fix bug report 1974
Revision 1.6 2002/09/07 16:01:18 peter Revision 1.6 2002/09/07 16:01:18 peter