diff options
| author | GHC GitLab CI <ghc-ci@gitlab-haskell.org> | 2022-01-28 21:05:53 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-06 01:43:56 -0500 |
| commit | e96f50beec172f5ff95769842cb9be724363311c (patch) | |
| tree | c08b5712740dde1994892e48631a906e4156ecc0 | |
| parent | 2d6f0b17e3ce9326abd43e187910db0a5e519efa (diff) | |
| download | haskell-e96f50beec172f5ff95769842cb9be724363311c.tar.gz | |
rts/m32: Increase size of free page pool to 256 pages
| -rw-r--r-- | rts/linker/M32Alloc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/linker/M32Alloc.c b/rts/linker/M32Alloc.c index b86cb8b813..c81cac919c 100644 --- a/rts/linker/M32Alloc.c +++ b/rts/linker/M32Alloc.c @@ -148,7 +148,7 @@ The allocator is *not* thread-safe. /* How many pages should we map at once when re-filling the free page pool? */ #define M32_MAP_PAGES 32 /* Upper bound on the number of pages to keep in the free page pool */ -#define M32_MAX_FREE_PAGE_POOL_SIZE 64 +#define M32_MAX_FREE_PAGE_POOL_SIZE 256 /* A utility to verify that a given address is "acceptable" for use by m32. */ static bool |