Merge pull request ocaml#12922 from stedolan/remove-caml-get-section-…

…table Remove caml_get_section_table (+bootstrap)
OlivierNicole · Jan 19, 2024 · c94d12c · c94d12c
2 parents b6ecc23 + 167c070
commit c94d12c
Show file tree

Hide file tree

Showing 4 changed files with 1 addition and 14 deletions.
diff --git a/boot/ocamlc b/boot/ocamlc
diff --git a/boot/ocamllex b/boot/ocamllex
diff --git 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
@@ -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);