Selaa lähdekoodia

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 4 vuotta sitten
vanhempi
sitoutus
539f2cd7f0
1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
  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;