paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-05 13:25:58 +02: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 begin
readed:=fdRead(1,buf,sizeof(buf)); readed:=fdRead(1,buf,sizeof(buf));
i:=0; 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); inc(i);
if i+4<readed then if i+5<readed then
begin begin
s[1]:=#16; s:=space(16);
move(buf[i+2],s[1],16); move(buf[i+2],s[1],16);
i:=Pos(';',s); i:=Pos(';',s);
if i>0 then if i>0 then
@ -1409,8 +1409,8 @@ begin
Val(Copy(s,1,i-1),y); Val(Copy(s,1,i-1),y);
j:=Pos('R',s); j:=Pos('R',s);
if j=0 then if j=0 then
j:=length(s)+1; j:=length(s);
Val(Copy(s,i+1,j-i),x); Val(Copy(s,i+1,j-(i+1)),x);
end; end;
end; end;
end; end;
@ -1492,7 +1492,10 @@ Begin
End. End.
{ {
$Log$ $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 * fixed fullwi, which did not check for 1,1
Revision 1.10 1998/10/27 11:13:27 peter Revision 1.10 1998/10/27 11:13:27 peter