Browse Source

amunits: in agraphics legacy support, use ExecFreeMem (OS call) instead of FreeMem (RTL call) to free the Bitmap which was created using ExecAllocMem

Karoly Balogh 3 years ago
parent
commit
539f2cd7f0
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/amunits/src/coreunits/agraphics.pas

+ 1 - 1
packages/amunits/src/coreunits/agraphics.pas

@@ -2605,7 +2605,7 @@ begin
     for i := 0 to Depth - 1 do
       if MyBM^.Planes[i] <> nil then
         FreeRaster(MyBM^.Planes[i], Width, Height);
-    FreeMem(MyBM, SizeOf(TBitMap));
+    ExecFreeMem(MyBM, SizeOf(TBitMap));
   end;
 end;