Anonymous avatar Anonymous committed 7d30f3e

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

Comments (0)

Files changed (2)

   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

 {
   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 */
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.