paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* free the old block in win16 global heap reallocmem

Browse Source 
git-svn-id: trunk@37639 -
This commit is contained in:
nickysn 2017-12-01 14:51:50 +00:00
parent d3d60568e7
commit ea8fc43f52
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/win16/glbheap.inc
View File

@ -372,6 +372,7 @@ circular linked list.
{ todo: do it in a more optimal way? }
result:=SysGlobalAllocMem(size);
Move(p^,result^,SysGlobalMemSize(p));
SysGlobalFreeMem(p);
end;
p := result;
end;