Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #9653 from jhjourdan/memprof_no_shutdown 

Memprof: getting rid of caml_memprof_shutdown
master
Gabriel Scherer 2020-06-13 13:53:04 +02:00 committed by GitHub
parent f333db8b0f bee3679aab
commit cba5a765a2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
runtime/caml/memprof.h
View File

@ -40,8 +40,6 @@ extern void caml_memprof_do_roots(scanning_action f);
extern void caml_memprof_update_clean_phase(void);
extern void caml_memprof_invert_tracked(void);
extern void caml_memprof_shutdown(void);
struct caml_memprof_th_ctx {
int suspended, callback_running;
};

16
runtime/memprof.c
View File

@ -926,22 +926,6 @@ static void caml_memprof_init(void) {
xoshiro_init();
}
void caml_memprof_shutdown(void) {
init = 0;
started = 0;
lambda = 0.;
suspended = 0;
callback_running = 0;
trackst.len = 0;
trackst.callback = trackst.young = trackst.delete = 0;
caml_stat_free(trackst.entries);
trackst.entries = NULL;
trackst.alloc_len = 0;
caml_stat_free(callstack_buffer);
callstack_buffer = NULL;
callstack_buffer_len = 0;
}
CAMLprim value caml_memprof_start(value lv, value szv, value tracker_param)
{
CAMLparam3(lv, szv, tracker_param);

1
runtime/startup_aux.c
View File

@ -191,7 +191,6 @@ CAMLexport void caml_shutdown(void)
call_registered_value("Pervasives.do_at_exit");
call_registered_value("Thread.at_shutdown");
caml_finalise_heap();
caml_memprof_shutdown();
caml_free_locale();
#ifndef NATIVE_CODE
caml_free_shared_libs();