The R Project SVN R

(root)/trunk/src/main/memory.c – Rev 63057 → 63071



/* Debugging Routines. */
 
#ifdef DEBUG_GC
static void CheckNodeGeneration(SEXP x, int g)
{
    if (x && NODE_GENERATION(x) < g) {
	REprintf("untraced old-to-new reference\n");
    }
}
 
static void DEBUG_CHECK_NODE_COUNTS(char *where)

Rev 63057	Rev 63071
Line 725...	Line 725...
725	`/* Debugging Routines. */`	725	`/* Debugging Routines. */`
726		726
727	`#ifdef DEBUG_GC`	727	`#ifdef DEBUG_GC`
728	`static void CheckNodeGeneration(SEXP x, int g)`	728	`static void CheckNodeGeneration(SEXP x, int g)`
729	`{`	729	`{`
730	`if (NODE_GENERATION(x) < g) {`	730	`if (x && NODE_GENERATION(x) < g) {`
731	`REprintf("untraced old-to-new reference\n");`	731	`REprintf("untraced old-to-new reference\n");`
732	`}`	732	`}`
733	`}`	733	`}`
734		734
735	`static void DEBUG_CHECK_NODE_COUNTS(char *where)`	735	`static void DEBUG_CHECK_NODE_COUNTS(char *where)`