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

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12679 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Changes

@@ -192,6 +192,7 @@ Feature wishes:
   documentation.
 - PR#5555: Add function Hashtbl.reset to resize the bucket table to
   its initial size.
+- 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

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 */