Merge branch 'heap' into 'main'

heap.inc with incremental formatting and instant recycling of fixed chunks.

See merge request freepascal.org/fpc/source!694

compiler/ncgld.pas

@@ -326,8 +326,12 @@ implementation
              else
                reference_reset_symbol(tvref,current_asmdata.WeakRefAsmSymbol(gvs.mangledname,AT_DATA),0,sizeof(pint),[]);
              { Enable size optimization with -Os or PIC code is generated and PIC uses GOT }
-             size_opt:=(cs_opt_size in current_settings.optimizerswitches)
+             size_opt:={$if defined(RISCV)}
-                       or ((cs_create_pic in current_settings.moduleswitches) and (tf_pic_uses_got in target_info.flags));
+                         true
+                       {$else defined(RISCV)}
+                         (cs_opt_size in current_settings.optimizerswitches)
+                         or ((cs_create_pic in current_settings.moduleswitches) and (tf_pic_uses_got in target_info.flags))
+                       {$endif defined(RISCV)};
              hreg_tv_rec:=NR_INVALID;
              if size_opt then
                begin

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;