Add function to access the symbol table

PRL-PRG · Apr 1, 2019 · 2ff4c11 · 2ff4c11
1 parent 196e123
commit 2ff4c11
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/include/Rdyntrace.h b/src/include/Rdyntrace.h
@@ -828,6 +828,7 @@ int dyntrace_get_c_function_argument_evaluation(SEXP op);
 int dyntrace_get_c_function_arity(SEXP op);
 int dyntrace_get_primitive_offset(SEXP op);
 const char *const dyntrace_get_c_function_name(SEXP op);
+SEXP* dyntrace_get_symbol_table();
 
 void(SET_PRENV_UNPROBED)(SEXP x, SEXP v);
 void(SET_PRVALUE_UNPROBED)(SEXP x, SEXP v);

diff --git a/src/main/dyntrace.c b/src/main/dyntrace.c
@@ -249,3 +249,7 @@ const char* const dyntrace_get_c_function_name(SEXP op) {
     int offset = dyntrace_get_primitive_offset(op);
     return R_FunTab[offset].name;
 }
+
+SEXP* dyntrace_get_symbol_table() {
+    return R_SymbolTable;
+}