From ec0fa8f46f25ec4f307486dc6fc9b7fe2d8c3bc0 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 8 Feb 2021 14:26:52 +0000
Subject: [PATCH] - removed unused variables and types from
 Video.SysUpdateScreen

git-svn-id: branches/unicodekvm@48536 -
---
 packages/rtl-console/src/win/video.pp | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/packages/rtl-console/src/win/video.pp b/packages/rtl-console/src/win/video.pp
index 866a93dc21..f603425808 100644
--- a/packages/rtl-console/src/win/video.pp
+++ b/packages/rtl-console/src/win/video.pp
@@ -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