Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
14 lines
463 B
Diff
14 lines
463 B
Diff
diff --git a/src/closures.c b/src/closures.c
|
|
index 01f9950cd0..1dfd375cff 100644
|
|
--- a/src/closures.c
|
|
+++ b/src/closures.c
|
|
@@ -329,7 +329,7 @@
|
|
table->next->prev = table->prev;
|
|
|
|
/* Deallocate pages */
|
|
- vm_deallocate (mach_task_self (), table->config_page, PAGE_MAX_SIZE * 2);
|
|
+ vm_deallocate (mach_task_self (), table->config_page, FFI_TRAMPOLINE_ALLOCATION_PAGE_COUNT * PAGE_MAX_SIZE);
|
|
|
|
/* Deallocate free list */
|
|
free (table->free_list_pool);
|