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

* fixed bug with readln where it sometime didn't read until eol

Browse Source
This commit is contained in:
peter 1999-04-07 22:05:18 +00:00
parent 3dafa09576
commit d028279366
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/text.inc
View File

@ -773,7 +773,7 @@ Begin
Move(startp^,s[sPos+1],Len); Move(startp^,s[sPos+1],Len);
inc(sPos,Len); inc(sPos,Len);
{ was it a LF? then leave } { was it a LF? then leave }
if p^=#10 then if (p<maxp) and (p^=#10) then
begin begin
if (spos>0) and (s[spos]=#13) then if (spos>0) and (s[spos]=#13) then
dec(sPos); dec(sPos);
@ -1208,7 +1208,10 @@ end;
{ {
$Log$ $Log$
Revision 1.42 1999-03-16 17:49:39 jonas Revision 1.43 1999-04-07 22:05:18 peter
* fixed bug with readln where it sometime didn't read until eol
Revision 1.42 1999/03/16 17:49:39 jonas
* changes for internal Val code (do a "make cycle OPT=-dvalintern" to test) * changes for internal Val code (do a "make cycle OPT=-dvalintern" to test)
* in text.inc: changed RTE 106 when read integer values are out of bounds to RTE 201 * in text.inc: changed RTE 106 when read integer values are out of bounds to RTE 201
* in systemh.inc: disabled "support_fixed" for the i386 because it gave internal errors, * in systemh.inc: disabled "support_fixed" for the i386 because it gave internal errors,