paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 12:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* dont allocate/deallocate video buf, already done in video.inc

Browse Source
This commit is contained in:
armin 2004-09-17 18:30:00 +00:00
parent 38a0e5688a
commit 193d033ab9
1 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/netware/video.pp
View File

@ -61,31 +61,13 @@ begin
MaxVideoBufSize:= ScreenWidth * ScreenHeight * 2;
VideoBufSize := ScreenWidth * ScreenHeight * 2;
GetMem(VideoBuf,MaxVideoBufSize);
GetMem(OldVideoBuf,MaxVideoBufSize);
VideoBufAllocated := true;
{grab current screen contents}
_CopyFromScreenMemory (ScreenHeight, ScreenWidth, VideoBuf, 0, 0);
Move (VideoBuf^, OldVideoBuf^, MaxVideoBufSize);
LockUpdateScreen := 0;
{ClearScreen; not needed PM }
end;
procedure SysDoneVideo;
begin
{ ClearScreen; also not needed PM }
SetCursorType(crUnderLine);
{ SetCursorPos(0,0); also not needed PM }
if videoBufAllocated then
begin
FreeMem(VideoBuf,MaxVideoBufSize);
FreeMem(OldVideoBuf,MaxVideoBufSize);
videoBufAllocated := false;
end;
VideoBufSize:=0;
end;
@ -143,6 +125,7 @@ end;}
procedure SysUpdateScreen(Force: Boolean);
begin
if VideoBuf = nil then exit;
if (LockUpdateScreen<>0) or (VideoBufSize = 0) then
exit;
if not force then
@ -205,6 +188,7 @@ Const
initialization
VideoBufAllocated := false;
VideoBufSize := 0;
VideoBuf := nil;
SetVideoDriver (SysVideoDriver);
end.