Reduce allocation to 512MB not 1G

Author: angerman

overlays/patches/ghc/ghc-9.6-linker-pool-allocator.patch

@@ -16,7 +16,7 @@ index bab2ca3..5c9608c 100644
 +++ b/rts/linker/Elf.c
 @@ -131,6 +131,56 @@
        https://refspecs.linuxfoundation.org/elf/gabi4+/contents.html
- 
+
  */
 +void * memPoolAlloc(SectionKind kind, StgWord size);
 +
@@ -26,21 +26,21 @@ index bab2ca3..5c9608c 100644
 +
 +void memPoolProtect( void ) {
 +    if(__pool != NULL) {
-+        mprotect(__pool, 512*1024*1024, PROT_READ | PROT_WRITE);
-+        mprotect((void*)((uintptr_t)__pool + 512*1024*1024), 512*1024*1024, PROT_READ | PROT_WRITE | PROT_EXEC);
++        mprotect(__pool, 256*1024*1024, PROT_READ | PROT_WRITE);
++        mprotect((void*)((uintptr_t)__pool + 256*1024*1024), 256*1024*1024, PROT_READ | PROT_WRITE | PROT_EXEC);
 +    }
 +}
 +
 +void * memPoolAlloc(SectionKind kind, StgWord size) {
 +    if(__pool == NULL) {
 +        // allocate 1 GB of virtual memory.
-+        __pool = mmapAnonForLinker(1024*1024*1024);
++        __pool = mmapAnonForLinker(512*1024*1024);
 +        if(__pool == NULL) {
 +            printf("Failed to allocate memory pool\n");
 +            fflush(stdout);
 +            return NULL;
 +        }
-+        __pool_rw_offset = (void*)((uintptr_t)__pool + 512*1024*1024);
++        __pool_rw_offset = (void*)((uintptr_t)__pool + 256*1024*1024);
 +        __pool_rx_offset = __pool_rw_offset;
 +    }
 +    // align to 64 bytes
@@ -51,7 +51,7 @@ index bab2ca3..5c9608c 100644
 +        ret = __pool_rx_offset;
 +        // printf("Allocated RX %p\n", ret);
 +        __pool_rx_offset = (void*)((uintptr_t)__pool_rx_offset + alignedSize);
-+        if((uintptr_t)__pool_rx_offset > (uintptr_t)__pool + 1024*1024*1024) {
++        if((uintptr_t)__pool_rx_offset > (uintptr_t)__pool + 512*1024*1024) {
 +            printf("Out of memory pool\n");
 +            fflush(stdout);
 +            return NULL;
@@ -68,7 +68,7 @@ index bab2ca3..5c9608c 100644
 +    }
 +    return ret;
 +}
- 
+
  #if defined(SHN_XINDEX)
  /* global variable which address is used to signal an uninitialised shndx_table */
 @@ -813,7 +863,8 @@ ocGetNames_ELF ( ObjectCode* oc )
@@ -84,11 +84,11 @@ index bab2ca3..5c9608c 100644
 @@ -860,7 +911,8 @@ ocGetNames_ELF ( ObjectCode* oc )
            unsigned nstubs = numberOfStubsForSection(oc, i);
            unsigned stub_space = STUB_SIZE * nstubs;
- 
+
 -          void * mem = mmapAnonForLinker(size+stub_space);
 +          void * mem = memPoolAlloc(kind, stub_space + size);
 +        //   void * mem = mmapAnonForLinker(size+stub_space);
- 
+
            if( mem == MAP_FAILED ) {
              barf("failed to mmap allocated memory to load section %d. "
 @@ -967,7 +1019,8 @@ ocGetNames_ELF ( ObjectCode* oc )
@@ -104,12 +104,12 @@ index bab2ca3..5c9608c 100644
 @@ -2020,7 +2073,8 @@ ocResolve_ELF ( ObjectCode* oc )
      ocFlushInstructionCache( oc );
  #endif
- 
+
 -    return ocMprotect_Elf(oc);
 +    // return ocMprotect_Elf(oc);
 +    return true;
  }
- 
+
  /*
 diff --git a/rts/linker/Elf.h b/rts/linker/Elf.h
 index 2b9ad87..cf7a541 100644
@@ -120,5 +120,5 @@ index 2b9ad87..cf7a541 100644
  void freeNativeCode_ELF  ( ObjectCode *nc );
  void *loadNativeObj_ELF  ( pathchar *path, char **errmsg );
 +void memPoolProtect      ( void );
- 
+
  #include "EndPrivate.h"