paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 15:45:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed unused variables and types from Video.SysUpdateScreen

Browse Source 
git-svn-id: branches/unicodekvm@48536 -
This commit is contained in:
nickysn 2021-02-08 14:26:52 +00:00
parent 6109c56066
commit ec0fa8f46f
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl-console/src/win/video.pp
View File

@ -323,11 +323,6 @@ begin
end;
procedure SysUpdateScreen(Force: Boolean);
type WordRec = record
One, Two: Byte;
end; { wordrec }
var
BufSize,
BufCoord : COORD;
@ -338,8 +333,6 @@ var
ColCounter : Longint;
smallforce : boolean;
x1,y1,x2,y2 : longint;
p1,p2,p3 : PCardinal;
j : integer;
begin
if force then
smallforce:=true