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

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 -

rtl/embedded/heapmgr.pp

@@ -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