Displaying 1 result from an estimated 1 matches for "r_line_profil".
2020 Feb 26
1
Profiling: attributing costs to place of invocation (instead of place of evaluation)?
...ant of this patch, perhaps with
an optional argument to Rprof()?
Thanks!
Best regards
Kirill
Index: src/main/eval.c
===================================================================
--- src/main/eval.c??? (revision 77857)
+++ src/main/eval.c??? (working copy)
@@ -218,7 +218,10 @@
???? if (R_Line_Profiling)
???? lineprof(buf, R_getCurrentSrcref());
+??? SEXP sysparent = NULL;
+
???? for (cptr = R_GlobalContext; cptr; cptr = cptr->nextcontext) {
+??? if (sysparent != NULL && cptr->cloenv != sysparent &&
cptr->sysparent != sysparent) continue;
???? if ((cptr->callfla...