Преглед на файлове

* Inline some heap manager calls

Michaël Van Canneyt преди 5 месеца
родител
ревизия
1f3cdf10b7
променени са 1 файла, в които са добавени 3 реда и са изтрити 3 реда
  1. 3 3
      rtl/inc/heaph.inc

+ 3 - 3
rtl/inc/heaph.inc

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