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

* merged from fixes: fix bug report 1974

Browse Source
This commit is contained in:
pierre 2002-09-10 10:38:04 +00:00
parent 9943eee52e
commit a205f13682
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/go32v2/crt.pp
View File

@ -1,5 +1,6 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by the Free Pascal development team. Copyright (c) 1999-2000 by the Free Pascal development team.
Borland Pascal 7 Compatible CRT Unit for Go32V2 Borland Pascal 7 Compatible CRT Unit for Go32V2
@ -350,7 +351,7 @@ var
Begin Begin
GetScreenCursor(x,y); GetScreenCursor(x,y);
fil:=32 or (textattr shl 8); fil:=32 or (textattr shl 8);
if x<WinMaxX then if x<=WinMaxX then
DosmemFillword(VidSeg,((y-1)*ScreenWidth+(x-1))*2,WinMaxX-x+1,fil); DosmemFillword(VidSeg,((y-1)*ScreenWidth+(x-1))*2,WinMaxX-x+1,fil);
End; End;
@ -830,7 +831,10 @@ end.
{ {
$Log$ $Log$
Revision 1.6 2002-09-07 16:01:18 peter Revision 1.7 2002-09-10 10:38:04 pierre
* merged from fixes: fix bug report 1974
Revision 1.6 2002/09/07 16:01:18 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }