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

Make HeapMgr.GetAlignedMem public. This function is useful for embedded targets where alignment > 32(or sizeof(pointer)) bytes is required.

Browse Source 
Fix RegisterHeapBlock. Calling FreeMem requires the heap manager to be installed, plus it requires the size of the segment to be stored in front of the pointer. Instead use InternalFreeMem

git-svn-id: trunk@29611 -
This commit is contained in:
Jeppe Johansen 2015-02-03 00:24:51 +00:00
parent 7a826cc481
commit 85c5e7330a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/embedded/heapmgr.pp
View File

@ -18,6 +18,8 @@ Unit heapmgr;
interface
procedure RegisterHeapBlock(AAddress: pointer; ASize: ptruint);
function GetAlignedMem(Size, Alignment: ptruint): pointer;
implementation
@ -220,7 +222,7 @@ Unit heapmgr;
procedure RegisterHeapBlock(AAddress: pointer; ASize: ptruint);
begin
FreeMem(AAddress, ASize);
InternalFreeMem(AAddress, ASize);
end;
const