paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 00:20:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Win32: Prevent memory leak + exception when GlobalAlloc api fails. Leak reported on the forum.

Browse Source 
git-svn-id: trunk@56908 -
This commit is contained in:
balazs 2018-01-01 20:47:02 +00:00
parent c038b06190
commit 12997708a7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32proc.pp
View File

@ -1472,6 +1472,11 @@ begin
// amount of ALLOC_UNIT number in this structure // amount of ALLOC_UNIT number in this structure
maxRects := ALLOC_UNIT; maxRects := ALLOC_UNIT;
hData := GlobalAlloc(GMEM_MOVEABLE, sizeof(RGNDATAHEADER) + (sizeof(TRECT) * maxRects)); hData := GlobalAlloc(GMEM_MOVEABLE, sizeof(RGNDATAHEADER) + (sizeof(TRECT) * maxRects));
if hData = 0 then
begin
FreeMem(Data);
Exit;
end;
pData := GlobalLock(hData); pData := GlobalLock(hData);
pData^.rdh.dwSize := sizeof(RGNDATAHEADER); pData^.rdh.dwSize := sizeof(RGNDATAHEADER);
pData^.rdh.iType := RDH_RECTANGLES; pData^.rdh.iType := RDH_RECTANGLES;