paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-24 23:38:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Branch to save Enhanced video buffer or Legacy video buffer (Unix).

Browse Source
This commit is contained in:
Margers 2024-09-11 01:28:56 +00:00 committed by Michael Van Canneyt
parent f3eb7f8608
commit d1e239f3c4
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-console/src/unix/video.pp
View File

@ -1233,9 +1233,15 @@ begin
else else
{$endif} {$endif}
updateTTY(force); updateTTY(force);
if VideoInitialized then
begin
move(VideoBuf^,OldVideoBuf^,VideoBufSize);
end else
begin
for I := Low(EnhancedVideoBuf) to High(EnhancedVideoBuf) do for I := Low(EnhancedVideoBuf) to High(EnhancedVideoBuf) do
OldEnhancedVideoBuf[I] := EnhancedVideoBuf[I]; OldEnhancedVideoBuf[I] := EnhancedVideoBuf[I];
end; end;
end;
function SysGetCapabilities: Word; function SysGetCapabilities: Word;