Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Inline some heap manager calls

Michaël Van Canneyt 4 months ago
parent
c8bf474d6d
commit
1f3cdf10b7
1 changed files with 3 additions and 3 deletions
Unified View Show Diff Stats
  1. 3 3
      rtl/inc/heaph.inc

+ 3 - 3
rtl/inc/heaph.inc
View File 

@@ -97,12 +97,12 @@ Procedure Freememory(p:pointer;Size:ptruint);
 
 Function  MemSize(p:pointer):ptruint;
 
 Function  MemSize(p:pointer):ptruint;
 
 
 
 { Delphi functions }
 
 { Delphi functions }
 
-function GetMem(size:ptruint):pointer;
 
+function GetMem(size:ptruint):pointer; inline;
 
 function GetMemory(size:ptruint):pointer; cdecl;
 
 function GetMemory(size:ptruint):pointer; cdecl;
 
-function Freemem(p:pointer):ptruint;
 
+function Freemem(p:pointer):ptruint; inline;
 
 function Freememory(p:pointer):ptruint; cdecl;
 
 function Freememory(p:pointer):ptruint; cdecl;
 
 function AllocMem(Size:ptruint):pointer;
 
 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 ReAllocMemory(p:pointer;Size:ptruint):pointer; cdecl;
 
 function GetHeapStatus:THeapStatus;
 
 function GetHeapStatus:THeapStatus;
 
 function GetFPCHeapStatus:TFPCHeapStatus;
 
 function GetFPCHeapStatus:TFPCHeapStatus;