The R Project SVN R

Rev

Rev 77366 | Rev 77645 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 77366 Rev 77367
Line 407... Line 407...
407 
 
 407 
 
408 
#ifdef SWITCH_TO_REFCNT
 408 
#ifdef SWITCH_TO_REFCNT
409 
# undef NAMED
 409 
# undef NAMED
410 
# undef SET_NAMED
 410 
# undef SET_NAMED
411 
# define NAMED(x) REFCNT(x)
 411 
# define NAMED(x) REFCNT(x)
412 
/* temporary cack to evaluate x for Simon's usage in fastmath and iotools */
 412 
/* no definition for SET_NAMED; any calls will use the one in memory.c */
413 
# define SET_NAMED(x, v) do {						\
 - 
 
414 
	if ((x) == NULL) error("NULL SEXP pointer");			\
 - 
 
415 
    } while (0)
 - 
 
416 
# define ENSURE_NAMEDMAX(v) do { } while (0)
 413 
# define ENSURE_NAMEDMAX(v) do { } while (0)
417 
# define ENSURE_NAMED(v) do { } while (0)
 414 
# define ENSURE_NAMED(v) do { } while (0)
418 
#else
 415 
#else
419 
# define ENSURE_NAMEDMAX(v) do {		\
 416 
# define ENSURE_NAMEDMAX(v) do {		\
420 
	SEXP __enm_v__ = (v);			\
 417 
	SEXP __enm_v__ = (v);			\