diff --git a/boot/ocamlc b/boot/ocamlc index a25f91f4208e..67f3cef1f814 100755 Binary files a/boot/ocamlc and b/boot/ocamlc differ diff --git a/boot/ocamllex b/boot/ocamllex index 565e87e623ee..1beb63f30519 100755 Binary files a/boot/ocamllex and b/boot/ocamllex differ diff --git a/runtime/meta.c b/runtime/meta.c index 4dea22357aa3..2d8159e9a2c1 100644 --- a/runtime/meta.c +++ b/runtime/meta.c @@ -45,13 +45,6 @@ CAMLprim value caml_get_global_data(value unit) return caml_global_data; } -CAMLprim value caml_get_section_table(value unit) -{ - if (caml_params->section_table == NULL) caml_raise_not_found(); - return caml_input_value_from_block(caml_params->section_table, - caml_params->section_table_size); -} - struct bytecode { code_t prog; asize_t len; @@ -216,12 +209,6 @@ value caml_get_global_data(value unit) return Val_unit; /* not reached */ } -value caml_get_section_table(value unit) -{ - caml_invalid_argument("Meta.get_section_table"); - return Val_unit; /* not reached */ -} - value caml_realloc_global(value size) { caml_invalid_argument("Meta.realloc_global"); diff --git a/runtime/startup_byt.c b/runtime/startup_byt.c index 8776f1f210a6..a04f0fb36a36 100644 --- a/runtime/startup_byt.c +++ b/runtime/startup_byt.c @@ -661,7 +661,7 @@ CAMLexport value caml_startup_code_exn( caml_load_main_debug_info(); /* ensure all globals are in major heap */ caml_minor_collection(); - /* Record the sections (for caml_get_section_table in meta.c) */ + /* Record the sections (for caml_dynlink_get_bytecode_sections) */ caml_init_section_table(section_table, section_table_size); /* Execute the program */ caml_debugger(PROGRAM_START, Val_unit);