PR#5597: register names for instrtrace primitives in embedded bytecode

git-svn-id: http://caml.inria.fr/svn/ocaml/version/4.00@12677 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
bmeurer · Jul 9, 2012 · b1f7ab7 · b1f7ab7
1 parent 58f2b4f
commit b1f7ab7
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -281,6 +281,7 @@ Feature wishes:
 - PR#5555: add function Hashtbl.reset to resize the bucket table to
   its initial size.
 - PR#5586: increase UNIX_BUFFER_SIZE to 64KiB
+- PR#5597: register names for instrtrace primitives in embedded bytecode
 - PR#5599: Add warn() tag in ocamlbuild to control -w compiler switch
 - PR#5628: add #remove_directory and Topdirs.remove_directory to remove
   a directory from the load path

diff --git a/byterun/dynlink.c b/byterun/dynlink.c
@@ -184,8 +184,15 @@ void caml_build_primitive_table_builtin(void)
 {
   int i;
   caml_ext_table_init(&caml_prim_table, 0x180);
-  for (i = 0; caml_builtin_cprim[i] != 0; i++)
+#ifdef DEBUG
+  caml_ext_table_init(&caml_prim_name_table, 0x180);
+#endif
+  for (i = 0; caml_builtin_cprim[i] != 0; i++) {
     caml_ext_table_add(&caml_prim_table, (void *) caml_builtin_cprim[i]);
+#ifdef DEBUG
+    caml_ext_table_add(&caml_prim_name_table, strdup(caml_names_of_builtin_cprim[i]));
+#endif
+}
 }
 
 #endif /* NATIVE_CODE */