mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 19:29:26 +02:00
* the longints in VLine16 converted to 16-bit
git-svn-id: trunk@25668 -
This commit is contained in:
parent
77dc18007d
commit
3a09ca7924
@ -2201,8 +2201,8 @@ End;
|
||||
procedure VLine16(x,y,y2: smallint); {$ifndef fpc}far;{$endif fpc}
|
||||
|
||||
var
|
||||
ytmp: smallint;
|
||||
ScrOfs,i : longint;
|
||||
ytmp,i: smallint;
|
||||
ScrOfs: word;
|
||||
BitMask : byte;
|
||||
|
||||
Begin
|
||||
|
Loading…
Reference in New Issue
Block a user