瀏覽代碼

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

Margers 1 年之前
父節點
當前提交
d1e239f3c4
共有 1 個文件被更改,包括 8 次插入2 次删除
  1. 8 2
      packages/rtl-console/src/unix/video.pp

+ 8 - 2
packages/rtl-console/src/unix/video.pp

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