The R Project SVN R

Rev

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

Rev 63469 Rev 63470
Line 415... Line 415...
415 
#define BASE_SYM_CACHED_MASK (1<<13)
 415 
#define BASE_SYM_CACHED_MASK (1<<13)
416 
#define SET_BASE_SYM_CACHED(b) ((b)->sxpinfo.gp |= BASE_SYM_CACHED_MASK)
 416 
#define SET_BASE_SYM_CACHED(b) ((b)->sxpinfo.gp |= BASE_SYM_CACHED_MASK)
417 
#define UNSET_BASE_SYM_CACHED(b) ((b)->sxpinfo.gp &= (~BASE_SYM_CACHED_MASK))
 417 
#define UNSET_BASE_SYM_CACHED(b) ((b)->sxpinfo.gp &= (~BASE_SYM_CACHED_MASK))
418 
#define BASE_SYM_CACHED(b) ((b)->sxpinfo.gp & BASE_SYM_CACHED_MASK)
 418 
#define BASE_SYM_CACHED(b) ((b)->sxpinfo.gp & BASE_SYM_CACHED_MASK)
419 
 
 419 
 
- 
 
 420 
#define SPECIAL_SYMBOL_MASK (1<<12)
- 
 
 421 
#define SET_SPECIAL_SYMBOL(b) ((b)->sxpinfo.gp |= SPECIAL_SYMBOL_MASK)
- 
 
 422 
#define UNSET_SPECIAL_SYMBOL(b) ((b)->sxpinfo.gp &= (~SPECIAL_SYMBOL_MASK))
- 
 
 423 
#define IS_SPECIAL_SYMBOL(b) ((b)->sxpinfo.gp & SPECIAL_SYMBOL_MASK)
- 
 
 424 
#define SET_NO_SPECIAL_SYMBOLS(b) ((b)->sxpinfo.gp |= SPECIAL_SYMBOL_MASK)
- 
 
 425 
#define UNSET_NO_SPECIAL_SYMBOLS(b) ((b)->sxpinfo.gp &= (~SPECIAL_SYMBOL_MASK))
- 
 
 426 
#define NO_SPECIAL_SYMBOLS(b) ((b)->sxpinfo.gp & SPECIAL_SYMBOL_MASK)
- 
 
 427 
 
420 
#else /* USE_RINTERNALS */
 428 
#else /* USE_RINTERNALS */
421 
 
 429 
 
422 
typedef struct VECREC *VECP;
 430 
typedef struct VECREC *VECP;
423 
int (PRIMOFFSET)(SEXP x);
 431 
int (PRIMOFFSET)(SEXP x);
424 
void (SET_PRIMOFFSET)(SEXP x, int v);
 432 
void (SET_PRIMOFFSET)(SEXP x, int v);
Line 440... Line 448...
440 
 
 448 
 
441 
void (SET_BASE_SYM_CACHED)(SEXP b);
 449 
void (SET_BASE_SYM_CACHED)(SEXP b);
442 
void (UNSET_BASE_SYM_CACHED)(SEXP b);
 450 
void (UNSET_BASE_SYM_CACHED)(SEXP b);
443 
Rboolean (BASE_SYM_CACHED)(SEXP b);
 451 
Rboolean (BASE_SYM_CACHED)(SEXP b);
444 
 
 452 
 
- 
 
 453 
void (SET_SPECIAL_SYMBOL)(SEXP b);
- 
 
 454 
void (UNSET_SPECIAL_SYMBOL)(SEXP b);
- 
 
 455 
Rboolean (IS_SPECIAL_SYMBOL)(SEXP b);
- 
 
 456 
void (SET_NO_SPECIAL_SYMBOLS)(SEXP b);
- 
 
 457 
void (UNSET_NO_SPECIAL_SYMBOLS)(SEXP b);
- 
 
 458 
Rboolean (NO_SPECIAL_SYMBOLS)(SEXP b);
- 
 
 459 
 
445 
#endif /* USE_RINTERNALS */
 460 
#endif /* USE_RINTERNALS */
446 
 
 461 
 
447 
typedef SEXP R_bcstack_t;
 462 
typedef SEXP R_bcstack_t;
448 
#ifdef BC_INT_STACK
 463 
#ifdef BC_INT_STACK
449 
typedef union { void *p; int i; } IStackval;
 464 
typedef union { void *p; int i; } IStackval;