paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 01:19:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed GetXY at startup

Browse Source
This commit is contained in:
peter 1998-11-10 15:01:01 +00:00
parent 9eb8ad1648
commit 0129be9812
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/linux/crt.pp
View File

@ -1397,11 +1397,11 @@ begin
begin
readed:=fdRead(1,buf,sizeof(buf));
i:=0;
while (i+4<readed) and (buf[i]<>#27) and (buf[i+1]<>'[') do
while (i+5<readed) and (buf[i]<>#27) and (buf[i+1]<>'[') do
inc(i);
if i+4<readed then
if i+5<readed then
begin
s[1]:=#16;
s:=space(16);
move(buf[i+2],s[1],16);
i:=Pos(';',s);
if i>0 then
@ -1409,8 +1409,8 @@ begin
Val(Copy(s,1,i-1),y);
j:=Pos('R',s);
if j=0 then
j:=length(s)+1;
Val(Copy(s,i+1,j-i),x);
j:=length(s);
Val(Copy(s,i+1,j-(i+1)),x);
end;
end;
end;
@ -1492,7 +1492,10 @@ Begin
End.
{
$Log$
Revision 1.11 1998-10-30 12:11:51 peter
Revision 1.12 1998-11-10 15:01:01 peter
* fixed GetXY at startup
Revision 1.11 1998/10/30 12:11:51 peter
* fixed fullwi, which did not check for 1,1
Revision 1.10 1998/10/27 11:13:27 peter