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

* the longints in VLine16 converted to 16-bit

Browse Source 
git-svn-id: trunk@25668 -
This commit is contained in:
nickysn 2013-10-05 22:32:08 +00:00
parent 77dc18007d
commit 3a09ca7924
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/graph/src/msdos/graph.pp
View File

@ -2201,8 +2201,8 @@ End;
procedure VLine16(x,y,y2: smallint); {$ifndef fpc}far;{$endif fpc} procedure VLine16(x,y,y2: smallint); {$ifndef fpc}far;{$endif fpc}
var var
ytmp: smallint; ytmp,i: smallint;
ScrOfs,i : longint; ScrOfs: word;
BitMask : byte; BitMask : byte;
Begin Begin