paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:39:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed off by one errors in the new video unit routines

Browse Source 
git-svn-id: branches/unicodekvm@48527 -
This commit is contained in:
nickysn 2021-02-08 11:10:37 +00:00
parent 4119d1e05f
commit d4913f490f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/rtl-console/src/inc/video.inc
View File

@ -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;