Changeset 19 for trunk/Platform/Base/UPlatformBase.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/Platform/Base/UPlatformBase.pas (modified) (2 diffs)

trunk/Platform/Base/UPlatformBase.pas

@@ -93 +93 @@
     (VideoMode.Size.Y <> Mode.Size.Y) or
     (VideoMode.ColorFormat <> Mode.ColorFormat) then begin
-      VideoMode.Size := Mode.Size;
-      VideoMode.ColorFormat := Mode.ColorFormat;
-      ReAllocMem(VideoMemory, VideoMode.GetBytesPerImage);
-      FillDWord(VideoMemory^, VideoMode.GetBytesPerImage div 4, $ffffff);
+      Lock.Acquire;
+      try
+        if Mode.GetBytesPerImage <> VideoMode.GetBytesPerImage then begin
+          ReAllocMem(VideoMemory, Mode.GetBytesPerImage);
+          FillDWord(VideoMemory^, Mode.GetBytesPerImage div 4, $ffffff);
+        end;
+        VideoMode.Size := Mode.Size;
+        VideoMode.ColorFormat := Mode.ColorFormat;
+      finally
+        Lock.Release;
+      end;
       if Assigned(FOnModeChanged) then
         FOnModeChanged(Self);
@@ -151 +158 @@
 destructor TDeviceVideoBase.Destroy;
 begin
-  VideoMode.Free;
   inherited Destroy;
 end;