The R Project SVN – R – Diff – /trunk/src/main/debug.c



#ifndef R_MEMORY_PROFILING
attribute_hidden void memtrace_report(void* old, void *_new) {
    return;
}
#else
static void memtrace_stack_dump(void)
{
    RCNTXT *cptr;
 
    for (cptr = R_GlobalContext; cptr; cptr = cptr->nextcontext) {
	if ((cptr->callflag & (CTXT_FUNCTION | CTXT_BUILTIN))

Rev 86647	Rev 87120
Line 194...	Line 194...
194	`#ifndef R_MEMORY_PROFILING`	194	`#ifndef R_MEMORY_PROFILING`
195	`attribute_hidden void memtrace_report(void* old, void *_new) {`	195	`attribute_hidden void memtrace_report(void* old, void *_new) {`
196	`return;`	196	`return;`
197	`}`	197	`}`
198	`#else`	198	`#else`
199	`attribute_hidden static void memtrace_stack_dump(void)`	199	`static void memtrace_stack_dump(void)`
200	`{`	200	`{`
201	`RCNTXT *cptr;`	201	`RCNTXT *cptr;`
202		202
203	`for (cptr = R_GlobalContext; cptr; cptr = cptr->nextcontext) {`	203	`for (cptr = R_GlobalContext; cptr; cptr = cptr->nextcontext) {`
204	`if ((cptr->callflag & (CTXT_FUNCTION \| CTXT_BUILTIN))`	204	`if ((cptr->callflag & (CTXT_FUNCTION \| CTXT_BUILTIN))`

The R Project SVN R

(root)/trunk/src/main/debug.c @ 28362 – Rev 86647 → 87120