* fix memory leak of video unit as proposed by Michael Karst, resolves #22876

git-svn-id: trunk@22927 -

.gitattributes

@@ -12954,6 +12954,7 @@ tests/webtbs/tw2280.pp svneol=native#text/plain
 tests/webtbs/tw22860.pp svneol=native#text/plain
 tests/webtbs/tw22864.pp svneol=native#text/pascal
 tests/webtbs/tw22869.pp svneol=native#text/plain
+tests/webtbs/tw22876.pp svneol=native#text/pascal
 tests/webtbs/tw22878.pp svneol=native#text/plain
 tests/webtbs/tw2289.pp svneol=native#text/plain
 tests/webtbs/tw2291.pp svneol=native#text/plain

rtl/win/video.pp

@@ -746,4 +746,13 @@ end;
 initialization
   SetVideoDriver(SysVideoDriver);
   TargetEntry;
+
+finalization
+  if (OrigScreenSize <> 0) and (OrigScreen <> nil) then
+    begin
+      FreeMem (OrigScreen, OrigScreenSize);
+      OrigScreen := nil;
+      OrigScreenSize := 0;
+    end;
+
 end.

tests/webtbs/tw22876.pp

@@ -0,0 +1,6 @@
+{ %OPT=-gh }
+program test;
+uses video;
+
+begin
+end.