Changeset 19 for trunk/Packages/Kernel/UDevice.pas

Timestamp:

Jan 21, 2018, 11:33:15 PM (6 years ago)

Author:

chronos

Message:

• Added: Locking of video memory because it is accessed by main thread and also application threads.

File:

• trunk/Packages/Kernel/UDevice.pas (modified) (3 diffs)

trunk/Packages/Kernel/UDevice.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs, UList, UGraphics;
+  Classes, SysUtils, Contnrs, UList, UGraphics, syncobjs;
 
 type
@@ -36 +36 @@
     function GetVideoMemory: PByte; virtual;
   public
+    Lock: TCriticalSection;
     constructor Create; override;
+    destructor Destroy; override;
     procedure GetSupportedModes(Modes: TObjectList); virtual;
     procedure VideoMemoryChange; virtual;
@@ -104 +106 @@
   ClassName := 'Video device';
   FVideoMode := TVideoMode.Create;
+  Lock := TCriticalSection.Create;
+end;
+
+destructor TDeviceVideo.Destroy;
+begin
+  Lock.Free;
+  FVideoMode.Free;
+  inherited Destroy;
 end;