From d4913f490f30a2f4521573fadd6229f0a7e6402a Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 8 Feb 2021 11:10:37 +0000
Subject: [PATCH] * fixed off by one errors in the new video unit routines

git-svn-id: branches/unicodekvm@48527 -
---
 packages/rtl-console/src/inc/video.inc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/packages/rtl-console/src/inc/video.inc b/packages/rtl-console/src/inc/video.inc
index 06fa07b608..695bf42c3b 100644
--- a/packages/rtl-console/src/inc/video.inc
+++ b/packages/rtl-console/src/inc/video.inc
@@ -317,7 +317,7 @@ var
   I: Integer;
 begin
   { todo: optimize this }
-  for I := 0 to Length(EnhancedVideoBuf) do
+  for I := 0 to Length(EnhancedVideoBuf)-1 do
     begin
       with EnhancedVideoBuf[I] do
         VideoBuf^[I]:=(Attribute shl 8) or Ord(ExtendedGraphemeCluster2LegacyChar(ExtendedGraphemeCluster));
@@ -331,7 +331,7 @@ var
   I: Integer;
 begin
   { todo: optimize this }
-  for I := 0 to Length(EnhancedVideoBuf) do
+  for I := 0 to Length(EnhancedVideoBuf)-1 do
     begin
       with EnhancedVideoBuf[I] do
         begin
@@ -384,7 +384,7 @@ begin
   else if EnhancedVideoInitialized then
     begin
       { todo: optimize }
-      for I:=0 to Length(EnhancedVideoBuf) do
+      for I:=0 to Length(EnhancedVideoBuf)-1 do
         with EnhancedVideoBuf[I] do
           begin
             Attribute:=DefaultAttr;
@@ -399,7 +399,7 @@ begin
       else
         UpdateScreen(True);
       { todo: optimize }
-      for I:=0 to Length(EnhancedVideoBuf) do
+      for I:=0 to Length(EnhancedVideoBuf)-1 do
         with OldEnhancedVideoBuf[I] do
           begin
             Attribute:=DefaultAttr;