paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* rtl-console: slight refactor of how Amiga SysUpdateScreen() addresses the videobuf. this results in slightly more optimal code with less complex addressing, which helps low-end processors

Browse Source
This commit is contained in:
Karoly Balogh 2021-12-25 13:17:34 +01:00
parent 5264e48d90
commit cc7c328a7c
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
packages/rtl-console/src/amicommon/video.pp
View File

@ -564,19 +564,20 @@ end;
procedure SysUpdateScreen(Force: Boolean);
var
BufCounter: Longint;
SmallForce: Boolean;
Counter, CounterX, CounterY: LongInt;
NumChanged: Integer;
LocalRP: PRastPort;
sY, sX: LongInt;
TmpCharData: Word;
{$ifdef VideoSpeedTest}
NumChanged: Integer;
t,ta: Double;
{$endif}
VBuf,OldVBuf: PWord;
begin
{$ifdef VideoSpeedTest}
ta := now();
NumChanged := 0;
{$endif}
SmallForce := False;
@ -621,12 +622,10 @@ begin
LocalRP := BufRp;
{$endif}
BufCounter:=0;
NumChanged:=0;
if Smallforce then
begin
VBuf:=@VideoBuf^[0];
OldVBuf:=@OldVideoBuf^[0];
{$ifdef VideoSpeedTest}
t := now();
{$endif}
@ -636,15 +635,17 @@ begin
sX := videoWindow^.borderLeft;
for CounterX := 0 to ScreenWidth - 1 do
begin
if (VideoBuf^[BufCounter] <> OldVideoBuf^[BufCounter]) or Force then
if (VBuf^ <> OldVBuf^) or Force then
begin
TmpCharData := VideoBuf^[BufCounter];
SetABPenDrMd(LocalRP, VideoPens[(TmpCharData shr 8) and %00001111], VideoPens[(TmpCharData shr 12) and %00000111], JAM2);
BltTemplate(CharPointers[TmpCharData and $FF], 0, SrcMod, LocalRP, sX, sY, 8, VideoFontHeight);
OldVideoBuf^[BufCounter] := VideoBuf^[BufCounter];
SetABPenDrMd(LocalRP, VideoPens[(VBuf^ shr 8) and %00001111], VideoPens[(VBuf^ shr 12) and %00000111], JAM2);
BltTemplate(CharPointers[VBuf^ and $FF], 0, SrcMod, LocalRP, sX, sY, 8, VideoFontHeight);
OldVBuf^:=VBuf^;
{$ifdef VideoSpeedTest}
Inc(NumChanged);
{$endif}
end;
Inc(BufCounter);
Inc(VBuf);
Inc(OldVBuf);
sX := sX + 8;
end;
sY := sY + VideoFontHeight;