* made GetMemory, FreeMemory, ReallocMemory delphi compatible, resolves #17530

git-svn-id: trunk@16075 -

rtl/inc/heap.inc

@@ -291,7 +291,7 @@ begin
   FreeMem := MemoryManager.FreeMem(p);
 end;
 
-function FreeMemory(p:pointer):ptruint;
+function FreeMemory(p:pointer):ptruint; cdecl;
 begin
   FreeMemory := FreeMem(p);
 end;
@@ -301,7 +301,7 @@ begin
   GetMem := MemoryManager.GetMem(Size);
 end;
 
-function GetMemory(size:ptruint):pointer;
+function GetMemory(size:ptruint):pointer; cdecl;
 begin
   GetMemory := GetMem(size);
 end;
@@ -317,7 +317,7 @@ begin
   ReAllocMem := MemoryManager.ReAllocMem(p,size);
 end;
 
-function ReAllocMemory(var p:pointer;Size:ptruint):pointer;
+function ReAllocMemory(p:pointer;Size:ptruint):pointer; cdecl;
 begin
   ReAllocMemory := ReAllocMem(p,size);
 end;

rtl/inc/heaph.inc

@@ -87,12 +87,12 @@ Function  MemSize(p:pointer):ptruint;
 
 { Delphi functions }
 function GetMem(size:ptruint):pointer;
-function GetMemory(size:ptruint):pointer;
+function GetMemory(size:ptruint):pointer; cdecl;
 function Freemem(p:pointer):ptruint;
-function Freememory(p:pointer):ptruint;
+function Freememory(p:pointer):ptruint; cdecl;
 function AllocMem(Size:ptruint):pointer;
 function ReAllocMem(var p:pointer;Size:ptruint):pointer;
-function ReAllocMemory(var p:pointer;Size:ptruint):pointer;
+function ReAllocMemory(p:pointer;Size:ptruint):pointer; cdecl;
 function GetHeapStatus:THeapStatus;
 function GetFPCHeapStatus:TFPCHeapStatus;