/* This is called by caml_compact_heap. */ void caml_fl_reset (void) { Next (Fl_head) = 0; fl_prev = Fl_head; caml_fl_cur_size = 0; caml_fl_init_merge (); }
/* This is called by caml_compact_heap. */ void caml_fl_reset (void) { Next (Fl_head) = NULL; switch (policy){ case Policy_next_fit: fl_prev = Fl_head; break; case Policy_first_fit: truncate_flp (Fl_head); break; default: Assert (0); break; } caml_fl_cur_size = 0; caml_fl_init_merge (); }