summaryrefslogtreecommitdiffstats
path: root/byterun/freelist.c
diff options
context:
space:
mode:
Diffstat (limited to 'byterun/freelist.c')
-rw-r--r--byterun/freelist.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/byterun/freelist.c b/byterun/freelist.c
index f3bb4a8ee..6b50d3f9e 100644
--- a/byterun/freelist.c
+++ b/byterun/freelist.c
@@ -532,14 +532,14 @@ void caml_set_allocation_policy (uintnat p)
switch (p){
case Policy_next_fit:
fl_prev = Fl_head;
+ policy = p;
break;
case Policy_first_fit:
flp_size = 0;
beyond = NULL;
+ policy = p;
break;
default:
- Assert (0);
break;
}
- policy = p;
}